Hra v ktorej musíte uhádnuť aké číslo si myslí počítač

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: KMP (Club of young programmers)

Author: Michael Gloger
Program: Hadaj_cislo.pas
File exe: Hadaj_cislo.exe

Počítač vygeneruje náhodné číslo (1-100) a hráč toto číslo háda. Počítač vypisuje či je číslo väčšie alebo menšie. Jednoduchým zmenením čísla môžete zvýšiť maximálne hľadané číslo.
{ 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.