修改后.ppt

判断成绩等级，输入某学生成绩，如果86分以上(包括86分）则输出“VERY GOOD” ，如果在60到85之间的则输出“GOOD”(包括60和85)，小于60的则输出“BAD”。 Input 输入只有一行，包括1个整数。 Output 输出只有一行（这意味着末尾有一个回车符号）。 Sample Input 80 Sample Output GOOD * * 13题 program rm13; var a:integer; begin readln(a); if a=86 then write(VERY GOOD); if (a=60) and (a=85) then write(GOOD); if a60 then write(BAD); end. program rm13; var a:integer; begin readln(a); case a of 86..100： write(VERY GOOD); 60..85: write(GOOD); else write(BAD); end; end. program rm13; var a:integer; ch:char; begin readln(a); case a of 86..100: ch:=VERY GOOD; 60..85: ch:=GOOD; else ch:=BAD; end; writeln(ch); end. ch:string; readln(a,b); 3 4 3 4 a b 5 10 t 5 10 5 两数交换 t:=a; a:=b; b:=t 题19：判断三个整数是否相邻--判断三个整数是否相邻，是输出TRUE，否则输出FALSE。 Input 输入只有一行，包括3个整数。 Output 输出只有一行。 Sample Input 1 2 3 Sample Output TRUE program rm19; var a,b,c,t:integer; begin readln(a,b,c); if ab then begin t:=a;a:=b;b:=t; end; if ac then begin t:=a;a:=c;c:=t;end; if bc then begin t:=b;b:=c;c:=t;end; if (a-b1) or (b-c1) then write(FALSE) else write(TRUE); End. 4 3 5 5 3 4 5 4 3 4 3 5 题9：温度转换：编一程序，将摄氏温度换为华氏温度。公式为：f=9/5*c+32。其中f为华氏温度,c是摄氏温度。 Input 输入一行，只有一个整数c Output 输出只有一行，包括1个实数。（保留两位小数） 题10：判断奇偶数：输入一个整数，判断是否为偶数。是输出y e s，否则输出n o。 Input 输入只有一行，包括1个整数。 Output 输出只有一行。 Sample Input 2 Sample Output y e s 题11：行礼托运价格：某车站行李托运收费标准是：10公斤或10公斤以下，收费2.5元，超过10公斤的行李，按每超过1公斤增加1.5元进行收费。 试编一程序，输入行李的重量，算出托运费。 Input 输入只有一行，包括1个整数。 Output 输出只有一行，包括1个数。 （保留两位小数） Sample Input 10 Sample Output 2.50 题12：两数比大小：有A，B两个不相等的数，请将其中较大数打印出来。 Input 输入只有一行，包括2个整数。之间用一个空格分开。 Output 输出只有一行（这意味着末尾有一个回车符号），包括1个整数。 Sample Input 45 78 Sample Output 78