Náhodné číslo

28. 2. 2014 00:00
Při řešení tohoto podprogramu budeme využívat lekce č. 12 - podprogramy. Program si bude myslet nějaké číslo z intervalu a uživatel jej hádá a podle nápověd zjišťuje, zda je číslo menší či větší. Poté se provede jednoduché vyhodnocení hry.
Program rando;
 
Uses CRT;
Var a, nahoda, pokusy, pokus:integer;
 
function nahodne(max:integer):integer ;
begin
randomize;
nahodne:= random(max);
end;
 
begin
 
clrscr;
 
write('Zadejte maximalni cislo na nahodne cislo: ');
readln(a);
nahoda:=nahodne(a);  
pokus:= -1;
pokusy:=0;
 
write('Zacni hadat: ');
readln(pokus);
 
while POKUS <> nahoda do
begin
if nahoda <> pokus then
   begin
   pokusy:= pokusy + 1;
      if nahoda < pokus then
         writeln('Moje cislo je mensi. Ha Ha Ha')
         else
         writeln('Moje cislo je vetsi. Ha Ha Ha');
      write('Zadej nove cislo: ');
      readln(pokus);   
   end;
end;  
 
pokusy:= pokusy + 1;
writeln('Uhadnul jsi moje cislo. Tvych pokusu bylo: ', pokusy);
write('Takze ted k tvemu hodnoceni. Vysledkem je: ');
if pokusy < 4
then
   writeln('Vyborne')
   else
   if pokus < 10
   then 
      writeln('No, da se to brat jako dobre.')
      else
      writeln('Fuj, tvuj odhad je hrozny');
      
readln;
 
end.