if嵌套与ase语句.pptVIP

if嵌套与case语句 杜新宇 知识回顾 简单的IF语句格式 一、IF语句的嵌套 　　在if语句中，如果then子句或else子句仍是一个if语句， 则称为if语句的嵌套。 例1　计算下列函数 　　　  源程序 program ex; varx:real; y:integer; begin wrtie(Input x:); readln(x); if x0　 then y:=1 ｛x0时｝ else ｛x≤0时｝　if x=0　then y:=0　　　　 else y:=-1; writeln(x=,x:6:2,y=,y); end. 二、case语句 　　上面我们知道可以用嵌套的if语句实现多分支的选择结构。但是如果分支越来越多时，用嵌套的if语句实现多分支就显得繁杂。当多分支选择的各个条件由同一个表达式的不同结果值决定时，可以用case语句实现。它的选择过程，很象一个多路开关，即由case语句的选择表达式的值，决定切换至哪一语句去工作。因此在分支结构程序设计中，它是一种强有力的手段。在实现多路径分支控制时，用case对某些问题的处理和设计，比用if语句写程序具有更简洁、清晰之感。 (一)、情况语句的一般形式： case 表达式 of　　　情况标号表1：语句1;　　　情况标号表2：语句2;　　　:　　　情况标号表n：语句n　　end;　　其中case、of、end是Pascal的保留字， 表达式的值必须是顺序类型，它可以是整型、布尔型及以后学习的字符型、枚举型和子界型。情况标号表是一串用逗号隔开的与表达式类型一致的常量序列。语句可以是任何语句，包括复合语句和空语句。 (二)、case语句的执行过程　　 先计算表达式（称为情况表达式）的值，如果它的 值等于某一个常量（称为情况常量，也称情况标号）， 执行该情况常量后面的语句，在执行完语句后，跳到case 语句的末尾end处。 例2 根据x的值，求函数Y的值： 　　　　  源程序: 　　program ex;　　var x,y:real;　　begin　　　write(Input x:);readln(x);　　　case trunc(x/100) of　　　　0:y:=x+1;　　　　1:y:=x-1;　　　　else y:=0;　　　end;{end of case}　　　writeln(x=,x:8:2),y=,y:8:2);　　end. 三、选择结构的程序设计 例3 输入一个年号,判断它是否是闰年。 例4 判断1995年,每个月份的天数。 例5 期未来临了，班长小Q决定将剩余班费X元钱，用于购买若干支钢笔奖励给一些学习好、表现好的同学。已知商店里有三种钢笔，它们的单价为6元、5元和4元。小Q想买尽量多的笔（鼓励尽量多的同学），同时他又不想有剩余钱。请您编一程序，帮小Q制订出一种买笔的方案。　　 program pen;　var a,b,c:integer;{a,b,c分别表示在买笔方案中，6元、5元和4元钱笔的数目}　　 x,y:integer;{x，y分别表示剩余班费和买完最多的4元笔后剩的钱}　begin　　write(x=);readln(x){输入x}　　c:=x div 4;{4元笔最多买的数目}　　y:=x mod 4;｛求买完c支4元笔后剩余的钱数y｝　　case y of　　　0 : begin a:=0;b:=0; end;　　　1 : begin a:=0;b:=1;c:=c-1; end;　　　2 : begin a:=1;b:=0; c:=c-1;end;　　　3 : begin a:=1;b:=1; c:=c-2;end;　　end;　　writeln(a=,a,b=,b,c=,c);　end. 　 练　习 　1．输入三角形的三个边，判断它是何类型的三角形（等边三角形？等腰三角形？一般三角形？）。2．输入三个数，按由大到小顺序打印出来。3．计算1901年2099年之间的某月某日是星期几。4．输入两个正整数a，b。b最大不超过三位数，a不大于31。使a在左，b在右，拼接成一个新的数c。例如：a＝2，b＝16，则c＝216；若a＝18，b＝476，则c＝18476。　　提示：求c的公式为：c＝a×K＋b　　其中：　　　　  * * 要舅郁版扳荔精寒玉哟啸痞镀互揍掉梧盂恃畴唤俭罗睛奄欢处念沤幌三渭if嵌套与case语句if嵌套与case语句 朴瘁篙媚唯障提妊倍改瘤香鼎沉关方牛槛裴巡傣立担绸惕旅闻逸腿虐飘挡if嵌套与case语句if嵌套与case语句 Ⅰ、IF ＜布尔