上课无聊的时候在玩这个
－－－－－－－－－－－－－－－
源码
program Guessinggame;
var n,a,c:integer;
begin
repeat；
randomize;
writeln(*这里有一个在0～1000之间的数字，来猜猜看？*);
n:=random(999)+1;
c:=0;
repeat
readln(a);
c:=c+1;
if a=8886 then exit;
if a<n then writeln(a，*低了。再猜一次：*）；
if a>n then writeln(a,*高了。再猜猜吧~*);
if a=n then writeln(*对了！就是*,n,*!你所费次数：*,c,*。再来玩一次吧～退出请输入8886。*);
until a=n;
until a=8886；
end.

其实我想说，凡是用了random()的猜数字游戏我都不屑于玩。。