Syntax error identifier expected but var found

can someone say to me, where is error due to I cant compile the program? Thanks. This is error description:

Compiling main.pas
main.pas(4,1) Error: Illegal expression
main.pas(4,6) Fatal: Syntax error, ";" expected but "identifier A" found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode (normal if you did not specify a source file to be compiled)

Program source code:

    program Hello;
begin

type a = array [1..6] of integer;
integer a : array;

a[1]:=2;
a[2]:=6;
a[3]:=4;
a[4]:=2;
a[5]:=4;
a[6]:=3;

n:=6;

x:=a[1];

for i:=2 to 6 do
begin
{
  if (a[i-1]>=x) then
  begin
  a[i]:=a[i] - x div 2;
  end;
  else 
  begin
  a[i]:=a[i] + x;
  x:= x + mod x(a[i] + 1);
  end;
}
end;


  writeln (a[i]);
end.

    ```

Compiler is complaining about unexpected token.

First problem is that keyword begin is misplaced (as Loren Pechtel pointed out) and compiler treats your type definition and variables declaration as code. begin should be where your program logic starts. See this tutorial to understand TurboPascal program structure.

Another problem is in definition of array type. First you need to create type and name it using identifier (hexad in my example below). That identifier then becomes a type name such as integer so you can use it for further var declarations. Here is another tutorial on TurboPascal array types.

type
   hexad = array [1..6] of integer;

and then you can declare a variable of that type (hexad in my case):

var
   a: hexad;

Note that you can have more types defined under keyword type and more variables under keyword var so it is a good practice to keep them on separate line and indent type definitions and variable declarations.

answered Jan 17, 2021 at 3:20

In addition to the declaration problem that blami pointed out you have the begin in the wrong place—your definitions are being treated as code, not variables.

Don’t put too much faith in the compiler’s error messages, it often says things that aren’t related to the error at all. It’s very good about pointing to where the error is, though (other than when you failed to close something, then the where can be crazy.)

answered Jan 17, 2021 at 3:23

Всем доброго времени суток.
В книге Алексеев Е. Р., Чеснокова О. В., Кучер Т. В. — Free Pascal и Lazarus(2010), есть пример такой программы:

Код: Выделить всё

var a, b, c, d, x1, x2: real;
begin
writeln (’Введите_коэффициенты_квадратного_уравнения’);
readln (a, b, c);
d:=b*b−4*a*c;
if d<0 then
begin
//Если дискриминант отрицателен, то вывод сообщения,
//что действительный корней нет и вычисление комплексных корней.
writeln (’Действительных_корней_нет’);
{Вычисление действительной части комплексных корней.}
x1:=−b/(2*a);
{Вычисление модуля мнимой части комплексных корней.}
x2:=sqrt(abs(d))/(2*a);
writeln ( ’Комплексные_корни_уравнения_’,
a:1:2, ’x^2+’ ,b:1:2, ’x+’ ,c:1:2, ’=0’ );
{Вывод значений комплексных корней в виде x1±ix2}
writeln (x1:1:2, ’+i*(’ ,x2:1:2, ’)’);
writeln (x1:1:2, ’−i*(’ ,x2:1:2, ’)’);
end
else
begin
{иначе вычисление действительных корней x1, x2}
x1:=(−b+sqrt(d))/2/a;
x2:=(−b−sqrt(d))/(2*a);
{и вывод их на экран.}
writeln ( ’Действительные_корни_уравнения_’ ,
a:1:2, ’x^2+’ ,b:1:2, ’x+’ ,c:1:2, ’=0’);
writeln (’X1=’ ,x1:1:2, ’X2=’ ,x2:1:2)
end end.

Когда я начинаю компилировать программу выходить такое сообщение об ошибке:
Fatal: Syntax error, «)» expected but «identifier B» found.
Не могу найти где эта ошибка
КТО-НИБУДЬ, ПОДСКАЖИТЕ!!!

Видимо, проблема в том, что Вы отсканировали текст и не почистили от фигни.

Вместо короткого тире − должен знак минус -,
вместо обратной кавычки ’ — знак апострофа ‘.

Дож писал(а):Видимо, проблема в том, что Вы отсканировали текст и не почистили от фигни.

Вместо короткого тире − должен знак минус -,
вместо обратной кавычки ’ — знак апострофа ‘.

Я отсканировала текст только для того, чтобы задать вопрос.
А в Free Pascal вводила все в ручную и все знаки переписывала уже несколько раз, ничего не помогает.

Little_Roo писал(а):какая строка с ошибкой?

В этом-то и проблема. Я не могу найти строчку с ошибкой.
Полный текст ошибки такой:
Zero.pas (15,12) Fatal: Syntax error, «)» expected but «identifier B» found.

Анна Бак писал(а):Zero.pas (15,12

Таки строка 15, позиция 12….
Но это в ПОЛНОМ тексте кода программы….

Little_Roo писал(а):Таки строка 15, позиция 12….
Но это в ПОЛНОМ тексте кода программы….

СПАСИБО БОЛЬШОЕ!!!

Анна Бак писал(а):

Дож писал(а):Видимо, проблема в том, что Вы отсканировали текст и не почистили от фигни.

Вместо короткого тире − должен знак минус -,
вместо обратной кавычки ’ — знак апострофа ‘.

Я отсканировала текст только для того, чтобы задать вопрос.
А в Free Pascal вводила все в ручную и все знаки переписывала уже несколько раз, ничего не помогает.

Разумно приводить на форуме именно неработающий код, потому что приведённый в первом посте после замены указанных мною символов на правильные благополучно компилируется и запускается.

Дож писал(а):Разумно приводить на форуме именно неработающий код, потому что приведённый в первом посте после замены указанных мною символов на правильные благополучно компилируется и запускается.

Спасибо. Постараюсь.