Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 09.08.2016
Сообщений: 5
1

Fatal: Syntax error, "BEGIN" expected but "end of file" found

09.08.2016, 17:13. Просмотров 2048. Ответов 2
Метки нет (Все метки)

Доброго времени суток! Вот простой код, который, по идее, находит корни квадратного уравнения. Выдает ошибку

unit1.pas(69,0) Fatal: Syntax error, "BEGIN" expected but "end of file" found,

которую я указал в заголовке треда. Подскажите, пожалуйста, в чем причина проблемы.

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
procedure TForm1.Button1Click(Sender: TObject);
var
 a,b,c,d,x1,x2: real;
 kod1,kod2,kod3:integer;
begin
 val(Edit1.Text,a,kod1);
 val(Edit2.Text,b,kod2);
 val(Edit3.Text,c,kod3);
 
 if (kod1=0) and (kod2=0) and (kod3=0) then
     if a=0 then
         MessageDlg('Введите не нулевое значение а', mtInformation,[mbOk],0)
     else
     begin
         d:=b*b-4*a*c;
         Label5.Visible:=true;
         if d<0 then
             Label5.Caption:='В уравнении'+chr(13)+'нет действительных корней'
         else
         begin
             x1:=(-b+sqrt(d))/2/a;
             x2:=(-b-sqrt(d))/(2*a);
             Label5.Caption:='X1='+FloatToStr(x1)+chr(13)+'X2='+FloatToStr(x2);
         end;
     end
 else
     MessageDlg('Введите числовое значение', mtInformation,[mbOk],0);
end;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.08.2016, 17:13
Ответы с готовыми решениями:

Ошибка: project1.lpr(1,1) Fatal: Syntax error, "BEGIN" expected but "end of file" found
project1.lpr(1,1) Fatal: Syntax error, &quot;BEGIN&quot; expected but &quot;end of file&quot; found выдает эту ошибку...

Выдаёт ошибки Fatal: Syntax error, "BEGIN" expected but "end of file" found. Пожалуйста посмотрите что не так, прошу!
Выдаёт ошибки Fatal: Syntax error, &quot;BEGIN&quot; expected but &quot;end of file&quot; found. Пожалуйста...

Fatal: Syntax error, "BEGIN" expected but "identifier BITMAP" found
Добрый день! пишу программу по методичке, выдает вот такие ошибки: unit1.pas(78,1) Fatal: Syntax...

Ошибка: "BEGIN" expected but "end of file" found
Выдает ошибку: Compile Project, Target: test.exe: Exit code 1, Errors: 1 Fatal: Syntax error,...

2
пофигист широкого профиля
3976 / 2644 / 745
Регистрация: 15.07.2013
Сообщений: 15,419
09.08.2016, 17:34 2
На 25 строке нет ; после end
0
Модератор
60231 / 45354 / 31294
Регистрация: 18.05.2008
Сообщений: 108,952
09.08.2016, 17:39 3
В приведенном фрагменте кода ошибок нет, у меня нормально компилируется.

Добавлено через 58 секунд
Цитата Сообщение от northener Посмотреть сообщение
На 25 строке нет ; после end
И не надо, видимо в конце нет end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.08.2016, 17:39

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Ошибка "Fatal: Syntax error, ";" expected but "." found"
звучит задание: создай программу, в которой можно преподнести введенное пользователем число к...

Ошибка: Syntax error, ";" expected but "BEGIN" found
Ошибка тут в строке с сообщением в комментарие, строка 40. Не понимаю почему. procedure...

Ошибка: Fatal: Syntax error, ";" expected but "identifier Mas" found.
Где здесь синтаксическая ошибка( &quot;mas:=A2;&quot; )? procedure TForm1.Button1Click(Sender: TObject); ...

Unit1.pas(66,4) Fatal: Syntax error, ";" expected but "." found
unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms,...


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

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

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