Umiestnenie súboru www.TrSek.com/zadania/hra_oko.pas{ HRA_OKO.PAS Copyright (c) Pheo }
{ Hra OKO – náhodné generovanie hodnôt od 2 do 11 (okrem 5,6). }
{ Hráè si pýta kartu, kým súèet neprekroèí 21. }
{ }
{ Datum:11.04.2005 http://www.trsek.com }
program hra_oko;
uses crt;
var b,i,s:integer;
x:string;
a:array[0..10] of integer;
begin
clrscr;
randomize;
s:=0;
repeat
a[i]:=(random(10)+2);
while (a[i]=5) or (a[i]=6) do
a[i]:=(random(10)+2);
writeln('Mas zatial - ',s);
writeln('este? (a/n)');
x:=readkey;
if x='a' then s:=s+a[i];
until (s>=21) or (x<>'a');
if s>=22 then writeln('trop')
else writeln('vysledok = ',s);
b:=random(30);
writeln('Bankar tahal: ',b);
if b>21 then
begin
writeln('bankar trop');
writeln('vyhral si');
end
else if (b>=s) or (s>=22) then
writeln('prehral si') else writeln('vyhral si');
repeat until keypressed;
end.