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

1: begin DR:=D0 ; n:=0 ; k:=-0.040;end; //з початку року

2: begin DR:=31+D0; n:=0;k:=-0.094;end;

3: begin DR:=59+i+D0; n:=0;k:=-0.13;end; //n мітка пори року 0- зима ,1- літо

4: begin DR:=59+i+31+D0 ; n:=1;k:=-0.131;end;

5: begin DR:=59+i+61+D0; n:=1;k:=-0.103;end; //k середня поправка зоряного часу

6: begin DR:=59+i+92+D0; n:=1;k:=-0.051;end;

7: begin DR:=59+i+122+D0; n:=1;k:=0.013;end;

8: begin DR:=59+i+153+D0; n:=1;k:=0.073;end;

9: begin DR:=59+i+184+D0; n:=1;k:=0.107;end;

10: begin DR:=59+i+214+D0; n:=0;k:=0.114;end;

11: begin DR:=59+i+245+D0; n:=0;k:=0.083;end;

12: begin DR:=59+i+275+D0; n:=0;k:=0.028;end;

end;

S0:=int((12-M0)/10); // формула 1

P0:=int((S0*12+M0-2)*30.59+D0);

RM:=int((R0-S0-1900)*365.25+P0); //номер дати спостереження з 1 березня 1900р.

if RM<=32851 then // захист від помилки

begin

if MessageDlg('Помилка введення дати спостереження!'+#13+' Має бути не раніше 9 січня 1990р.',

mtError,[mbOK],0)=mrOK then

begin

ComboBox1.ItemIndex:=8;

D0:=StrToInt(ComboBox1.Text);

ComboBox2.ItemIndex:=0;

M0:=1;

ComboBox3.ItemIndex:=0;

R0:=StrToInt(ComboBox3.Text);

end;