一个简单的程序设计，请高手抽出5分钟时间！！！谢谢了

Question

90-100：优秀
80-89：良好
70-79：中等
60-69：及格
<60:不及格
编制程序，根据用户输入的考试成绩（百分制，若有小数则四舍五入），输出等级。

Answer 1

var x,y:real;
begin
x:=strtofloat(edit1.Text) ;
case trunc(x/10) of
0,1,2,3,4,5:y:=strtoint('不及格');
6:y:=strtoint('及格');
7:y:=strtoint('中等');
8:y:=strtoint('良好');
9:y:=strtoint('优秀');
end;
panel3.Caption :=format('等级：%8.2d',[y]);
edit1.selstart:=0;
edit1.sellength:=length(edit1.text);
这个为什么运行时候输入不了数呢，输入就弹出错误！

Answer 2

strtoint('不及格') 晕 ！'不及格' 怎么转INT 型？

Answer 3

var x:real;
y:string;
begin
x:=strtofloat(edit1.Text) ;
case trunc(x/10) of
0,1,2,3,4,5:y:='不及格';
6:y:='及格';
7:y:='中等';
8:y:='良好';
9:y:='优秀';
end;
panel1.Caption :=format('等级：%s',[y]);
edit1.selstart:=0;
edit1.sellength:=length(edit1.text);
end;

Answer 4

眼熟,看起来好像是抄别人C写的程序,又不熟悉delphi语法才这样的.

Answer 5

y:=strtoint('不及格'); 楼主太牛了，强烈推荐你做微软的CEO

Answer 6

try
  I := trunc(strtofloat(editor.text))case I of
  90..100: Caption := '优秀';
  80..89: Caption := '良好';
  70..79: Caption := '中等';
  60..69: Caption := '及格';
  0..59: Caption := '不及格';
else
  Caption := '非法成绩';
end;except :  
  Caption := '非法输入';
end;