Umiestnenie súboru www.TrSek.com/cover/ghostix/vygenerovane_obdlzniky.pas{ OBDLZNIKY.PAS Copyright (c) ghostix }
{ Program vykresli nahodne 3 odblzniky. }
{ }
{ Author: Ghostix }
{ Date : 06.12.2007 http://www.trsek.com }
program obdlzniky;
uses graph;
var i,r,s,j,x,y,gd,gm:integer;
procedure grafika;
begin
gd:=detect;
initgraph(gd,gm,'');
end;
procedure obdlznik;
begin
randomize;
for i:=1 to 3 do
begin
x:=random(500);
y:=random(500);
rectangle(random(x),random(y),random(x),random(y));
end;
end;
begin
grafika;
cleardevice;
obdlznik;
readln;
closegraph;
end.