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

Ошибка: Fatal: Syntax error, ";" expected but "identifier Mas" found.

09.05.2018, 15:20. Просмотров 1233. Ответов 7
Метки нет (Все метки)

Где здесь синтаксическая ошибка( "mas[1]:=A2;" )?

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
procedure TForm1.Button1Click(Sender: TObject);
 
var
  i:integer;
  A,A1,A2:integer;
begin
  A1:=22;
  A2:=9
  mas[1]:=A2;
  mas[2]:=A1;
  for i:= 3 to 51 do
  begin
   A:= (A2*A1-A1/7)/2A1
    mas[i]:=A;
    A2:=A1;
    A1:=A;
  end;
  StringGrid1.ColCount:=51;
  for i:=1 to 51 do
  begin
  StringGrid1.Cells [i-1,0]:=IntToStr(i);
   StringGrid1.Cells [i-1,1]:=intToStr(mas[i]);
  end;
end.
Добавлено через 8 минут
unit1.pas(49,3) Fatal: Syntax error, ";" expected but "identifier Mas" found. ВОТ ТАКОЕ ВЫДАЕТ!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.05.2018, 15:20
Ответы с готовыми решениями:

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

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

Ошибка: 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, ";" expected but "is" found
Не могу нигде прописать часть кода вот эт type tproc = procedure is...

7
Модератор
60562 / 45559 / 31444
Регистрация: 18.05.2008
Сообщений: 109,506
09.05.2018, 15:25 2
Массив mas не объявлен в переменных.
0
0 / 0 / 0
Регистрация: 04.05.2018
Сообщений: 41
09.05.2018, 15:27  [ТС] 3
Все-равно выдает ошибку
0
Модератор
60562 / 45559 / 31444
Регистрация: 18.05.2008
Сообщений: 109,506
09.05.2018, 15:29 4
Покажи где и как объявил массив и какую и где выдает ошибку. А вообще говорят есть форумы экстрасенсов.
0
0 / 0 / 0
Регистрация: 04.05.2018
Сообщений: 41
09.05.2018, 15:31  [ТС] 5
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
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  A,A1,A2:integer;
   mas:array[1..51] of integer;
begin
  A1:=22;
  A2:=9
  mas [1]:=A2;
  mas [2]:=A1;
  for i:= 3 to 51 do
  begin
   A:=(A2*A1-A1/7)/2A1
    mas[i]:=A;
    A2:=A1;
    A1:=A;
  end;
  StringGrid1.ColCount:=51;
  for i:=1 to 51 do
  begin
  StringGrid1.Cells [i-1,0]:=IntToStr(i);
   StringGrid1.Cells [i-1,1]:=IntToStr(mas[i]);
  end;
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
29633 / 19500 / 7645
Регистрация: 22.10.2011
Сообщений: 34,027
Записей в блоге: 6
09.05.2018, 15:39 6
В конце 13-ой строки точку с запятой кто будет ставить?

Добавлено через 39 секунд
И да, опять деление и опять ты пытаешься запихать результат в Integer. И опять ничего не получится...
0
0 / 0 / 0
Регистрация: 04.05.2018
Сообщений: 41
09.05.2018, 16:09  [ТС] 7
А как мне сделать чтобы были целые числа?

Добавлено через 11 минут
Короче, возьму формулу без деления!
0
Заводной мандарин
1055 / 617 / 239
Регистрация: 05.05.2015
Сообщений: 3,464
Записей в блоге: 2
13.05.2018, 18:28 8
Цитата Сообщение от xxxx18 Посмотреть сообщение
А как мне сделать чтобы были целые числа?
как вариант, вместо / использовать div
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.05.2018, 18:28

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

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

Unit1.pas(66,4) Fatal: Syntax error, ";" expected but "." found
unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms,...

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

Fatal: Syntax error, ";" expected but "." found
При компиляции вылазит ошибка Fatal: Syntax error, ";" expected but "." found. Вроде всё...


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

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

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