chňa chňa

RANDOM (x) – umožňuje vygenerovať náhodne číslo z intervalu od 0 po x-1

        random (6)+1

RANDOMIZE –ak by ste ho nepoužili a naštartovali program viac krát, vygenerovali by sa vždy rovnaké čísla

–––––– pred random treba preto dať randomize

program milionar;

uses crt;

begin

    clrscr;

    randomize;

    write ('Do kresla pre milionara zasadne sutaziaci:      ');

    writeln ( random (2588)+1);

    readkey;

end.

program setric;

uses crt;

var f,x1,x2,y1,y2:byte;

begin

     clrscr;

     repeat

     randomize;

     repeat

           x1:=random(79)+1;

           x2:=random(79)+1;

           y1:=random(50)+1;

           y2:=random(50)+1;

           f:=random(16);

     until (x1<x2) and (y1<y2);

     window(x1,y1,x2,y2);

     delay(500);

     textbackground(f);

     clrscr;

     until keypressed;

end.