一个自己编的小游戏——猜数

来源：互联网发布：h5切水果游戏源码编辑：程序博客网时间：2024/05/01 07:04

语言：pascal
程序简单，通俗易懂，觉得好请点赞= =
坑点：回答限制次数是随机的

uses crt;var  s:longint;  i,n,m,x,y,b,ss:longint;begin   randomize;   ss:=random(20);   while ss<8 do ss:=random(20);   writeln('You can answer ',ss);   s:=random(99999);   while (s<10000) do s:=random(99999);   x:=10000; y:=99999;   repeat     inc(i);     writeln(i,'.');     writeln(x,'~',y);     readln(m);     if m>s then writeln('So big') else     if m<s then writeln('So small') else                 begin                   randomize;                   b:=random(3);                   if b=0 then writeln('+_+') else                   if b=1 then writeln('<>_<>') else                   if b=2 then writeln('$-_-$') else                   if b=3 then writeln('!#._.#!');                 end;     if m>s then if m<y then y:=m;     if m<s then if m>x then x:=m;   until (m=s) or (i=ss);   if m<>s then   begin     writeln('You fried.');     writeln('The real answer is ',s);   end; delay(1000); writeln('Thank you for playing!'); writeln('The game will exit in'); delay(1000); writeln('3'); delay(1000); writeln('2'); delay(1000); writeln('1'); delay(1000);end.

3 0