English
English
Slovensky
Slovensky
Česky
Česky
Šarišsky
Šarišsky
Kategória: Zadania Pascal

Autor: Pheo
web: pascalsource.ic.cz

Program: Pohybk.pas
Súbor exe: Pohybk.exe
Potrebné: Egavga.bgi
Pohybujúca sa kružnica (vertikálne alebo horizontálne).
Zobrazené: x


{ 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.
 
 

[Spustiť] [Uložiť] [Tlač] [Poslať e-mailom]