Obloukový pohyb – Pascal – Fórum – 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.

#1 Ales123
Tak si najdi na internetu rovnici kružnice a souřadnice pozice slunce počítej jako souřadnice bodů na horní části kružnice...

misto

for i:=600 downto 1 do

begin

Kruh1.posun(i,150);

delay(0);

end;

tak

for uhel:=0 to 180  do

begin

x:=polomer*sin(uhel*2*PI/360);
Y:=polomer*cos(uhel*2*PI/360);

Kruh1.posun(x+stredToceniX,y+stredToceniY);

delay(0);

end;

uz nvm jestli pascal bere ve funkci sin() uhel v radianech nebo stupnich pokud je to jen ve stupnich tam tam dej jako parametr jen "uhel"