Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/14: Рейтинг темы: голосов - 14, средняя оценка - 4.64
pivovara
0 / 0 / 0
Регистрация: 23.11.2010
Сообщений: 4
1

syntax error ":" expected but "(" found

23.11.2010, 20:50. Просмотров 2574. Ответов 1
Метки нет (Все метки)

Составить новый вектор из неуникальных элементов исходного вектора. где 1 там и выдается ошибка
var
a,b: array [1..100] of integer;
n,i,d,j,k:integer;
writeln 1 ('введите размер вектора');
readln(n);
writeln('введите элементы вектора');
for i:=1 to n do
read(a[i]);
readln;
k:=0;
for i:=1 to n do
begin
unit: = true;
for j:=1 to i-1 do
if a[j]=a[i] then
unit:=false;
for j:= i+1 to n do
if a[j]=a[i] then
unit:=false;
if unit then
begin
inc(k);
b[k]:=a[j];
end;
for d:=1 to k do
writeln(b[i]);
end.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2010, 20:50
Ответы с готовыми решениями:

Решение заданий типа "Array","Matrix","String","File","Text"""
большая просьба помочь решить где-то около 35-40 (из 100) задач (мне не...

Написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу". Исправить ошибки
дан текст.написать программу проверки правильности написания сочетаний "жи",...

После каждого символа "О" вставлять пробел и подсчитывать количество букв "А" стоящих между буквами "К" и "Л"
После каждого символа "О" вставлять пробел и подсчитывать количество букв "А"...

Шахматы: охарактеризовать положение белых с помощью слов: "мат", "шах", "пат", "обыкновенная позиция"
у белых на доске остался только король , у черных - король, слон, конь....

В заданной последовательности литер, состоящей из букв латинского алфавита и оканчивающейся точкой, определите общее число вхождений букв "a","e", "c", "h".
Немогу написать программу. В заданной последовательности литер, состоящей из...

1
soonshoo
238 / 5 / 9
Регистрация: 09.03.2010
Сообщений: 56
23.11.2010, 21:48 2
Лучший ответ Сообщение было отмечено pivovara как решение

Решение

я не совсем поняла задачу. видимо нехватка знаний. но для начала исправила основные ошибки в записи кода :
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses crt;
var
  a,b: array [1..100] of integer;
  n,i,d,j,k:integer;
  flag:boolean;
 
 
begin
 clrscr;
 writeln  ('введите размер вектора');
 readln(n);
 writeln('введите элементы вектора');
  for i:=1 to n do
   read(a[i]);
  readln;
  k:=0;
 for i:=1 to n do
  begin
   flag:= true;
    for j:=1 to i-1 do
     if a[j]=a[i] then
      flag:=false;
       for j:= i+1 to n do
        if a[j]=a[i] then
         flag:=false;
        if flag then
          begin
           inc(k);
           b[k]:=a[j];
          end;
        for d:=1 to k do
          writeln(b[i]);
   end;
  readln;
 end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.11.2010, 21:48

Работа с файлами, выдает "Error 2: file not found"
Дан файл товар, содержащий сведения об экспортируемых товарах: 1)...

Дана строка,сформировать новую строку не включая в неё буквы "а","о","е" заданной строки
Дана строка,сформировать новую строку не включая в неё буквы "а","о","е"...

С клавиатуры вводится строка. Удалить из строки те слова, в которых встречаются английские буквы "A", "E", "O"
Можете ,пожалуйста,написать программу, без массивов


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru