Pohybujúca sa kružnica (vertikálne alebo horizontálne)

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: Homework in Pascal

Author: Pheo
web: pascalsource.ic.cz

Program: Pohybk.pas
File exe: Pohybk.exe
need: Egavga.bgi

Pohybujúca sa kružnica (vertikálne alebo horizontálne).
{ 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;
 
     ReadLn;
     CloseGraph;
end.