что значит ошибка ожидался оператор
не работает программа в pascal. встречено else,а ожидался оператор. Где ошибка? Спасибо.
var a:array [1..n] of integer;
writeln (‘введите эл-ы массива’);
for t:= n downto otrez do
for t:=n downto k+1 do
if a[t]=0 then otrez:=t;
for i:= k+1 to otrez-1 do begin
if flag = 2 then begin
writeln (‘умножение =’,a[i]*a[i+1],’ ‘);
writeln (‘сложение =’,a[i]+a[i+1],’ ‘)
программа работает теперь/ но нет условия, я не разбирался в ней
program namefuck;
var a:array [1..n] of integer;
writeln (‘ââåäèòå ýë-û ìàññèâà’);
for t:= n downto otrez do
for t:=n downto k+1 do
if a[t]=0 then otrez:=t;
for i:= k+1 to otrez-1 do begin
if flag = 2 then begin
writeln (‘óìíîæåíèå =’,a[i]*a[i+1],’ ‘);
writeln (‘ñëîæåíèå =’,a[i]+a[i+1],’ ‘);
всем спасибо за ответы! вот рабочая программа!
program jghjer;
var a, b, c, d, e: real;
begin
writeln (‘Ведите кол-во пироженых у Маши.’);
read (a);
writeln (‘Введите кол-во пироженых у Кати.’);
read (b);
c:=b/a;
writeln (‘У Маши ‘, a, ‘пироженых, а у Кати в ‘, c,’ раза больше. Сколько пироженых у девочек вместе?’);
d:=a+c;
read (e);
if e=d then
writeln (‘Ответ верен! Молодец!’)
else writeln (‘Ответ не верен. Правильный ответ’, d, ‘.’);
end.
Выдает ошибку Program1.pas(67) : Встречено ‘procedure’, а ожидался оператор. Подскажите как исправить))
type massiv=array[1..100,1..2] of real;//Массив координат точек
var sr_abccissa,sr_ordinata:real;//обработка точек, получение результата
//ВВод данных
procedure VvodTochek(var arr:massiv; var n:byte);
var i:byte;
begin
write(‘Введите количество точек ‘);
readln(n);
for i:=1 to n do
begin
arr[i,1]:=-50+100*random;//X
arr[i,2]:=-50+100*random;//Y
end;
end;
//Вывод координат на экран
procedure Print(arr:massiv;n:byte);
var i:byte;
begin
writeln(‘Координаты: ‘);
for i:=1 to n do
write(‘(‘,arr[i,1]:6:1,’;’,arr[i,2]:6:1,’) ‘);
writeln
end;
//Узнаем, попала ли внутрь точка
function Popala(x,y,r:real):boolean;
begin
Popala:= x*x+y*y Голосование за лучший ответ
Program question190571574;
type massiv=array[1..100,1..2] of real;//Массив координат точек
var sr_abccissa,sr_ordinata:real;//обработка точек, получение результата
//ВВод данных
procedure VvodTochek(var arr:massiv; var n:byte);
var i:byte;
begin
write(‘Введите количество точек ‘);
readln(n);
for i:=1 to n do
begin
arr[i,1]:=-50+100*random;//X
arr[i,2]:=-50+100*random;//Y
end;
end;
//Вывод координат на экран
procedure Print(arr:massiv;n:byte);
var i:byte;
begin
writeln(‘Координаты: ‘);
for i:=1 to n do
write(‘(‘,arr[i,1]:6:1,’;’,arr[i,2]:6:1,’) ‘);
writeln
end;
//Узнаем, попала ли внутрь точка
function Popala(x,y,r:real):boolean;
begin
Popala:= x*x+y*y Похожие вопросы
Встречено «type», а ожидался оператор
Где ошибка в описании типа?
Если ставлю тип за главный цикл после uses то пишет «Внутриблочные переменные не могу иметь те же имена что и переменные из блока верхнего уровня».
Короче я понял что неправильно описываю тип переменной. А как это правильно сделать не пойму, вроде бы все гуглил.
«Встречено ‘Else’, а ожидалось ‘;'» и «Встречено ‘Else’, а ожидался оператор»
В общем нужно написать программу, выводящую все «счастливые» номера билетов, то бишь номера, где 3.
При попытке добавить оператор else, появляется оператор «Ожидался оператор»
Здравствуйте, помогите пожалуйста. У меня есть программа, которая решает квадратные уравнения. Но.
Встречено ‘uses’, а ожидался оператор
Unit Unit1; interface uses System, System.Drawing, System.Windows.Forms; type Form1 =.
Встречено := а ожидался оператор
Встречено := а ожидался оператор: Условие: Дан массив заполненный по формуле cos(x/3).
Да спасибо видимо не там гуглил или там но не все.
Добавлено через 8 минут
Constantin Cat, а для goto label тоже описывать перед begin?
А да точно, прочитал.
Добавлено через 8 минут
А к переменным типа есть возможность доступа по индексу?
Нет. Можно обращаться к константам типа как EnumType.Constant (TCard.шестерка)
Но они глобальны, хотя, если есть два перечислимых типа с одинаковой константой, то нет.
А вообще, Андрей1926, почитайте этот пост
Тут пишет нельзя преобразовать тип к string. Там где присваиваю шестерку.
Вот правильный код.
Встречено ‘procedure’, а ожидался оператор
При попытке компиляции выдаёт: Встречено ‘procedure’, а ожидался оператор. Вроде все проверил.
Встречено ‘procedure’, а ожидался оператор
Встречено ‘procedure’, а ожидался оператор uses graphABC; var i: integer; KeyPressed.
Встречено array, а ожидался оператор
В 26 строке выдает ошибку. Program lab8_Smirnov_var10_2; uses crt; const n=3; m=4; var.
Встречено array, а ожидался оператор
Встречено ‘array’, а ожидался оператор
Выдает ошибку в строчке c:array of integer; Как её исправить? uses crt; var k.
Встречено Else а ожидался оператор
Написал программу: program klxz3; var x,y,z1,z2:real; begin writeln(‘Введите x и y’);.
Встречено ‘else’, а ожидался оператор
В 44 строчки ошибка: Встречено ‘else’, а ожидался оператор. Помогите разобраться что не так.
Ошибка «встречено else, а ожидался оператор»
Пишет в откладке yes но всеровно неправильно
А сколько раз будешь писать одно и тоже?
Добавлено через 4 минуты
Встречено ‘for’, а ожидался идентификатор
Помогите пожалуйста найти и исправить ошибки в приведенном коде. Написанный от руки код мне дали.
Встречено ‘case’, а ожидался идентификатор
При компиляции пишет: «Встречено ‘case’, а ожидался идентификатор.» В чем может быть ошибка? Const.
Ожидался оператор
У меня такая проблема: пишет на последней строке «ожидался оператор» Вот код: program kBaDPaT;.
Встречено ‘uses’, а ожидался оператор
Встречено := а ожидался оператор
Встречено := а ожидался оператор: Условие: Дан массив заполненный по формуле cos(x/3).
Встречено ‘procedure’, а ожидался оператор
Встречено ‘procedure’, а ожидался оператор uses graphABC; var i: integer; KeyPressed.
Тогда с чего вы решили что это должно работать? uses бывает только или в начале программы, или в начале раздела interface/implementation.
А crt вообще устарел, вместо него надо использовать System.Console.
Встречено ‘procedure’, а ожидался оператор
При попытке компиляции выдаёт: Встречено ‘procedure’, а ожидался оператор. Вроде все проверил.
Встречено array, а ожидался оператор
В 26 строке выдает ошибку. Program lab8_Smirnov_var10_2; uses crt; const n=3; m=4; var.
Program1.pas(12) : Встречено ‘else’, а ожидался оператор
Program jg; Label 1; Var y,x:integer; Begin y:=6; Write(‘Введите число ‘); 1:Readln(x);.
Встречено ‘function’, а ожидался оператор. Что не так?
var res:integer; begin readln(x,y); function af(x,y:integer): integer; var i:integer; begin.
В чём проблема? (Ошибка Встречено ‘else’, а ожидался оператор)
Здравствуйте, помогите пожалуйста с кодом выдает ошибку Встречено ‘else’, а ожидался оператор Вот.