Hra na hádanie čísla ktoré si myslí počítač

Category: KMP (Club of young programmers)

Author: Juraj Pupák
Program: Ghadaj.pas
File exe: Ghadaj.exe

{ GHADAJ.PAS                                                        }
{ Hra na hadanie cisla ktore si mysli pocitac.                      }
{                                                                   }
{ Author: Juraj Pupak                                               }
{ Date  : 27.10.2006                           http://www.trsek.com }
 
program Game2;
uses crt;
 
Function Generovanie(number : integer) : integer;
var
  number2 : integer;
begin
  writeln('Zadaj cislo');
  readln(number2);
  IF (number > number2) THEN
     begin
       writeln('Cislo je vacsie');
     end;
 
  IF number < number2 THEN
     begin
       writeln('Cislo je mensie');
     end;
  Generovanie := number2;
end;
 
var
  number : integer;
  number2 : integer;
 
begin
 clrscr;
 Randomize;
 number := Random(100) + 1;
 writeln('Myslim si cislo hadaj ake.');
 Repeat
  number2 := Generovanie(number);
 Until number = number2;
 writeln('Uhadol si. Hadane cislo je ',number);
 readln;
end.