Question

Pascal case语句

Pascal
输入一个百分数，然后用case语句判断
如果大于或等于80%那么就是A等
如果大于或等于60%那么就是B等
如果大于或等于40%那么就是C等
如果大于或等于20%那么就是D等
如果低于20%那么就是E等

Var x:real;m:integer;
Begin
Readln(x);
Case x of
(x>=80%):m:=1;
(x>=60%):m:=2;
(x>=40%):m:=3;
(x>=20%):m:=4;
Writeln;
If m=1 then writeln(‘A’) else
If m=2 then writeln(‘B’) else
If m=3 then writeln(‘C’) else
If m=4 then writeln(‘D’) else
Writeln(‘E’);
End.

哪里错了？

Answer 1

楼主匿名是完全正确的，写了那么多没几句对的，服了。
case必须使用有序类型，浮点是不行滴。建议还是用if else：
var
x: Real;
begin
Readln(x);
if x >= 0.8 then Writeln('A')
else if x >= 0.6 then Writeln('B')
else if x >= 0.4 then Writeln('C')
else if x >= 0.2 then Writeln('D')
else Writeln('E');
Readln;
end.

Answer 2

case 是这样写的

case (expression) of
L1 : S1;
L2: S2;
Ln:Sn;
end;

那些 L1, L2 的意思其实是 label 的意思, 当中你不能用来做运算. 但可以用 range

Case x of
61..81 :m:=1;
41..60:m:=2;
end
还有你忘了这个 end

Answer 3

Var x:real;m:integer;
Begin
Readln(x);
Case x of
(x>=100/80):m:=1;
(x>=100/60):m:=2;
(x>=100/40):m:=3;
(x>=100/20):m:=4;
end;
Writeln;
If m=1 then writeln(‘A’) else
If m=2 then writeln(‘B’) else
If m=3 then writeln(‘C’) else
If m=4 then writeln(‘D’) else
Writeln(‘E’);
End.

Answer 4

case-单词讲解（释义、例句）

Answer 5

拜托，case是不能用浮点类型的，建议使用整型（将读入的数据乘以100）