Question

请用pascal编写一个猜数字的游戏程序

用循环语句
如果玩家猜的次数在1次 则输出：you are smart!
如果玩家猜的次数在2 次与 5次 之间（包括5次）则输出：you are clever!
如果玩家猜的次数在6次 与10次之间（包括10次）则输出：you are right!
如果玩家猜的次数大于10 则输出：you are foolish!

Answer 1

{不知道楼主要猜的数字范围是多少, 就打个比方, 是0到20以内的数字}
var
RadomNum: Byte; {随机生成一个数字}
ReadNum: Byte; {用户输入, 记录猜的数字}
i: Byte; {记录猜的次数}
ExitCondition: Boolean; {退出条件}
begin
Randomize; {初始化随机数}
RadomNum := Random(21); {0..20一共21个数}
i := 0; {初始化次数}
repeat
ExitCondition := False;
Readln(ReadNum);
inc(i);
if (ReadNum = RadomNum) or (i >= 21) then
ExitCondition := True; {如果才对或者猜的次数达到21次就退出}
until ExitCondition = True;
case i of
1: Writeln('you are smart!');
2..5: Writeln('you are clever!');
6..10: Writeln('you are right!');
11..21: Writeln('you are foolish!');
end;
Readln;
end.

Answer 2

不太明白你说什么？
怎么猜。那就先假设猜的数是读入。然后只判断对不对不判断大小吧。
var tot,standard,n:longint;
begin
readln(standard);{读入你让对方猜的数}
while true do
begin
readln(n)；
inc(tot);
if n=standard then
begin
if tot=1 then writeln('you are smart!');
if (tot>=2)and(tot<=5) then writeln('you are clever!');
if (tot>=6)and(tot<=10) then writeln('you are right!');
if (tot>10) then writeln('you are foolish!');
halt;
end;
end;
end.
不懂+QQ1003545371