Vydělávej až 160.000 Kč měsíčně! Akreditované rekvalifikační kurzy s garancí práce od 0 Kč. Více informací.
Hledáme nové posily do ITnetwork týmu. Podívej se na volné pozice a přidej se do nejagilnější firmy na trhu - Více informací.

Pohyb po kružnici

Nasledujúci algoritmus zariadi pohyb po kružnici pomocou jednoduchých goniometrické funkcie. Body sa pomaly vykresľujú po obvode kružnice.

Delphi:

Var Uhel:Real;

Procedure OpisKruh(X,Y,Radius :Integer; Color:Byte);
Var Px,Py:Integer;
Begin
 Uhel:=0;
 While Uhel <=2*Pi Do Begin
  Px:=Round(X+Cos(Uhel)*    Radius);
  Py:=Round(Y+Sin(Uhel)*    Radius);
  PutPixel(Px,Py,Color);
  Uhel:=Uhel+0.001;
 End;
End;

 

Všetky články v sekcii
Fyzikálne algoritmy
Článok pre vás napísal David Hartinger
Avatar
Užívateľské hodnotenie:
Ešte nikto nehodnotil, buď prvý!
David je zakladatelem ITnetwork a programování se profesionálně věnuje 15 let. Má rád Nirvanu, nemovitosti a svobodu podnikání.
Unicorn university David sa informačné technológie naučil na Unicorn University - prestížnej súkromnej vysokej škole IT a ekonómie.
Aktivity