English
English
Slovensky
Slovensky
Česky
Česky
Šarišsky
Šarišsky
Kategória: Reťazce

Program: Hadaj.pas
Bude hádať aké si myslíš číslo. Interval je pevne určení. Program vám kladie otázky typu "či je číslo väčšie ako.." alebo "či je číslo menšie ako ..", na ktoré vy odpovedáte len áno alebo nie.
Zobrazené: x


{ HADAJ.PAS                 Copyright (c) TrSek alias Zdeno Sekerak }
{ Vytvorte program ktory bude hladat vami vymyslene cislo z vopred  }
{ urceneho intervalu. Program vam kladie otazky typu "ci je cislo   }
{ vacsie ako.." alebo "ci je cislo mensie ako ..", na ktore vy      }
{ odpovedate len ano alebo nie.                                     }
{                                                                   }
{ Datum:23.05.2004                             http://www.trsek.com }
 
program hadaj_cislo;
uses crt;
 
const MAX_C=100;
      MIN_C=-100;
 
var min,max:integer;
    stred:integer;
    kl:char;
 
begin
  WriteLn('Budem hadat ake si myslis cislo.');
  WriteLn('Odpovedaj a-ano, n-nie');
  WriteLn('Mysli si cislo od ',MIN_C, ' do ', MAX_C );
 
  min:=MIN_C;
  max:=MAX_C;
 
  repeat
    stred := trunc((min + max)/2);
    WriteLn('Je cislo vacsie ako cislo ',stred );
    kl := readkey;
 
    if((kl='a') or (kl='A'))then
       min:=stred+1
    else
       max:=stred;
 
  until (min=max);
 
  WriteLn('Hladane cislo je:', min );
  ReadLn;
end.
 

[Uložiť] [Tlač] [Poslať e-mailom]