Umiestnenie súboru www.TrSek.com/cover/gloger/hadaj_cislo.pas

{ HADAJ_CISLO.PAS                      Copyright (c) Michael Gloger }
{ Pocitac vygeneruje nahodne cislo (defaultne 1-100) a hrac toto    }
{ cislo hada pomocou vypisov pocitaca ci je cislo vacsie alebo      }
{ mensie. Jednoduchym zmenenim par cisiel mozete zvysit maximalne   }
{ hladane cislo                                                     }
{                                                                   }
{ Datum:13.01.2007                             http://www.trsek.com }

program Hadaj_cislo;
        uses crt;
        var x,y:integer;
begin
  begin
    randomize;
    for x:=1 to 101 do;
  end;

x:=random(101);
writeln('Hadaj cislo od 0-100');

repeat
  TextColor(yellow);
  write('Tipuj! ');
  TextColor(green);
  readln(y);

  TextColor(white);
  if y>x then writeln('    -Uber-');
  if y<x then writeln('    +Pridaj+');

until y=x;

if y=x then begin
  writeln('                                                                  // ');
  writeln('  /////   /////   /////      /////    //   //   ///    //  /////  // ');
  writeln('  //      // //   // //      // //    //   //   // /   //  //     // ');
  writeln('  /////   /////   ////      //   //    // //    //  /  //  ////   // ');
  writeln('     //   //      // //     ///////     ///     //   / //  //        ');
  writeln('  /////   //      //  //   //     //     /      //    ///  /////  // ');
  TextColor(yellow);
  writeln('                       Spravne cislo je ', (x));
  readln;
end;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com