聪明人的游戏 上课稿第07课199.pptVIP

及时充电 分情况语句 语句格式： case 表达式 of 常数表1：语句1； 常数表2：语句2； …… ： …… 常数表n：语句n； else 语句 n+1 End； Case语句作用 作用：根据表达式的不同情况进行不同的处理。 说明： 1、case与end成对出现，书写特别注意不能漏end。 2、表达式 值要与常数表值同类型，且只能是整型、字符型、布尔型等有序类型。 3、如果不需要，else及后面语句可以省略。 4、所有常数表的常数不能相同，常数表有多个常数时用逗号隔开。 换算能手 计算机能进行长度单位换算吗？ 探索奥秘 输入年份和月份，输出该月份的天数。 展示实力 写出下列程序的运行结果 展示实力 编写程序：让计算机根据你输入的阿拉伯数字（0~9）输出对应的英语单词。 编写程序：将以吨为单位的重量数转换为以千克或克为单位的重量数。 * * 1时=60分 1分=60秒 1吨=1000千克 1千克=1000克 1千米=1000米 1米=10分米 1分米=10厘米 1厘米=10毫米 时间单位 重量单位 长度单位 单位换算关系 Program P1_7_1; Var long :integer; fg:integer; Begin Readln(fg,long); Write(long,’(m)=’); Case fg of 1:Write(long*10,’(dm)’); 2:Write(long*100,’(cm)’); End; End. Program P1_7_4; Var num :byte; Begin Write(’Enter year and month:’); Readln(year,month); Case month of 1,3,5,7,8,10,12:days:=31; 4,6,9,11:days:=30; 2:if (year mod 4=0) and (year mod 1000) or (year mod 400 =0) then days:29; else days:=28; End; Writeln(‘days:’,days); End. Var t:integer; w:real; Begin Readln(t); Case t of 1:w:=t*10; 2:w:=t*20; 3:w:=t*30 End; Writeln(w); End.(运行时输入2) Var sc:integer; gd:char; Begin Readln(sc); Case (sc div 10) of 8,9,10:gd:=‘A’; 6,7:gd:=‘B’; else gd:=‘C’; End; Writeln(gd); End.(运行时输入75)