pascal 语言中的case语句

我们知道可以用嵌套的if语句实现多分支的选择结构。但是如果分支越来越多时，用嵌套的if语句实现多分支就显得繁杂。当多分支选择的各个条件由同一个表达式的不同结果值决定时，可以用case语句实现。它的选择过程，很象一个多路开关，即由case语句的选择表达式的值，决定切换至哪一语句去工作。因此在分支结构程序设计中，它是一种强有力的手段。在实现多路径分支控制时，用case对某些问题的处理和设计，比用if语句写程序具有更简洁、清晰之感。

　　(一)、情况语句的一般形式：
　　case <表达式> of
　　　<情况标号表1>：语句1;
　　　<情况标号表2>：语句2;
　　　:
　　　<情况标号表n>：语句n
　　end;
　　其中case、of、end是Pascal的保留字， 表达式的值必须是顺序类型，它可以是整型、布尔型及以后学习的字符型、枚举型和子界型。情况标号表是一串用逗号隔开的与表达式类型一致的常量序列。语句可以是任何语句，包括复合语句和空语句。

　　(二)、case语句的执行过程
　　先计算表达式（称为情况表达式）的值，如果它的值等于某一个常量（称为情况常量，也称情况标号），则执行该情况常量后面的语句，在执行完语

(三)、说明

　　①情况表达式必须是顺序类型的；
　　②情况常量是情况表达式可能具有的值，因而应与情况表达式具有相同的类型；
　　③情况常量出现的次序可以是任意的；
　　④同一情况常量不能在同一个case语句中出现两次或两次以上；
　　⑤每个分语句前可以有一个或若干个用逗号隔开的情况常量；
　　⑥如果情况表达式的值不落在情况常的范围内，则认为本case语句无效，执行case语句的下一个语句。turbo pascal中增加了一个"否则"的情况,即增加一个else子句，但也是可省的。
　　⑦每个常量后面只能是一个语句或一个复合语句。

　　例2 根据x的值，求函数Y的值：

　　　　
　　分析：利用case语句进行程序设计, 关键在于巧妙地构造情况表达式。本例中三种情况可用一个表达式区分出来：Trunc(x/100)。因为x在(0～100)之间时表达式值为0；x在[100,200)时表达式值为1 ；其余部分可用else子句表示。
　　
　　源程序如下:
　　program ex;
　　var x,y:real;
　　begin
　　　write('Input x:');readln(x);
　　　case trunc(x/100) of
　　　　0:y:=x+1;
　　　　1:y:=x-1;
　　　　else y:=0;
　　　end;{end of case}
　　　writeln('x=',x:8:2),'y=',y:8:2);
　　end.