IF语句的嵌套-厦门大学附属中学.PPTVIP

四 选择结构程序设计 厦大附中信息技术 内容提要 IF语句 IF语句的一般形式如下： 格式一：if 条件 then 语句； 格式二：if 条件 then 语句1 else 语句2； 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 4000) 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 then 语句31 else 语句32； IF语句的嵌套 例：有一个函数 -1 x0 y= 0 x=0 1 x0 试编写一个程序，输入x的值，输出y的值。 参考程序 Program p4_2 (input,output); var x:real; y:integer; begin write(‘please input x=’); readln(x); if x0 then y:=-1 else if x0 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; e