case statement
您已经观察到if-then-else语句使我们能够在程序中实现多个决策。 这也可以使用case语句以更简单的方式实现。
语法 (Syntax)
case语句的语法是 -
case (expression) of
L1 : S1;
L2: S2;
...
...
Ln: Sn;
end;
其中， L1 ， L2 ...是大小写标签或输入值，可以是整数，字符，布尔值或枚举数据项。 S1 ， S2 ，...是Pascal语句，这些语句中的每一个都可能有一个或多个与之关联的案例标签。 表达式称为case selector或case index 。 案例索引可以采用与案例标签相对应的值。
case语句必须始终具有与之关联的end语句。
以下规则适用于案例陈述 -
case语句中使用的表达式必须具有整数或枚举类型，或者是类类型，其中类具有单个转换函数为整数或枚举类型。
您可以在案例中包含任意数量的案例陈述。 每个案例后跟要与之比较的值和冒号。
案例的案例标签必须与案例陈述中的表达式具有相同的数据类型，并且必须是常量或文字。
编译器将评估case表达式。 如果case标签的值之一与表达式的值匹配，则执行此标签后面的语句。 之后，程序在最终结束后继续。
如果case标签都不匹配表达式值，则执行else或otherwise关键字之后的语句列表。 这可以是一个空的语句列表。 如果没有其他部分存在且没有case常量与表达式值匹配，则程序流程在最终结束后继续。
case语句可以是复合语句（即Begin ... End块）。
流程图 (Flow Diagram)
例子 (Example)
以下示例说明了这一概念 -
program checkCase;
var
grade: char;
begin
grade := 'A';
case (grade) of
'A' : writeln('Excellent!' );
'B', 'C': writeln('Well done' );
'D' : writeln('You passed' );
'F' : writeln('Better try again' );
end;
writeln('Your grade is ', grade );
end.
编译并执行上述代码时，会产生以下结果 -
Excellent!
Your grade is A
