pascal中Case语句

对于以下节日，输入节日所在的月份，输出节日的名称：元 旦、劳动节、儿童节、建军节、国庆节 分析：1、读入月份；2、常数表对应于月份，相应的语句输 出这个月份1日的节日名称 • • • • • • • • • • • • program jieri(input,output); var month:integer; begin read(month); case month of 1:writeln(month,’1~yuan dan’); 5:writeln(month,’1~lao dong jie’); 6:writeln(month,’1~er tong jie’); 8:writeln(month,’1~jian jun jie’); 10:writeln(month,’1~guo qing jie’); end; end.
被100整除；或者能被400整除的整数年份。B、利用MOD运算可以判断一个题
1、从键盘上读入长方形的边长a,b，计算它的面积和周长，输出。 2、输入一个时、分、秒，把它转换为一个秒数。 3、从键盘读入一个数，判断它的正负。是正数，则输出"+"，是负数，则输出"-"。 4、输入两个数a,b，输出较大数的平方值。 5、铁路托运行李规定：行李重不超过50公斤的，托运费按每公斤0.15元计费；如超 50公斤，超过部分每公斤加收0.10元。编一程序完成自动计费工作。 6、某超市为了促销，规定：购物不足50元的按原价付款，超过50不足100的按九折 付款，超过100元的，超过部分按八折付款。编一程序完成超市的自动计费的工作。 7、输入a,b,c三个不同的数，将它们按由小到大的顺序输出。
8、当前小学生的成绩单由以前的百分制改为优秀、良好、合格、不合格四个等级的等级
制。编一程序完成分数的自动转换工作。转换规则如下：60分以下的为不合格；60 到69分为合格；70到89分为良好；90分以上的为优秀。（提示：可以利用DIV运算 来使程序更简明）
9、打印某年某月有多少天。（提示：A、闰年的计算方法：年数能被4整除，并且不能
输入年月，输出该月的天数
• • • • • • 分析：1、3、5、7、8、10、12:days:=31； 4，6,9,11:days:=30; 2:if 闰年 then days:=29 else days:=28 (闰年是指年号能被4整除，但不能被100整除，或者年号不能被400整 除的年） • (year mod 4 ==0) and (year mod 100 <> 0) or (year mod 400 <>0) (1)输入年（year）和月（month） （2）计算所输入月份的天数
Case语句
例：根据学生的成绩给予相应的等低，对应关系如下： 90----100 A 80----89 B 60----79 C 60以下 D program chengji; var s:real;ch:char; begin write(‘input the score: ’);readln(s); if(s>=0)and(s<=100)then case s div 10 of 10,9:ch:=‘A’; 8:ch:=‘B’; 7,6:ch:='C'; else ch:='D'; end; writeln(s,'--',ch); end.
Case语句
Case语句
Case语句是由一个表达式和众多可选择的操作序列组成。运行时，根据 表达式的求值结果，在众多的分支中选取一个分支执行。其形式为： case 表达式 of 常量1：语句1； 常量2：语句2； …… 常量n：语句n； else 语句 n+1 ｛可选项｝ end; 表达式只能是顺序类型（除了实型以外的简单类型），其值必须是唯一 确定并且和表达式类型相同。case语句执行和表达式值相匹配的case常数所 指向的那条语句，如果没有相匹配的值，则执行else部分（如果有的话）或 者什么也不做。在else前面的语句末尾有分号，这是和if语句不同的。