case语句

复习：
输入三个数a,b,c，输出最大数（分别用不嵌套if 和嵌套的if语句）
(提问)
4．4 Case语句
[例4-4-1] 某服装公司为了推销产品，采取这样的批发销售方案:凡订购超过100 套的，每套定价为50元，否则每套价格为80元。

编程由键盘输入订购套数，输出应付款的金额数。

解:设X为订购套数，Y为付款金额，则:
Var x，y: integer；
Begin
Write('X=') ；Readln(x) ；
if x >100 then y:=50*X else y:＝80*X；
Writeln('y='，y) ；
Readln
End.
如果有多种（两种或两种以上）选择，常用情况语句编程。

将前面[例]改成用如下方法来处理。

根据题意，付款计算可分为两种情况：
①Y=50*X (X＞100)
②Y=80*X (X＜=100)
显然，情况①与②的选择取决于X值。

假设用N表示“情况值”，暂且先让N ＝2；
如果X＞100则N=1；（此题中N的值只是1或2，且取决于X值）
Var X，Y，N: integer；
Begin
Write('X=') ；readln(x) ；n:=2；{ 先让n=2 }
if X＞100 then n:=1；{如果X＞100则n=1 }
Case n of { 关于情况处理}
1: Y:=50*X；
2: Y:=80*X；
end；
Writeln('Y='，Y) ；
Readln
End.
程序中的Case─end 语句为情况语句，是多路分支控制，一般格式为:
格式一：
case 表达式of
情况常量表1：语句1；
情况常量表2：语句2；
……
情况常量表n：语句n；
end;
格式一：执行情况语句时，先计算Case后面表达式的值，然后根据该值在情况常量表中的“对应安排”，选择其对应的语句执行，执行完所选择语句后就结束Case语句；如果常量表中没有一个与表达式值对应的语句，则什么也不做就结束本Case语句。

格式二：
Case 表达式of
情况常量表1: 语句1；
情况常量表2: 语句2；
……
情况常量表n: 语句n；
else 语句n+1
end；
格式二：这种格式的前面部分是相同的，所不同的是：如果常量表中没有一个与表达式值对应的语句，则执行与else对应的语句，然后结束Case语句。

case语句在使用时有几点要注意：
1. end与case对应；标号与语句之间用“：”分隔；else与语句之间不用分隔符。

2．表达式的类型通常是整型或字符型。

所以表达式经常会用到mod、div运算和trunc、round等函数。

3．情况常量表必须是一个或几个常量，常量间用“,”间隔，其类型与表达式的类型一致。

常量间的顺序可以是任意的。

也就是说可以多个标号对应同一条语句。

4. 语句可以是多个语句，但必须用语句括号(begin……end)括起即复合语句。

5. case语句也可以嵌套
[例4-4-2] 对某产品征收税金，在产值1万元以上征收税5%；在1万元以下但在5000元以上的征收税3%；在5000元以下但在1000元以上征收税2%；1000元以下的免收税。

编程计算该产品的收税金额。

解:设x为产值，tax为税金，用P表示情况常量各值，以题意中每1000元为情况分界:
P=0: tax=0 (x<1000 )
P=1，2，3，4: tax=x*0.02 (1000<=x<5000 )
P=5，6，7，8，9: tax=x*0.03 (5000<X<=10000 )
P=10: tax=x*0.05 (x> 10000 )
这里的P是“情况”值，用产值x除以1000的整数值作为P，如果P>10也归入P=10的情况。

Pascal语言用P=trunc(x/1000)取整计算，
Var x，p : integer；
Tax : real；
Begin
Write('Number=') ；readln(x) ；
P:=trunc(x/1000) ；
if P＞9 then P:=10；
Case P of
0 : tax:=0；
1,2,3,4 : tax:=x*0.2；
5,6,7,8,9 : tax:=x*0.3；
10 : tax:=x*0.5
end；
Writeln('tax='，tax:5:2) ；
Readln
End.
[例4-4-3]某全自动加油站a,b,c三种汽油的单价(元/kg)分别是1.50、1.35和1.18，也提供了“自己加”或“协助加”两个服务等级，这样用户可以得到5%或10%的优惠。

编一个程序，用户输入加油量、汽油品种和服务类型(f-自动，m-自己，e-协助)，然后计算应付款。

var
oil,help:char; kg,total:real;
begin
write('Enter the amount in kilograms(kg):'); readln(kg);
write('Which type of the gasoline(a,b,c):'); readln(oil);
write('Which type for service(f,m,e):'); readln(help);
case oil of {处理汽油的类型}
'a': total:=1.50*kg;
'b': total:=1.35*kg;
'c': total:=1.18*kg;
else writeln('Input Error!')
end;
case help of {处理服务类型}
'f':;
'm': total:=total*(1-0.05);
'e': total:=total*(1-0.10);
else writeln('Input Error!')
end;
writeln;
writeln('Total is ',total:10:2);
end.
[例4-4-4]从键盘上读入年和月，输出该月有多少天。

var year,month,day:integer;
begin
write('Enter year and month:'); readln(year,month);
case month of
1,3,5,7,8,10,12: day:=31;
4,6,9,11: day:=30; {以上处理31天和30天的情况}
2: if (year mod 400=0) or ((year mod 4=0) and (year mod
100<>0))then day:=29 else day:=28; {以上处理闰年情况}
end;
writeln('day=',day)
end.
例P44 例4-18
练习：
1、运输公司计算运费时，距离(S)越长，每公里运费越低，标准如下:
如果S＜250公里；运费为标准运价P的100%
如果250公里＜＝S＜500公里，运费为标准运价P的98%；
如果500公里＜＝S＜1000公里，运费为标准运价P的95%；
如果1000公里＜＝S＜2000公里，运费为标准运价P的92%；
如果2000公里＜＝S＜3000公里，运费为标准运价P的90%；
如果S＝＞3000公里，运费为标准运价P的85%；。

请编计算运费的程序。

（输入距离S以及标准运价P(每公里的标准运价)，输出运费。

） {用case语句做}
2、当前小学生的成绩单由以前的百分制改为优秀、良好、合格、不合格四个等级的等级制。

编一程序完成分数的自动转换工作。

转换规则如下：60分以下的为不合格；60到69分为合格；70到89分为良好；90分以上的为优秀。

（提示：可以利用DIV运算来使程序更简明）
3、输入一个字母符，按下面规则输出相应数字。

输入a,b,c,d或A,B,C,D则分别对应输出1,2,3,4，若是其它字符则输出5。

输出a,b,c中最大值。

不嵌套：
if a>b then max:=a else max:=b;
if c>max then max:=c;
writeln(max);
嵌套：
If a>b then if a>c then max:=a;
else max:=c
else if b>c then max:=b
else max:=c;
writeln(max)。