Localize file www.TrSek.com/zadania/hrkocka.pas
{ HRKOCKA.PAS               Copyright (c) TrSek alias Zdeno Sekerak }
{ Vytvorte program ktory bude simulovat hadzanie kockou.            }
{ Generuje cisla <1,6> , vypisuje ich na obrazovku a po stlaceni    }
{ klavesy vypise posledne vygenerovane.                             }
{                                                                   }
{ Datum:23.05.2004                             http://www.trsek.com }

program hracia_kocka;
uses crt;

procedure writexy(x,y:integer;s:string);
begin
  gotoxy(x,y);
  write(s);
end;

procedure kocka(hod:integer);
begin
  case hod of
    1:  begin
        writexy(2,2,'     ');
        writexy(2,3,'  o  ');
        writexy(2,4,'     ');
        end;

    2:  begin
        writexy(2,2,'    o');
        writexy(2,3,'     ');
        writexy(2,4,'o    ');
        end;

    3:  begin
        writexy(2,2,'    o');
        writexy(2,3,'  o  ');
        writexy(2,4,'o    ');
        end;

    4:  begin
        writexy(2,2,'o   o');
        writexy(2,3,'     ');
        writexy(2,4,'o   o');
        end;

    5:  begin
        writexy(2,2,'o   o');
        writexy(2,3,'  o  ');
        writexy(2,4,'o   o');
        end;

    6:  begin
        writexy(2,2,'o o o');
        writexy(2,3,'o o o');
        writexy(2,4,'o o o');
        end;
  end;
end;

begin
  Clrscr;
  WriteLn('Generator hracej kocky. Stlac akykolvek klaves pre zastavenie kocky.');
  randomize;

  repeat
    kocka( random(6)+1);
    delay(500);
  until (keypressed);
end.
Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com