napisal som si takyto program:
Kód: Vybrať všetko
program setric;
uses grafika;
var x1,x2,y1,y2:integer;
begin
randomize;
x1:random (600);
x2:random (600);
y1:random (440);
y2:random (440);
setcolor (5);
rectangle (x1,y1,x2,y2);
readln;
end.ked vymenim kniznicu grafika za graph - tak sice nenapise nic ale preskoci mi to na ciernu obrazovku asi len na stotinu sekundy a potom naspat na pascalovske prostredie...
hodim vam sem aj vsetky tpu co mam a moju instalacku tp v zipe
poprosim o rychlu radu, lebo zacinam sediviet - a to neni dobre...
