趣味PASCAL程序设计

0
5% 10%
3000>T>=1500
T>=3000
15%
20%
分别用IF语句和CASE语句编写程序，输入月收入， 输出所得税率、应缴所得税款以及扣除所得税后 的实际收入。
情况语句适用于对一个条件的多种情况的响应。
（一）case语句的格式：
case 表达式 of 标号1：语句1； 标号2：语句2； …… 标号n：语句n； else 语句n+1 end ;
(二)case 语句的执行过程
先计算表达式（称为情况表达式）的值，如 果它的值等于某一个常量（称为情况常量，也称 情况标号），则执行该情况常量后面的语句， 在执行完语句后，跳到case语句的末尾end处。
分析：
定义变量：
游戏者的选择p，电脑的选择c ：字符型 程序过程： 输入p， 分情况语句判断p为S，则 c 为 R 分情况语句判断p为R，则 c 为 P 分情况语句判断p为P，则 c 为 S
分情况语句判断p为其他，则显示输入错误
输出转换后的n值
3.月收入T的所得税税率R如下：
T R
T<800
1000>T>=800 1500>T>=1000
分析 ： 定义变量： 输入的字母 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值
趣味PASCAL程序设计
情况语句 CASE语句
复习
某超市为了促销，规定：购物不足50元的按原价付款， 超过50不足100的按九折付款，超过100元的，超过部分 按八折付款。编一程序完成超市的自动计费的工作。
分析：
定义变量 ： 付款金额 pay ，消费金额 price ：实型
程序过程：
输入消费金额 如果 price 小于 50，则 pay =price 如果 price 大于等于50 小于100，则 pay=price* 0.9 如果 price 大于等于 100，则 pay=price*0.8 输出打折后付款金额

⑦每个常量后面只能是一个语句或一个复合语句。
case语句在使用时有几点要注意：
1. end与case对应；
标号与语句之间用“：”分隔；
else与语句之间不用分隔符。
2. 标号必须是一常量，其类型与表达式的类型一致.
实践：
1.从键盘输入字母，将字母A、B、C 、D或a、b、c、d转换 成1、2、3、4，其余的字符转换成5。
使用嵌套语句
情况语句（CASE语句）
用嵌套的if 语句实现多分支的选择结构。但是如果分
支越来越多时，用嵌套的if语句实现多分支就显得繁杂。
当多分支选择的各个条件由同一个表达式的不同结果 值决定时，可以用case语句实现。它的选择过程，很象一 个多路开关，即由case 语句的选择表达式的值，决定切换 至哪一语句去工作。因此在分支结构程序设计中，它是一 种强有力的手段。在实现多路径分支控制时，用case 对某 些问题的处理和设计，比用if语句写程序具有更简洁、清 晰之感。
（字符型用char作为标识符。字符 型必须用单引号括起来，字母作 为字符型时，大小写是不等价的， 并且字符型只允许单引号中有一 个字符，否则就是字符串。）
2. 编程模拟剪刀、石头、布游戏：用S表示剪刀，用R表示石 头，用P表示布。规则是：剪刀剪布，石头砸剪刀，布包石头。 游戏者分别把自己的选择输入，计算机给出结果。
(三)说明
①情况表达式必须是顺序类型的；
②情况常量是情况表达式可能具有的值，因而应与情况表达式 具有相同的类型；
③情况常量出现的次序可以是任意的； ④同一情况常量不能在同一个case语句中出现两次或两次以上； ⑤每个分语句前可以有一个或若干个用逗号隔开的情况常量； ⑥如果情况表达式的值不落在情况常量的范围内，则认为本case 语句无效，执行case语句的下一个语句。turbo pascal中增加了 一个“否则”的情况,即增加一个else子句，但也是可省的。