PascalCASE语句使用.pptVIP

08年上学期 基础班讲稿 第二讲 CASE语句的使用 导入 上面我们知道可以用嵌套的if语句实现多分支的选择结构。但是如果分支越来越多时，用嵌套的if语句实现多分支就显得繁杂。当多分支选择的各个条件由同一个表达式的不同结果值决定时，可以用case语句实现。它的选择过程，很象一个多路开关，即由case语句的选择表达式的值，决定切换至哪一语句去工作。因此在分支结构程序设计中，它是一种强有力的手段。在实现多路径分支控制时，用case对某些问题的处理和设计，比用if语句写程序具有更简洁、清晰之感。 case语句的使用 当多分支选择的各个条件由同一个表达式的不同结果值决定时，可以用case语句实现。它的选择过程，很象一个多路开关，即由case语句的选择表达式的值，决定切换至哪一语句去工作。因此在分支结构程序设计中，它是一种强有力的手段。 (二)、情况语句的一般形式： case 表达式 of　　　情况标号表1：语句1;　　　情况标号表2：语句2;　　　:　　　情况标号表n：语句n else 语句{可省略} end;　　其中case、of、end是Pascal的保留字， 表达式的值必须是顺序类型（是整型、布尔型及以后学习的字符型、枚举型和子界型 ）。 如果情况表达式的值不落在情况常的范围内，则认为本case语句无效，执行case语句的下一个语句。turbo pascal中增加了一个否则的情况,即增加一个else子句，但也是可省的。 例一 判断1995年,每个月份的天数。 分析：程序分为:输入月份,计算该月的天数,输出天数。通过分析我们这道题的重点放在对month的判断上，我们想道了用CASE语句来实现；　　　　源程序如下：　　program days;　　var month,days:integer;　　begin　　　write(‘Input month:’);readln(month);　　case month of　　　　1,3,5,7,8,10,12:days:=31;　　　　4,6,9,11 :days:=30;　　　　2 :days:=28;　　　　else days:=0;　　　end;　　　if days0 then writeln(‘Days=’,days);{当输入错误月份的时候我们不输出任何结果} 　　end.进一步思考如果要求输入年和月份，要求输出该月的天数如何实现！ 范例二 期未来临了，班长小Q决定将剩余班费X元钱，用于购买若干支钢笔奖励给一些学习好、表现好的同学。已知商店里有三种钢笔，它们的单价为6元、5元和4元。小Q想买尽量多的笔（鼓励尽量多的同学），同时他又不想有剩余钱。请您编一程序，帮小Q制订出一种买笔的方案。 分析：对于以上的实际问题，要买尽量多的笔，易知都买4元的笔肯定可以买最多支笔。因此最多可买的笔为x div 4支。由于小q要把钱用完，故我们可以按以下方法将钱用完：　　若买完x div 4支4元钱的笔，还剩1元，则4元钱的笔少买1支，换成一支5元笔即可；若买完x div 4支4元钱的笔，还剩2元，则4元钱的笔少买1支，换成一支6元笔即可；若买完x div 4支4元钱的笔，还剩3元，则4元钱的笔少买2支，换成一支5元笔和一支6元笔即可。　　从以上对买笔方案的调整，可以看出笔的数目都是x div 4，因此该方案的确为最优方案。 由于我们可以根据 x mod 4 的情况分成0,1,2,3四种情况,用IF…THEN…ELSE语句嵌套比较麻烦,所有我们想到用case 语句来实现… 分析：应为涉及到四种情况所以我们使用CASE语句来实现该程序；参考程序如下： 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. 　 思考题 例2 根据x