Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Иван99999
0 / 0 / 0
Регистрация: 25.03.2017
Сообщений: 1
1

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

25.03.2017, 00:48. Просмотров 430. Ответов 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
Ответы с готовыми решениями:

Ошибка "Fatal: Syntax error, "BEGIN" expected but "END" found"
Ввожу unit Unit1; {$mode objfpc}{$H+} interface uses Classes,...

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

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

Ошибка "Syntax Error, ":" expected but ";" found
Unit SourceModMenu; interface Uses Crt; function Menu(X,Y:...

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

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

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

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

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

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

Ошибка: "sintax error, "OF" expected, but "[" found"
Здравствуйте, в 4 строке компилятор выдаёт ошибку: "sintax error, "OF"...


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

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

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