Question

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
     For i:=1 to size do
         begin
              IDNUMARR[i]:=0;
              PAYMENTARR[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}
              j:=j+1;
              IDNUMARR[j]:=idnum;
              PAYMENTARR[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(PAYMENTARR[j]=1350) and (PAYMENTARR[j]=1650) then
                  begin
                       writeln('Masquerader with memid:idnum[j] belongs to section1');
                       section1:= section1+1;
                       totm1:= totm1+PAYMENTARR[j];
                  end;{ends if statement}
              if(PAYMENTARR[j]=1620) and (PAYMENTARR[j]=1980) then
                  begin
                       writeln('Masquerader with memid:idnum[j] belongs to section2');
                       section2:= section2+1;
                       totm2:=totm2+PAYMENTARR[j];
                  end;{ends if statement}
              if(PAYMENTARR[j]=1800) and (PAYMENTARR[j]=2200)then
                  begin
                       writeln('Masquerader with memid:idnum[j] belongs to section3');
                       section3:= section3+1;
                       totm3:=totm3+PAYMENTARR[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}

我得到的错误是：77/11 paidup.pas错误：非法表达 77/11 paidup.pas错误：非法表达 77/11 paidup.pas致命：语法错误，;预期，但发现标识符PRINTRESULTS

Answer 1

你仍然缺少一个结束语句，以匹配对于j：= 1到size do 的过程 DetermineStatisticsInformation 之后的begin语句。

此外，您的条件 while（idnum＆lt;＆gt; 0）和（payment＆lt;＆gt; 0）和（payment = 1350）和（payment = 1620）和（payment = 1800）和（payment = 1650））和（付款= 1980）和（付款= 2200）过程 PutDataIntoArray 将永远不会成立，因为付款不可能同时等于1350等于1620等...

非法表达的Pascal（新错误）

1 个答案: