I'm getting an Error:Illegal Expression

Question

我收到此错误：

illegal expression and Fatal: Syntax error, ; expected but : found

Pascal 代码如下：

Program PaidUp;

const
size=30;

var
   payment,totm1,totm2,totm3:real;
   section1,section2,section3,i,j,idnum:integer;
   IDNUMARR:array[1..999] of integer;
   PAYMENTARR:array[1..size] of real;


Procedure InitialiseVariables;
{This procedure initialises all variables used in the program}
   Begin
      idnum:=0;
      payment:=0;
      totm1:=0;
      totm2:=0;
      totm3:=0;
      section1:=0;
      section2:=0;
      section3:=0;
      i:=0;
      j:=0;
End; {Initialise Variables}

Procedure DeclareandInitialiseArrays;
{This procedure declares and initialises all arrays used in the program}
   Begin
      IDNUMARR:array[1..999] of integer;
      PAYMENTARR:array[1..size] of real;
         For i:=1 to size do
             begin
              idnum[i]:=0;
              payment[i]:=0;
         end; {ends for statment}
End; {Declare and Initialise Variables}

Procedure PutDataIntoArray;
{This procedure puts the data into the arrays}
   Begin
  while(idnum<>0 and payment<>0 and payment=1350 and payment=1620 and  payment=1800 and payment=1650 and payment=1980 and payment=2200) do
         begin
              writeln('Invalid value, please enter another value');
              readln(idnum);
              readln(payment);
         end;{ends while statement}
              set j:=j+1;
              idnum[j]:=idnum;
              payment[j]:=payment;
End; {Put Data Into Array}

 Procedure DetermineStatisticsInformation;
{This procedure determines which masqueraders belong to which group, tallys  the total persons in a section and totals the amount of money paid in each section for costumes}
   Begin
      For j:=1 to size do
         begin
              if(payment[j]=1350 and payment[j]=1650) then
                  begin
                       writeln('Masquerader with memid:idnum[j] belongs to  section1');
                       section1:= section1+1;
                       totm1:= totm1+payment[j];
                  end;{ends if statement}
              if(payment[j]=1620 and payment[j]=1980) then
                  begin
                       writeln('Masquerader with memid:idnum[j] belongs to section2');
                       section2:= section2+1;
                       totm2:=totm2+payment[j];
                  end;{ends if statement}
              if(payment[j]=1800 and payment[j]=2200)then
                  begin
                       writeln('Masquerader with memid:idnum[j] belongs to section3');
                       section3:= section3+1;
                       totm3:=totm3+payment[j];
                  end;{ends if statement}
End. {Determine Statistics Information}

Procedure PrintResults;
{This procedure outputs all information}
 Begin
  writeln('The number of masqueraders in section 1 is:', section1);
  writeln('The number of masqueraders in section 2 is:', section2);
  writeln('The number of masqueraders in section 3 is:', section3);
  writeln('Total Amount of money paid in section 1 is:', totm1);
  writeln('Total Amount of money paid in section 2 is:', totm2);
  writeln('Total Amount of money paid in section 3 is:', totm3);
End. {Print Results}

Answer 1

这是错误的，其他行类似：

  if(payment[j]=1350 and payment[j]=1650) then

让它看起来像 if (..) and (..) then

Answer 2

代码充满错误，永远无法编译。

您将 idnum 和 payment 用作数组，但您已将其声明为整数！如果您需要数组，请改用 IDNUMARR 和 PAYMENTARR。
在第 9 行和第 10 行中，您声明了全局变量 IDNUMARR PAYMENTARR，但您在过程 DeclareandInitialiseArrays 中再次将其声明为局部变量
几乎全部if-statements无效

if(payment[j]=1620 and payment[j]=1980) then

总是首先评估 "and" 运算符，这导致逻辑比较“1620 和 payment[j]”（这不是有效语法）。

你必须像这样将每个比较都放在括号中：

if(payment[j]=1620) and (payment[j]=1980) then

4。设置 j:=j+1; 您到底期望发生什么？我想你只是想增加 j

j:=j+1;

所有程序都必须以;结尾而不是。
最后的 "begin end." 在您执行所有程序的地方丢失了。

可能还有很多其他人...

I'm getting an Error:Illegal Expression

I'm getting an Error:Illegal Expression

pascal