Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
Иван99999
0 / 0 / 0
Регистрация: 25.03.2017
Сообщений: 1
#1

Ошибка "Syntax error, "BEGIN" expected but "end of file" found" - Free Pascal

25.03.2017, 00:48. Просмотров 329. Ответов 2
Метки нет (Все метки)

В чём заключается ошибка в 73 строке под названием "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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: char);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var a, b, n, x: Integer;
begin
  a := StrToInt(Edit1.Text);
  b := StrToInt(Edit2.Text);
  n := b-a;
  Randomize;
  x := a+Random(n);
  Label4.Caption := IntToStr(x);
end;
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
var a, b, n, x: Integer;
begin
  If Key = #13 Then begin
               a := StrToInt(Edit1.Text);
               b := StrToInt(Edit2.Text);
               n := b-a;
               Randomize;
               x := a+Random(n);
               Label4.Caption := IntToStr(x);
  end
  Else If Key = #72 Then begin
                    Image1.Visible := True;
                    Randomize;
                    x := 1+Random(2);
                    If x = 1 Then
                    Image1.Picture.LoadFromFile('Gerb.bmp')
                    Else Image1.Picture.LoadFromFile('Tsyfra.bmp');
  end
  Else If Key = #80 Then
  Image1.Visible := False;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.03.2017, 00:48
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Ошибка "Syntax error, "BEGIN" expected but "end of file" found" (Free Pascal):

Ошибка при компиляции "Syntax error "Begin" expected but ";" found" - Free Pascal
При компиляции выдаёт ошибку "Syntax error "Begin" expected but ";" found" в блоке Procedure GetLevel(var f:text); var ...

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

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

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

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

Ошибка: "sintax error, "OF" expected, but "[" found" - Free Pascal
Здравствуйте, в 4 строке компилятор выдаёт ошибку: "sintax error, "OF" expected, but "var str,alpha,u:string; a,b:array of char; ...

2
ФедосеевПавел
Модератор
3273 / 1883 / 756
Регистрация: 01.02.2015
Сообщений: 6,411
25.03.2017, 01:03 #2
Небаланс операторных скобок.
Заключайте процедуры в комментарии пока не пропадёт сообщение об ошибке. А потом проверяйте тот участок кода, после комментирования которого исчезло сообщение.

Добавлено через 2 минуты
Если у вас FreePascal - можете форматировать исходник (копию) утилитой ptop и поискать пары begin-end на одном уровне отступа.

Добавлено через 2 минуты
Или это весь файл целиком?
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3749 / 2446 / 1306
Регистрация: 22.11.2013
Сообщений: 6,788
25.03.2017, 10:44 #3
Pascal
74
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.03.2017, 10:44
Привет! Вот еще темы с ответами:

Error: Incompatible types: got "LONGINT" expected "CHAR" - Free Pascal
Есть код, надо чтобы массив заполнялся рандомно program mattrix; uses kernel,crt; var m:Tmattr; k:char; c,d:char; i,j:integer; ...

Ошибка Incompatible types: got "Boolean" expected "Longint" - Free Pascal
Доброго времени суток. Помогите, пожалуйста, избавиться от данной ошибки. Я пытаюсь решить задачу, условие которой следующее: "Для...

Ошибка: Incompatible types: got "Real" expected "Smallint" - Free Pascal
Привет всем. Ребята как исправить данную ошибку? program lab11; uses graph; var gd, gm: integer; x,y: real; begin ...

Ошибка: Incompatible types: got "Extended" expected "Smalllnt" - Free Pascal
Помогите, пожалуйста, исправить type tCorff= integer ptPoly= ^tPoly; tPoly= record i,n: word; c,x: tCorff; ...


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

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

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