Fatal syntax error expected but procedure found

Модератор: Модераторы

Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: Google [Bot] и гости: 7

Нравится ресурс? Помоги проекту!

Ошибки при компилировании в Lazarus при Win32
, Извините, что создаю тему, просто я искал в других темах и не нашел.. дело вот в чем..

• Подписаться на тему
• Сообщить другу
• Скачать/распечатать тему

Сообщ. #1 , 11.03.11, 13:09

я только что начал изучать Free Pascal и Lazarus. И по учебнику делаю задание и мне выводит ошибку при компиляции в первой строке. procedure TForm1 . But ton1Click ( Sender : TObject ) ; var pud , funt : integer ; kg : real ; begin pud:=St rToInt ( Edi t1 . Text ) ; funt :=St rToInt ( Edi t2 . Text ) ; kg:=pud*16.38+ funt*16.38/40 ; Label4 . Caption:= ’В_килограммах:_’+FloatToSt r ( kg ) ; все по учебнику перепроверил. все символ в символ, а компилировать не хочет, пишет ошибки unit1.pas(38,2) Error: Illegal expression unit1.pas(38,12) Fatal: Syntax error, «;» expected but «identifier TFORM1» found помогите пожалуйста. незнаю как быть. Сообщение отредактировано: volvo877 — 11.03.11, 13:18

volvo877	Сообщ. #2 , 11.03.11, 13:20
Moderator Рейтинг (т): 878	Ошибка — в коде выше, где-то либо не тот раздел указан, либо не хватает чего-то… Покажи весь код… И потом… У тебя вот эти пробелы среди слов что, прямо в коде тоже присутствуют? Их не должно быть. Или ты перепечатываешь сюда? Не надо этого делать. Копируй. Так больше вероятности, что не внесешь еще и во время задавания вопроса ошибку…

MatriXX

Сообщ. #3 , 11.03.11, 13:27

unit Unit1; {$mode objfpc}{$H+} interface uses   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,   StdCtrls; type   { TForm1 }   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     Edit2: TEdit;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Label4: TLabel;     procedure Button1Click(Sender: TObject);   private     { private declarations }   public     { public declarations }   end; var   Form1: TForm1; implementation { TForm1 } begin  procedure TForm1.But ton1Click(Sender:TObject); var pud,funt:integer; kg:real; begin pud:=StrToInt(Edit1.Text ); funt:=StrToInt(Edit2.Text); kg:=pud*16.38+funt*16.38/40; Label4.Caption:=’В_килограммах:_’+FloatToStr(kg); end; initialization   {$I unit1.lrs} end. вот весь полностью код Добавлено 11.03.11, 13:30 ах даа… пробелы после компиляции(после ее попытки)появились. и если возможно, то покажите наглядно, где и что неправильно. просто я в терминах пока что тупой.. пару дней, как учу всего лишь.. Сообщение отредактировано: volvo877 — 11.03.11, 13:47

volvo877

Сообщ. #4 , 11.03.11, 13:53

Moderator Рейтинг (т): 878

begin в строке №37 — лишний. Убери его, и все заведется… Апострофы тоже замени на прямые ( ‘вот такие’ ). Пользуйся подсветкой, ее не просто для красоты продумали, ведь ясно видно, что твоя «В_килограммах:_» за строку не считается… Считается — когда подсвечена, как строка: unit Unit1; {$mode objfpc}{$H+} interface uses   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,   StdCtrls; type   { TForm1 }   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     Edit2: TEdit;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Label4: TLabel;     procedure Button1Click(Sender: TObject);   private     { private declarations }   public     { public declarations }   end; var   Form1: TForm1; implementation { TForm1 } procedure TForm1.Button1Click(Sender:TObject); var   pud,funt:integer;   kg:real; begin   pud:=StrToInt(Edit1.Text );   funt:=StrToInt(Edit2.Text);   kg:=pud*16.38+funt*16.38/40;   Label4.Caption:=’В_килограммах:_’+FloatToStr(kg); end; initialization   {$I unit1.lrs} end. Видишь разницу в цвете?

MatriXX	Сообщ. #5 , 11.03.11, 14:17
	да!! огромное спасибо!! все получилось)) подозревал ведь, что begin не к месту, но удалять не решался.. и с апострофами спасибо!! Добавлено 11.03.11, 14:21 извиняюсь за отдельные сообщения просто к аське привык.. и кнопки типа «дополнить» не найду.. еще раз простите. P.s. не удаляйте пожалста тему. я буду по мере наобходимости помощи обращаться к Вам. спасибо))

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

• Предыдущая тема
• 32-битные компиляторы
• Следующая тема

[ Script execution time: 0,0669 ]   [ 16 queries used ]   [ Generated: 12.02.23, 18:39 GMT ]  

Fatal: Syntax error, «.» expected but «;» found

1 Answer 1

The reason for this is that your begin s and end s are not balanced; disregarding the opening begin and closing end. for the program’s syntax to be correct, you should have equal numbers of each, but you have 4 begin s and 8 end s.

Obviously, your code is to compute the solutions of a quadratic equation. What I think you should do is to adjust the layout of your code so that it reflects that and then correctly the begin s and end s. In particular, your program is trying to detect whether any of a, b and d is zero and, if so, write a diagnostic message, otherwise calculate the roots by the usual formula.

Unfortunately, your begin s and end s do not reflect that. Either the whole of the block starting d := . needs to be executed or none of it does, so the else on the line before needs to be followed by a begin , as in

(You don’t say which Pascal compiler you are using, but the above fixes two points which are flagged as errors in FreePascal.

If you need more help than that, please ask in a comment.

Btw, there are some grammatical constructs in Pascal implementations where an end can appear without a matching preceding begin such as case . of . end .

Источник

Pascal fatal error «;» expected but else founded

What is causing the fatal error «;» expected but else founded message?

2 Answers 2

Unlike C, in Pascal a semicolon ; separates statements, it does not terminate them, and the then clause requires a single statement. then WriteLn(. ); else is two statements; you want then WriteLn(. ) else .

Let’s take this opportunity to learn how to read and use error messages to your advantage.

The compiler tells you exactly what the error is (it’s a ; before an else , because both of those are mentioned in the error message). It also gives you the exact line number where it’s reporting the error; that’s the number (usually in parentheses right before the error message, like (from Delphi):

[DCC Error] Project2.dpr(14): E2153 ‘;’ not allowed before ‘ELSE’

So the error is happening on line 14 (in my code — your number will be different). Let’s look at that line and a few before and after:

So look at the error message:

That clearly tells you that the ; in the line before the else is the problem (that’s very clear, because it says not allowed), so remove it.

BTW, now you’re going to get another error:

[DCC Error] Project2.dpr(15): E2003 Undeclared identifier: ‘wrtieln’

I think you should be able to figure that one out; again, the compiler gives you the exact line number.

You’re going to get another one, if you’ve posted your entire code:

[DCC Error] Project2.dpr(18): E2029 Statement expected but end of file found

This is because you’ve left out the end. that marks the end of a program file in Pascal. If you’ve not posted your entire code, you may not get it.

It’s important to learn to actually read the words when you get an error message from the compiler. In most languages, the messages are clearly worded, and they all have information you can use to try to figure out (or at least narrow down) the problems in your code.

Источник

Pascal fatal error «;» expected but else founded

What is causing the fatal error «;» expected but else founded message?

2 Answers 2

Unlike C, in Pascal a semicolon ; separates statements, it does not terminate them, and the then clause requires a single statement. then WriteLn(. ); else is two statements; you want then WriteLn(. ) else .

Let’s take this opportunity to learn how to read and use error messages to your advantage.

The compiler tells you exactly what the error is (it’s a ; before an else , because both of those are mentioned in the error message). It also gives you the exact line number where it’s reporting the error; that’s the number (usually in parentheses right before the error message, like (from Delphi):

[DCC Error] Project2.dpr(14): E2153 ‘;’ not allowed before ‘ELSE’

So the error is happening on line 14 (in my code — your number will be different). Let’s look at that line and a few before and after:

So look at the error message:

That clearly tells you that the ; in the line before the else is the problem (that’s very clear, because it says not allowed), so remove it.

BTW, now you’re going to get another error:

[DCC Error] Project2.dpr(15): E2003 Undeclared identifier: ‘wrtieln’

I think you should be able to figure that one out; again, the compiler gives you the exact line number.

You’re going to get another one, if you’ve posted your entire code:

[DCC Error] Project2.dpr(18): E2029 Statement expected but end of file found

This is because you’ve left out the end. that marks the end of a program file in Pascal. If you’ve not posted your entire code, you may not get it.

It’s important to learn to actually read the words when you get an error message from the compiler. In most languages, the messages are clearly worded, and they all have information you can use to try to figure out (or at least narrow down) the problems in your code.

Источник

[Паскалъ] Need Help

Что программа должна делать(на пхп)

ЕМНИП перед else там точка с запятой не ставится.

Не, ругается на другое, и спасибо это пофиксил.

> перед else там точка с запятой не ставится.

> ругается на другое

Условия в скобки попробуй.

Перед else ; не ставится.

У readln точно такой синтаксис? (я уже запамятовал)

Условия в скобки не надо?

Операции сравнения в скобки возьми.

А теперь, дружище, запомни, что вот этот выхлоп

untitled.pas(26,7) Error: Incompatible types: got «Boolean» expected «LongInt»
untitled.pas(28,2) Fatal: Syntax error, «;» expected but «ELSE» found

должен читать ТЫ сам, а не ЛОР.

Свободно говорю на Русском, Литовском, Английском.

Свободно говорю на Английском

Error: Incompatible types: got «Boolean» expected «LongInt»

Fatal: Syntax error, «;» expected but «ELSE» found

Источник

Почему выдаёт ошибку? Где я накосячила? Ошибка: unit1.pas(120,5) Fatal: Syntax error, «;» expected but «ELSE» found

procedure TForm1.RadioButton1Change(Sender: TObject);
begin
if radiobutton1.checked then
begin
edit1.text := IntToStr(Bin2Dec(edit1.text));
CS := 10;
s:=edit1.text
end;
else begin
edit1.text := IntToStr(Oct2Dec(edit1.text));
CS := 10;
s:=edit1.text;

Button1.Enabled:=True;
Button2.Enabled:=True;
Button3.Enabled:=True;
Button4.Enabled:=True;
Button5.Enabled:=True;
Button6.Enabled:=True;
Button7.Enabled:=True;
Button8.Enabled:=True;
Button9.Enabled:=True;
Button10.Enabled:=True;
Button11.Enabled:=True;
Button12.Enabled:=True;
Button13.Enabled:=True;
Button15.Enabled:=True;
Button16.Enabled:=True;
Button17.Enabled:=True;
Button18.Enabled:=True;
Button14.Enabled:=True;
Button19.Enabled:=True;
Button20.Enabled:=True;
Button21.Enabled:=True;
Button22.Enabled:=True;
Button23.Enabled:=True;
end;

—-исходный кусок ————
CS := 10;
s:=edit1.text
end;
else begin
————неправильно, д. б. так ——————-
CS := 10;
s:=edit1.text;
end
else begin

З. Ы. внимательнее с синтаксисом. лучше код форматировать отступами, вроде так:
begin
begin
.
end;
end;
сразу ясно какой энд какому бегину принадлежит )))

Источник