Case 语句
If...Then…Else 语句适合选项较少的情况,如果有很多选项的话利用If 语句就比较麻烦,在这种情况下,Case 语句就容易多了。Case 语句的语法如下:
case <表达式> of <数值>:<语句>; <数值>:<语句>; else <语句>; end; |
var S:Char; begin Readln(S); case S of ’a’..’z’, ’A’..’Z’:Writeln(’字符’); ’0’..’9’:Writeln(’数字’); else Writeln(’其他’); end; |
也可以用 case + begin..end,语法如下:
case 表达式 of
0:begin
end;
1:begin
end;
else
begin
end;
end;