Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 12.01.2018
Сообщений: 36
1

Ошибка "Fatal: Syntax error, "BEGIN" expected but "END" found"

30.03.2018, 14:53. Показов 1822. Ответов 4
Метки нет (Все метки)

Ввожу
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
36
37
38
39
40
41
 unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Windows;
var x, y, z, u, xy, xz: integer;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
procedure Muving;  //Движение
begin
  x:=x+xy;
  y:=y+xz;
  z=z+xy;
  u:=u+xz;
end;
 
end.



Выдает ошибку
Компиляция проекта, цель: project1.exe: Код завершения 1, ошибок: 2
unit1.pas(37,9) Error: Illegal expression
unit1.pas(41,1) Fatal: Syntax error, "BEGIN" expected but "END" found
Помогите, меня загнала эта ошибка в ступор.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.03.2018, 14:53
Ответы с готовыми решениями:

Ошибка "Syntax error, "BEGIN" expected but "end of file" found"
В чём заключается ошибка в 73 строке под названием "Syntax error, "BEGIN" expected but "end of...

Unit1.pas(51,0) Fatal: Syntax error, "BEGIN" expected but "end of file" found
Вобщем, мне говорят что у меня ошибка в несуществующей строке. Пишет мне вот это; unit1.pas(51,0)...

Ошибка при компиляции "Syntax error "Begin" expected but ";" found"
При компиляции выдаёт ошибку "Syntax error "Begin" expected but ";" found" в блоке Procedure...

Fatal:syntax error,"UNTIL" expected but "indentifier RESET" found
Написала программы а компилятор выдает ошибку что делать?? program lab6; uses crt; type ...

4
Модератор
63383 / 47076 / 32446
Регистрация: 18.05.2008
Сообщений: 114,111
30.03.2018, 15:08 2
Зачем Вы засунули описание процедуры в OnCreate?

Добавлено через 3 минуты
И в строке 37 исправьте
z:=z+xy;

Добавлено через 2 минуты
Правильно так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  Form1: TForm1;
  x, y, z, u, xy, xz: integer;
implementation
 
{$R *.lfm}
 
{ TForm1 }
procedure Muving;  //Движение
begin
  x:=x+xy;
  y:=y+xz;
  z:=z+xy;
  u:=u+xz;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Muving;
end;
Но я думаю что нужно не OnCreate, а другое, например Button1Click.
1
0 / 0 / 0
Регистрация: 12.01.2018
Сообщений: 36
30.03.2018, 15:10  [ТС] 3
Puporev, Исправил, но все равно в end говорит неправильно написано unit1.pas(41,1) Fatal: Syntax error, "BEGIN" expected but "END" found
0
Модератор
63383 / 47076 / 32446
Регистрация: 18.05.2008
Сообщений: 114,111
30.03.2018, 15:13 4
Цитата Сообщение от VintageLuke Посмотреть сообщение
Исправил
В смысле написали как у меня? У меня никакой ошибки нет.
Цитата Сообщение от VintageLuke Посмотреть сообщение
написано unit1.pas(41,1)
А вот эта строка 41 у меня например светится на стене.
0
432 / 679 / 125
Регистрация: 10.08.2015
Сообщений: 3,047
31.03.2018, 18:45 5
сожрал один end
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.03.2018, 18:45

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

Syntax error "Begin" expected but "uses" found
Syntax error "Begin" expected but "uses" found" (3.1) при компиляции в третьей строке я так понимаю...

Ошибка "Syntax Error, ":" expected but ";" found
Unit SourceModMenu; interface Uses Crt; function Menu(X,Y: integer):integer; //Функция для...

Ошибка: Syntax error, ";" expected but "ELSE" found
Напишите программу, использующую модифицированный алгоритм Евклида: нужно заменять большее число на...

USES SysUtils и ошибка Syntax Error, "BEGIN" expected but "identifier SYSUTILS"
Подключаю SysUtils дабы использовать ф-ции StrToInt и IntToStr, но выдает ошибку Fatal: Syntax...


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

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

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