第08节 分情况语句

第八节分情况语句
【教学目标】
掌握case语句的结构、用法
【教学重点】
区别case与if 的差别
【教学内容】
一.格式:
case表达式of
情况标号1:语句1;
情况标号2:语句2;
......
情况标号n:语句n;
[else
语句 ]
end;
二.功能:
1.先计算出表达式的值，然后用表达式的值与各情况标号对照，当找到一个相匹配的情况标号时，就去执行后面的语句，然后跳到与case相对应的end后面的语句继续执行。

2.如果找不到与之匹配的情况标号，则执行else后面的语句，然后继续执行与case 相对应的end后面的语句。

三.说明：
1.情况标号与表达式的类型应一致。

2.所有情况标号互不相同。

3.表达式的值可以是整型、字符型、布尔型，不能是实型。

四.例题
例1.输入1到7之间的某数，输出表示一星期中相应的某一天英文名称。

program lt8_1;
var
n:integer;
w:string;
begin
readln(n);
case n of
1:w:= 'Monday';
2:w:='Tuesday';
3:w:='Wednesday';
4:w:= 'Thursday';
5:w:='Friday';
6:w:='Saturday';
7:w:='Sunday'
else
w:='False';
end;
writeln(w);
end.
例2:编写程序将学生成绩由数字转换为字母标志的五个等级。

100-90:A 89-80:B 79-70:C 69-60:D 59-0:E
要求输入一个学生成绩后，输出一个字母等级。

program lt8_2;
var
a:real;
n:integer;
ch:char;
begin
readln(a);
n:=trunc(a/10);
case n of
9,10:ch:='A';
8:ch:='B';
7:ch:='C';
6:ch:='D';
else
ch:='E'
end;
writeln(ch);
end.
作业8：利用CASE语句编写下列程序（文件命名:×××zy8_题号）
1．键盘输入两个数（均不为零）及一个算术运算符，输出其运算的结果。

2．键盘输入年和月，输出该月有几天。

拓展题
3.给小朋友出计算题，程序运行时，屏幕显示
3＋5＝
等待小朋友从键盘输入答案。

要求：
1.运算符随机生成：
随机产生一个整数n（1<=n<=4）,
如果n：1显示＋法,n为2显示－,n为3显示*,n为4显示/。

2.运算数随机生成，0<=a,b<=9
“－”时，a>b
“ /”时，能保证整除，范围在乘法口诀表内
提示：
4.对上题拓展，对小朋友的答案进行判断，正确输入“OK”，错误输出“NO”，并显示正确答案。