Umístnení souboru www.TrSek.com/zadania/pohybk.pas{ POHYBK.PAS Copyright (c) Pheo }
{ Pohybujúca sa kružnica (vertikálne alebo horizontálne). }
{ }
{ Datum:11.04.2005 http://www.trsek.com }
Program Pohybk;
Uses
Crt, Graph;
Var
gd, gm : Integer;
x, y : Word;
Begin
gd:=VGA; gm:=VGAHi;
InitGraph(gd, gm, '');
x:=0; y:=220;
Repeat
Inc(x);
SetColor(Yellow); Circle(x, y, 20);
delay(1000);
SetColor(Black); Circle(x, y, 20);
Until x>630;