Program1.pas(6) : Встречено ‘;’, а ожидалось ‘.’
Проверить расчет по формуле: Program1.Pas(8): Встречено ‘else’, а ожидалось ‘;’
Program ChM; Var a,b,y,z: real; begin Writeln(‘Введите y и Z’); Read(y,Z);.
Program1.pas(12) : Встречено ‘else’, а ожидался оператор
Program jg; Label 1; Var y,x:integer; Begin y:=6; Write(‘Введите число ‘); 1:Readln(x);.
исправил, но он все-равно выдает ту же ошибку
Добавлено через 1 минуту
Sun Serega, а, все, понял ошибку. Исправил. Спасибо большое
Ошибка «5.pas(18) : Встречено ‘f1’, а ожидалось ‘;»
5.pas(18) : Встречено ‘f1’, а ожидалось ‘; var h, x0, xk, y0, y1, yx, y, x, f1, f2, i.
Встречено ‘until’, а ожидалось ‘;’
Program calculator; //v1.1 var a,b,rez:real;oper,calc:string;flag_start:boolean; Begin.
Встречено ‘.’, а ожидалось ‘;’
Привет, форум. Не могу найти ошибку, поможете? function Chr(arg : integer) : char; function.
Встречено ‘else’, а ожидалось ‘;’
var a,b,c,D, x1, x2: real; begin writeln(‘Дано уравнение вида ax^2+bx+c=0’); writeln.
Встречено else, а ожидалось ‘;’
var a1,b1,a,b: real; begin Writeln(‘Введите А’); readln(a); Writeln(‘Введите B’); readln(b);.
Встречено := а ожидался оператор
Встречено := а ожидался оператор:
Условие:
Дан массив заполненный по формуле cos(x/3), определить количество его положительных
элементов кратных 3
Программа
Встречено ‘uses’, а ожидался оператор
Unit Unit1; interface uses System, System.Drawing, System.Windows.Forms; type Form1 =.
Встречено ‘procedure’, а ожидался оператор
Встречено ‘procedure’, а ожидался оператор uses graphABC; var i: integer; KeyPressed.
Вы пытетесь решить неразрешимую задачу, у которой неполное условие или ее Вам дал какой-то придурок.
Числа вида cos(x/3) не могут быть кратными чему либо, их диапазон [-1..1].
Добавлено через 5 минут
Кстати Ваш код вообще не соответствует заданию.
Встречено ‘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);.
Встречен конец файла, а ожидалось ‘;’
Никак не пойму что не так. Пишет в 20 строке (которая ниже end. и пустая) что «Встречен конец файла, а ожидалось ‘;'».
Еще когда я пробовал делать так: if(s1=5 and s2>10) то мне писало что нельзя применять операцию сравнения к интеджер. Это получается целочисленные переменные нельзя сравнивать что-ли? oO
А когда сделал их real то писало нельзя использовать оператор and. Что за ограничения такие.
Встречен конец файла, а ожидалось begin
function max (a,b,c:integer): integer; var x: integer; begin writeln (‘Введите три числа’);.
Встречен конец файла, а ожидалось begin
Задача звучит так type reals = file of real; Описать процедуру p(f,g,h) от трех файлов типа.
Встречен конец файла, а ожидалось begin
Установила среду pascalabc.net Почитала.
Встречен конец файла, а ожидалось ‘;’
Что ему не нравится? program матрица; Var a: array of integer; i, j, n, m,t,r: integer; Begin.
В паскале нет постфиксной функции ++ (унарной операции постдекремента), вместо ++ можно использовать процедуру inc(s1), либо простое сложение с единицей s1 := s1 + 1, либо операцию модификации s1 += 1, либо функцию s1 := succ(s1).
Приоритет операции сравнения в паскале самый низкий, поэтому условный оператор в строке 13 ошибочный.
Сакральный смысл чистки экрана внутри цикла от меня ускользает.
Плюс ещё мелкие ошибки по причине того, что кому-то неохота читать что-либо про паскаль.
Андрей1926, это точно Вы задали этот вопрос? Или всё же это был некий не слишком обученный академик, несанкционированно воспользовавшийся Вашим аккаунтом?
Вот исправленная программа:
Только программа эта зацикливается и ничего не печатает, поскольку в программе при s2=10 это самое s2 сбрасывается в 0 в 10 строке, поэтому условный оператор в 13 строке не выполняется никогда, поэтому инкремента m1 не происходит, и ничего не печатается, и не создаётся условия выхода из цикла repeat..until m1 = 10, поскольку глобальная переменная m1 инициализирована нулём.
Задание напишите. Или хотя бы напишите, что Вы хотите от несчастной программы.
Встречено end, а ожидалось ‘;’
Встречено ‘end’, а ожидалось ‘;’
program qq; var x, y, k, i: integer; begin repeat X:= random(10)+1; y:= random(10)+1; i:=0;.
Встречено ‘end’, а ожидалось ‘;’
Помогите! В 31 строке ошибка Встречено ‘end’, а ожидалось ‘;’ :wall: const n=6;m=4; var a:array.
Встречено ‘end’, а ожидалось begin
Не могу найти ошибку. uses GraphABC, ABCObjects; var a: ABCObjects.PictureABC; b.
Ошибка: Встречено ‘end’, а ожидалось ‘;’
Ребята, помогите пожалуйста. Только начал програмировать на паскале может чего то не понимаю но.
может поставь else но я нашол ещо ошыбку чтото с мосивом не то
Добавлено через 1 минуту
что эта программа должна делать?
должна вывести список наиболее редко встречающихся задач на олимпиаде по программированию
Добавлено через 4 минуты
else не помогает
Решение
Встречено ‘end’, а ожидалось begin
Друзья спасайте В конце на последней строчке пишет Встречено ‘end’, а ожидалось begin не пойму в.
Встречено ‘i’, а ожидалось ‘;’
во всех строках типа writeln(‘введите координаты X Y Z ‘i’й точки:’); не хочет добавлять цифру.
Встречено ‘;’, а ожидалось ‘)’
Program2.pas(19) : Str (r:integer; buf:string); ошибка Встречено ‘;’, а ожидалось ‘)’