Hra OKO

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: Homework in Pascal

Author: Pheo
web: pascalsource.ic.cz

Program: Hra_oko.pas
File exe: Hra_oko.exe

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.
{ 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.