11–CASE语句〔分情况语句〕.pptVIP

* * CASE语句（分情况语句） IF 语句有一个致命的缺点——就是只能对两种情况做出判断，即： 是或不是。如果有多种情况就要采用复合的IF语句， 这又为编程带来了一些不方便，同时也为以后的阅读程序、修改程序带 来了不方便。比如说下面的情况： 编程：程序功能：实现把数字的星期几变成英文的星期几。 也就是说：在键盘上输入一个1，那么就显示：MONDAY。输入一个2， 就显示TUESDAY。 想想用IF语句来实现这个程序应该如何做？ 这个时候我们就可以用到一种分情况的语句：CASE语句。 使用它可以轻松实现上述程序的功能. PROGRAM JJZX（INPUT，OUTPUT）； VAR J：INTEGER BEGIN WRITELN（’请输入数字‘）； READLN（J）； CASE J OF 1: WRITELN(‘MONDAY’); 2: WRITELN(‘TUESDAY’); 3: WRITELN(‘THURSDAR’); 4: WRITELN(‘WENSDAY’); 5: WRITELN(‘FRIDAY’); 6: WRITELN(‘SATURDAY’); 7: WRITELN(‘SUNDAY’)；（*注意此处有分号*） ELSE WRITELN(‘输入的数据不合法’) （*注意此处无分号*） END END. 此 处 就 是 CASE 语 句 的 全 部 结 构 CASE语句的使用方法是： CASE 变量 （或者是表达式） OF 值1，值2，值3：语句1； 值4，值5：语句2； …… ELSE 语句 END ELSE部分可以没有 程序执行过程：当程序执行到CASE语句部分的时候，首先要先得到变量的值， 然后在到下面去找看跟哪个值一样，发现一样的话就执行后面的那个语句。 如果 都没有的话就执行ELSE那个语句，如果没有ELSE语句就跳过ELSE部分执行后面的。 看看下面的程序段将怎样执行： I：=3； CASE I OF 1，2，3：WRITELN（’YES’）； 4：WRITELN（’NO’）； ELSE WRITELN（’OK！’） END 注意：是冒号！ 注意：有分号！ 注意：无分号！ 继续深入学习CASE语句部分： 例如：从键盘上输入一个月份的数字，请显示这个月有几天。有的月有31天，有的只有30天，还有2月只有28天（不考虑闰年）。 　　　想想怎么编？？ PROGRAM JJZX（INPUT，OUTPUT）； VAR MONTH，DAY：INTEGER； L：BOOLEAN； BEGIN WRITELN（’请输入月份：‘）； READLN（MONTH）； L：=TRUE； CASE MONTH OF 9，4，6，11： DAY：=30； 2： DAY：=28； 1，3，5，7，8，10，12：DAY：=31；