Тригонометричні ефемериди планет Сонячної системи

end;

Label3.Caption:=IntToStr(ZD1);

Label5.Caption:=IntToStr(ZR1);

case ZM1 of

1: Label4.Caption:='січня';

2: Label4.Caption:='лютого';

3: Label4.Caption:='березня';

4: Label4.Caption:='квітня';

5: Label4.Caption:='травня';

6: Label4.Caption:='червня';

7: Label4.Caption:='липня';

8: Label4.Caption:='серпня';

9: Label4.Caption:='вересня';

10: Label4.Caption:='жовтня';

11: Label4.Caption:='листопада';

12: Label4.Caption:='грудня';

end;

if ZAB1<=0 then

ZAB1:=abs(ZAB1)+50

else ZAB1:=50-ZAB1;

y3:=500-(((90-ZAB1)/90)*500);

x3:=((24-ZAA1)/24)*2000;

x4:=int(x3-2.5);

y4:=int(y3-2.5);

x5:=int(x3+2.5);