如何将多个语句用于一个 case 语句？

【问题标题】：How do i use multiple statements to one case statement?如何将多个语句用于一个 case 语句？
【发布时间】：2014-12-17 23:13:46
【问题描述】：

所以我正在使用 pascal，并且我想在一个案例中添加多个语句。我尝试了这段代码，但我得到了错误： “错误：常量和 CASE 类型不匹配”

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


end;

【问题讨论】：

标签： pascal freepascal turbo-pascal

【解决方案1】：

将复合语句包装在 begin 和 end 中：

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;

【讨论】：