Umístnení souboru www.TrSek.com/cover/pupak/ghadaj.pas{ 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.