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