Question

pascal程序写游戏

用pascal写一个游戏，猜数游戏。
1000以内随机生成一个数，比如555，输入600，提示‘HIGH’，输入400，提示‘LOW’。
要注意，要求是提示后继续输入，知道猜中为止。
次数：1:GOD!!!　2~4:Genius！　5~10:Good! 10以上:Stupid！
谢谢了！

Answer 1

var i,r,n,s:integer;
f:boolean;
begin
f:=false;
randomize;
s:=1;
r:=random(1000)+1;
while f<>true do
begin
readln(n);
if n=r then f:=true;
if n<r then writeln('low');
if n>r then writeln('hign');
if n<>r then s:=s+1;
end;
case s of
1:writeln('good!');
2,3,4:writeln('genius!');
5,6,7,8,9,10:writeln('good!');
else writeln('stupid!');
end;
readln;
end.

放心，我验证过了，求采纳啊！