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

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

13.12.2018, 22:50. Просмотров 2888. Ответов 1
Метки нет (Все метки)

Выдаёт ошибки 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
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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Label1: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label10.Color:=clYellow;
  Label8.Color:=clRed;
  Label6.Color:=clGreen;
  Label4.Color:=clRed;
  Label2.Color:=clRed;
  Label1.Visible:=False;
  Label2.Visible:=True;
  Label3.Visible:=False;
  Label4.Visible:=True ;
  Label5.Visible:=False ;
  Label6.Visible:=True ;
  Label7.Visible:=False ;
  Label8.Visible:=True ;
  Label9.Visible:=False ;
  Label10.Visible:=True ;
  Button1.Visible:=True;
  Button2.Visible:=False  ;
  Button3.Visible:=False ;
  Button4.Visible:=False;
  Form1.Color:=clLime;
  MessageDlg('Сколько натуральных чисел кратных 2?                             Их бесконечно много. А это только первая десятка!',mtInformation,[mbOk], 0);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.Color:=clYellow;
  Label9.Color:=clGreen;
  Label6.Color:=clYellow;
  Label3.Color:=clRed;
  Label1.Visible:=False;
  Label2.Visible:=False;
  Label3.Visible:=True;
  Label4.Visible:=False ;
  Label5.Visible:=False ;
  Label6.Visible:=True ;
  Label7.Visible:=False ;
  Label8.Visible:=False ;
  Label9.Visible:=True ;
  Label10.Visible:=False ;
  Button1.Visible:=False;
  Button2.Visible:=True  ;
  Button3.Visible:=False ;
  Button4.Visible:=False;
  MessageDlg('Числа кратные 3: 3, 6, 9, 12, 15 18 и т.д. Это легко проверить на примере 9 : 3=3',mtInformation, [mbOk], 0);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Form1.Color:=clGreen;
  Label1.Visible:=False;
  Label2.Visible:=False;
  Label3.Visible:=False;
  Label4.Visible:=True ;
  Label5.Visible:=False ;
  Label6.Visible:=False ;
  Label7.Visible:=False ;
  Label8.Visible:=True ;
  Label9.Visible:=False ;
  Label10.Visible:=False ;
  Button1.Visible:=False;
  Button2.Visible:=False  ;
  Button3.Visible:=True ;
  Button4.Visible:=False;
  Label4.Color:=clGreen;
  Label8.Color:=clYellow;
  MessageDlg('Числа крытные 4 - это: 4,8,12,16....',mtInformation, [mbOk], 0);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  Form1.Color:=clGray;
  Label1.Visible:=False;
  Label2.Visible:=False;
  Label3.Visible:=False;
  Label4.Visible:=False ;
  Label5.Visible:=True ;
  Label6.Visible:=False ;
  Label7.Visible:=False ;
  Label8.Visible:=False ;
  Label9.Visible:=False ;
  Label10.Visible:=True ;
  Button1.Visible:=False;
  Button2.Visible:=False  ;
  Button3.Visible:=False ;
  Button4.Visible:=True;
  Label5.Color:=clRed;
  Label10.Color:=clYellow;
  MessageDlg('числа кратные 5 Это числа которые делятся на 5 без остатка. НАПРИМЕР 5; 15; 60; 1200; и т. д.',mtInformation, [mbOk], 0);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Form1.Color:=clDefault;
  Label1.Color:=clNone;
  Label2.Color:=clNone;
  Label3.Color:=clNone;
  Label4.Color:=clNone ;
  Label5.Color:=clNone ;
  Label6.Color:=clNone ;
  Label7.Color:=clNone ;
  Label8.Color:=clNone ;
  Label9.Color:=clNone ;
  Label10.Color:=clNone ;
  Label1.Visible:=True;
  Label2.Visible:=True;
  Label3.Visible:=True;
  Label4.Visible:=True ;
  Label5.Visible:=True ;
  Label6.Visible:=True ;
  Label7.Visible:=True ;
  Label8.Visible:=True ;
  Label9.Visible:=True ;
  Label10.Visible:=True ;
  Button1.Visible:=True;
  Button2.Visible:=True  ;
  Button3.Visible:=True ;
  Button4.Visible:=True;
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
    ShowMessage('Poka');
end;
Добавлено через 1 минуту
Проверял, вроде всё нормально( Нигде два end или begin не хватает, но нет! Всё в порядке!(
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2018, 22:50
Ответы с готовыми решениями:

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

Fatal: Syntax error, "BEGIN" expected but "end of file" 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,...

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
29310 / 19377 / 7601
Регистрация: 22.10.2011
Сообщений: 33,783
Записей в блоге: 6
13.12.2018, 23:38 2
Лучший ответ Сообщение было отмечено Kotesta как решение

Решение

Pascal
1
end.
последней строкой добавь, чтобы завершить модуль.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2018, 23:38

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

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

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

Ошибка: Fatal: Syntax error, ";" expected but "identifier Mas" found.
Где здесь синтаксическая ошибка( "mas:=A2;" )? 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,...


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

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

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