主题:高手留步
裴晚辰
[专家分:0] 发布于 2005-03-17 19:08:00
输入一个学生的成绩
自动判断它是及格(60分以上),优生(80-100),不及格(60以下),和作废(100以上).
[em18][em18][em18][em18][em18][em18][em10][em10][em10][em10][em10][em18][em18][em18][em10][em10][em10]
回复列表 (共5个回复)
沙发
MK [专家分:110] 发布于 2005-03-18 19:36:00
var a:integer;
begin
readln(a);
if a<60 then writeln('Bu Ji Ge');
if (a>=60)and(a<80) then writeln('Ji Ge');
if (a>=80)and(a<=100)then writeln('You');
if a>100 then writeln('Zuo Fei');
end.
板凳
天才少年987987987 [专家分:1420] 发布于 2005-03-19 18:48:00
楼上人有大漏洞!!!!!!!!!
若测试数据为 -13
你的程序输出为 bu ji ge
aiaiaiaiaiai!!!!!!!!!
3 楼
裴晚辰 [专家分:0] 发布于 2005-03-22 19:30:00
[em12][em12][em12][em12][em12][em12][em12][em11][em11]对不起,请你把程序步骤说清楚[em8][em8][em8][em18][em18][em12][em12][em12]
4 楼
yvonne [专家分:20] 发布于 2005-03-22 20:57:00
为什么不用case?
5 楼
gooboy [专家分:20] 发布于 2005-03-23 17:56:00
var a:integer;
b:real;
begin
read(b);
a:=b div 10;
case a of
1,2,4,5:writeln('bu ji ge');
6,7:writeln('ji ge');
8,9,10:writeln('you');
end.
大概就是这样子
我来回复