趣味PASCAL程序设计.pptVIP

趣味PASCAL程序设计 情况语句 CASE语句 复习 使用嵌套语句 情况语句（CASE语句） ? 用嵌套的if 语句实现多分支的选择结构。但是如果分支越来越多时，用嵌套的if语句实现多分支就显得繁杂。? 当多分支选择的各个条件由同一个表达式的不同结果值决定时，可以用case语句实现。它的选择过程，很象一个多路开关，即由case 语句的选择表达式的值，决定切换至哪一语句去工作。因此在分支结构程序设计中，它是一种强有力的手段。在实现多路径分支控制时，用case 对某些问题的处理和设计，比用if语句写程序具有更简洁、清晰之感。 情况语句适用于对一个条件的多种情况的响应。（一）case语句的格式： case 表达式 of????标号1：语句1；????标号2：语句2；???? ……????标号n：语句n；????else 语句n+1 end ; (二)case 语句的执行过程 先计算表达式（称为情况表达式）的值，如果它的值等于某一个常量（称为情况常量，也称情况标号），则执行该情况常量后面的语句， 在执行完语句后，跳到case语句的末尾end处。 (三)说明 ①情况表达式必须是顺序类型的； ②情况常量是情况表达式可能具有的值，因而应与情况表达式具有相同的类型； ③情况常量出现的次序可以是任意的； ④同一情况常量不能在同一个case语句中出现两次或两次以上； ⑤每个分语句前可以有一个或若干个用逗号隔开的情况常量； ⑥如果情况表达式的值不落在情况常量的范围内，则认为本case语句无效，执行case语句的下一个语句。turbo pascal中增加了一个“否则”的情况,即增加一个else子句，但也是可省的。 ⑦每个常量后面只能是一个语句或一个复合语句。 case语句在使用时有几点要注意： 1. end与case对应； 标号与语句之间用“：”分隔； else与语句之间不用分隔符。 2. 标号必须是一常量，其类型与表达式的类型一致. 实践： 1.从键盘输入字母，将字母A、B、C 、D或a、b、c、d转换成1、2、3、4，其余的字符转换成5。 2. 编程模拟剪刀、石头、布游戏：用S表示剪刀，用R表示石头，用P表示布。规则是：剪刀剪布，石头砸剪刀，布包石头。游戏者分别把自己的选择输入，计算机给出结果。 分析： 定义变量： 游戏者的选择p，电脑的选择c ：字符型 程序过程： 输入p， 分情况语句判断p为S，则 c 为 R 分情况语句判断p为R，则 c 为 P 分情况语句判断p为P，则 c 为 S 分情况语句判断p为其他，则显示输入错误 输出转换后的n值 3.月收入T的所得税税率R如下： 分别用IF语句和CASE语句编写程序，输入月收入，输出所得税率、应缴所得税款以及扣除所得税后的实际收入。 * * 某超市为了促销，规定：购物不足50元的按原价付款，超过50不足100的按九折付款，超过100元的，超过部分按八折付款。编一程序完成超市的自动计费的工作。 分析： 定义变量 ： 付款金额 pay ，消费金额 price ：实型 程序过程： 输入消费金额 如果 price 小于 50，则 pay =price 如果 price 大于等于50 小于100，则 pay=price* 0.9 如果 price 大于等于 100，则 pay=price*0.8 输出打折后付款金额 分析 ： 定义变量： 输入的字母 c：char（字符型） 转换后的值 n：integer（整型） 程序过程： 输入字母c， 分情况语句判断c为‘A’或‘a’，则 n 为 1 分情况语句判断c为‘B’或‘b’，则 n 为 2 分情况语句判断c为‘C’或‘c’，则 n 为 3 分情况语句判断c为‘D’或‘d’，则 n 为 4 分情况语句判断c为其他字母，则 n 为 5 输出转换后的n值 （字符型用char作为标识符。字符型必须用单引号括起来，字母作为字符型时，大小写是不等价的，并且字符型只允许单引号中有一个字符，否则就是字符串。） 20% T=3000 15% 3000T=1500 10% 1500T=1000 5% 1000T=800 0 T800 R T *