如何在一个case语句中使用多个语句?

时间:2014-12-17 23:13:47

标签: pascal freepascal turbo-pascal

所以我使用pascal,我想在一个案例中添加多个语句。我试过这段代码,但是我得到了错误: "错误:常量和CASE类型与#34;

不匹配
procedure pay;
begin
loop:=loop+1;
CASE loop OF
1: 
writeln('E-Mail: ');
readln(mailO[1]);
writeln('amount: ');
readln(amount[1]);


end;

1 个答案:

答案 0 :(得分:3)

beginend

中换行复合语句
procedure pay;
begin
  loop:=loop+1;
  CASE loop OF
    1: 
       begin
         writeln('E-Mail: ');
         readln(mailO[1]);
         writeln('amount: ');
         readln(amount[1]);
       end;

   2:  writeln('simple statement');

   3:  begin
         writeln('something else');
         writeln('etc.');
       end;

  end;
end;