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

Ошибка "project1.lpr(35,0) Fatal: Syntax error, "BEGIN" expected but "end of file" found"

18.12.2019, 17:04. Просмотров 560. Ответов 2
Метки нет (Все метки)

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
type
  tarray= array of integer;
  var
    a:tarray;
      m,s,k:integer;
    procedure rand(var a:tarray;var m:integer);
    var
      i:integer;
      begin
        setlength(a,succ(random(20)));
        for i:=low(a)to high(a) do
        a[i]:=random(101)-50;
        m:=random(101)-50;
        end;
procedure process(a:tarray;m:integer;var s,k:integer);
var
  i:integer;
begin
 s:=0;
 k:=0;
    for i :=low(a) to high(a) do
    begin
      inc(s,a[i]*integer(a[i]>m));
      inc(s,integer(a[i]<m));
      end;
end;
procedure print(a:tarray;m,s,k:integer);
var
  i:integer;
 begin
    for i:=low(a) to high(a) do
    write(a[i]:4);
    writeln(#13#10'M:',m,#13#10'Sum:',s,#13#10'Count:',k);
 end;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.12.2019, 17:04
Ответы с готовыми решениями:

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

Fatal: Syntax error, "BEGIN" expected but "end of file" found
Доброго времени суток! Вот простой код, который, по идее, находит корни квадратного уравнения....

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

Fatal: Syntax error, "BEGIN" expected but "identifier BITMAP" found
Добрый день! пишу программу по методичке, выдает вот такие ошибки: unit1.pas(78,1) Fatal: Syntax...

2
Модератор
60522 / 45537 / 31421
Регистрация: 18.05.2008
Сообщений: 109,441
18.12.2019, 17:30 2
У Вас описаны тип и процедуры, но нет программы
Pascal
1
2
3
4
var.........
begin
................
end.
0
1895 / 627 / 460
Регистрация: 15.01.2019
Сообщений: 1,940
18.12.2019, 17:50 3
Довел до компилируемости ваш код.
Остальное остается за вами, так как целей работы этой программы вы не приводили.
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
program hhh;
type
  Tarray = array of integer;
 
 
procedure rand(var a: Tarray; var m: integer);
{Процедура, которая заполняет массив случайные числа}
var
  i:integer;
begin
  setlength(a,succ(random(20)));
  for i:= low(a) to high(a) do
    a[i]:= random(101)-50;
  m:= random(101)-50;
end;
 
 
procedure process(a: Tarray; m: integer; var s,k: integer);
{Процедура, которая производит вычисления}
var
  i:integer;
begin
  s:= 0;
  k:= 0;
  for i:= low(a) to high(a) do
  begin
    inc(s,a[i]*integer(a[i] > m));
    inc(k,integer(a[i] < m));
  end;
end;
 
 
procedure print(a: Tarray);
{Процедура вывода массива в консоль}
var
  i:integer;
begin
  for i:= low(a) to high(a) do
    write(a[i]:4);
end;
 
 
var
  arr: Tarray;  {Переменная для хранения массива}
  mm,ss,kk: integer; {Переменные для хранения значений результатов вычислений}
begin
  Randomize;
  rand(arr,mm);
  print(arr);
  process(arr,mm,ss,kk);
  writeln(#13#10'M: ',mm,#13#10'Sum: ',ss,#13#10'Count: ',kk);
  Readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2019, 17:50

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

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

Ошибка: "BEGIN" expected but "end of file" found
Выдает ошибку: Compile Project, Target: test.exe: Exit code 1, Errors: 1 Fatal: Syntax error,...

Ошибка: Fatal: Syntax error, ";" expected but "identifier Mas" found.
Где здесь синтаксическая ошибка( &quot;mas:=A2;&quot; )? procedure TForm1.Button1Click(Sender: TObject); ...

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


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

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

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