1. Napíšte program, v ktorom sa kružnica bude posúvať po obrazovke vodorovne zľava doprava.
Program pohyb;
uses grafika;
var x: integer;
const biela=15; cierna=0;
begin
for x:=100 to 150 do begin
setcolor(biela); circle(x,100,20);
delay(100);
setcolor(cierna); circle(x,100,20);
end;
end.
0
komentářů
