Anonymní profil Ales123 – Programujte.com

Dobrý den, chtěl bych pomoct s programem kde mám nakreslené slunce, které se pohybuje z východu na západ, potřebuji aby pohyb slunce nebyl přímočarý ale obloukový (jako duha) a nevím jak na to.

Program Pohyb_slunce;

Uses Graph,obr5,crt;

Var kruh1:kruh;
i,r,p: integer;

Begin
r:=50;

p:=2*r;
gd:=detect;

Initgraph(gd,gm,'');

kruh1.init(1500,150,r);
setfillstyle(1,yellow);
kruh1.zobraz;

for i:=600 downto 1 do

begin

Kruh1.posun(i,150);

delay(0);

end;

Kruh1.Skryj;

readln;

CloseGraph;
End.