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

ZR:=StrToInt(ComboBox3.Text);

ZR1:=StrToInt(ComboBox3.Text);

end;

end;

FI:=StrToFloat(Edit1.Text);

if abs(FI)>90 then //захист від помилки

begin

if MessageDlg('Помилка введення географічної широти місця спостереження!'+#13+' Має бути в межах +-90 градусів',

mtError,[mbOK],0)=mrOK then

begin

Edit1.Text:='56';

FI:=StrToFloat(Edit1.Text);

end;

end;

LB:=StrToFloat(Edit2.Text);

if LB<0 then

begin

LB:=360+LB;

end;

i:=0;

if R0=1992 or 1996 or 2000 or 2004 or 2008 or 2012 then //високосні роки

begin

i:=1 //29 лютого

end;

case M0 of //DR номер дня моменту спостереження