四 选择结构程序设计 厦大附中信息技术
内容提要 IF语句 1 IF语句的嵌套 2 CASE语句 3 应用实例 4
IF语句 IF语句的一般形式如下： 格式一：if 条件 then 语句； 格式二：if 条件 then 语句1 else 语句2； IF 假 真 条件 语句 假 真 条件 语句1 语句2 表达式 IF 语 句 IF语句 THEN ELSE 语 句
IF语句 例：输入一个年份，判断它是否为闰年。 program p4_1(input,output); var year:integer; leap:boolean; begin write(‘input year:’); readln(year); leap:=false; if year mod 4=0 then leap:=true; if (year mod 100=0) and (year mod 400<>0) then leap:=false; if leap then writeln(year,’is leap’) else writeln(year,’is not leap’); end.
IF语句的嵌套 嵌套的一般格式如下： if 条件1 then if 条件2 then 语句21 else 语句22 else if 条件3
试编写一个程序，输入x的值，输出y的值。 IF语句的嵌套 例：有一个函数 -1 x<0 y= 0 x=0 1 x>0 试编写一个程序，输入x的值，输出y的值。
参考程序 Program p4_2 (input,output); var x:real; y:integer; begin write(‘please input x=’); readln(x); if x<0 then y:=-1 else if x>0 then y:=1 else y:=0; writeln(‘y=’,y); end.
case语句的一般形式如下： CASE语句 case 表达式 of 常数表1：语句1； 常数表2：语句2； 常数表3：语句3； …… ：…… …… ：…… 常数表n：语句n; else 语句n+1; end;
CASE语句 说明： （1）当表达式中的值与常数表中某一值相匹配，则执行其后面的相应语句；如果常数表中没有与表达式相匹配的常数，则执行else后面的语句。 （2）else可以省略，此时若无表达式的值与之相匹配的常数表时程序将向下运行并跳出case语句。 （3）保留字end与保留字case成对出现，这个end表示case语句的结束。 （4）表达式的类型通常是整型与字符型，也可以是枚举型和子界型。 （5）常数表是一个或一组常量，其类型与表达式类型一致，常数表行的次序是任意的，不一定要按从小到大或者从大到小的次序排列。
设计一个简单的计算器 例：设计一个简单的计算器，具有加、减、乘、除功能。 program p4_3(input,output); var x,y,s:real; ch:char; begin writeln(‘input x,y,ch:’); readln(x,y); readln(ch); case ch of ‘+’ : s:=x+y; ‘-’ : s:=x-y; ‘*’ : s:=x*y; ‘/’ : s:=x/y; end; writeln(x:8:2,ch,y:8:2,’=’,s:8:3); end.
建议：不同类型的数据输入、输出最好能分开 program p4_4(input,output); var x,y,s:real; ch:char; begin writeln(‘input x:’); readln(x); writeln(‘input ch:’); readln(ch); writeln(‘input y:’); readln(y); case ch of ‘+’ : s:=x+y; ‘-’ : s:=x-y; ‘*’ : s:=x*y; ‘/’ : s:=x/y; end; write(x:8:2); write(ch,y:8:2,’=’,s:8:3); write(y:8:2,’=’,s:8:3); end.
谢谢指导!