Question

修改一下pascal的超简单的游戏程序 猜数字

var
y,i:longint;
n:1..100;
begin
random(n);
for i:=1 to 10 do
begin
readln(y);
if y=n then writeln('YOU WIN');exit;
if y<n then writeln('TOO SMALL');
if y>n then writeln('TOO BIG');
end;
writeln('YOU LOSE');
end.
请问哪里有问题，感激不尽！！

Answer 1

if y=n then writeln('YOU WIN');exit;

改成

if y=n then
  begin
    writeln('YOU WIN');
    readln;
    halt;
  end;

追问

我结合了你和2楼的意见，终于成功了。可是两个人我不能同时采纳，你说我怎么办？你和2楼商量一下吧...

追答

随意。要不你写个随机数程序决定吧。。

追问

果然是超级编程达人！！让我想想....

Answer 2

在random(n)上边加上

randomize;

这是随机数种子,必须加上它才能正常产生随机数.

而且我觉得应该这么写:

n:=random(100);

希望我的回答能帮到你.

追问

我结合了你和4楼的意见，终于成功了。可是两个人我不能同时采纳，你说我怎么办？你和4楼商量一下吧...

Answer 3

没问题

！