SHARE
TWEET

Угадай число! 2.0

slogger1994 Jan 31st, 2012 129 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program ugadaichislo;
  2. var a,b,c,d,f:integer;
  3. label mod1, mod2, mod3, modr, modre;
  4. begin
  5. modre:  writeln('Выберите режим игры');
  6.         writeln('1 - Промежуток от 0 до 100');
  7.         writeln('2 - Промежуток от 0 до 1000');
  8.         writeln('3 - Промежуток от 0 до 1000000000');
  9.         writeln('4 - Промежуток от 0 до X');
  10.         readln(c);
  11.         if c=1 then goto mod1;
  12.         if c=2 then goto mod2;
  13.         if c=3 then goto mod3;
  14.         if c=4 then goto modr;
  15.         if c<0 then goto modre;
  16.         if c>5 then goto modre;
  17.         d:=0;
  18. mod1:   begin
  19.                 a:=random(100);
  20.                 repeat
  21.                         d:=d+1;
  22.                         readln(b);
  23.                         if a<b then writeln('Загадонное число меньше');
  24.                         if a>b then writeln('Загадонное число больше');
  25.                 until a=b;
  26.                 writeln('Число угадано!');
  27.         end;
  28. mod2:   begin
  29.                 a:=random(1000);
  30.                 repeat
  31.                         d:=d+1;
  32.                         readln(b);
  33.                         if a<b then writeln('Загадонное число меньше');
  34.                         if a>b then writeln('Загадонное число больше');
  35.                 until a=b;
  36.                 writeln('Число угадано!');
  37.         end;
  38. mod3:   begin
  39.                 a:=random(1000000000);
  40.                 repeat
  41.                         d:=d+1;
  42.                         readln(b);
  43.                         if a<b then writeln('Загадонное число меньше');
  44.                         if a>b then writeln('Загадонное число больше');
  45.                 until a=b;
  46.                 writeln('Число угадано!');
  47.         end;
  48. modr:   begin
  49.                 writeln('Введите ваш промежуток');
  50.                 readln(f);
  51.                 a:=random(f);
  52.                 repeat
  53.                         d:=d+1;
  54.                         readln(b);
  55.                         if a<b then writeln('Загадонное число меньше');
  56.                         if a>b then writeln('Загадонное число больше');
  57.                 until a=b;
  58.                 writeln('Число угадано!');
  59.         end;
  60. writeln('Время: ',Milliseconds/1000);
  61. writeln('Число попыток: ',d);
  62. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top