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

ComboBox3.ItemIndex:=0;

R0:=StrToInt(ComboBox3.Text);

end;

end;

case PLN of

1: begin Eagth1(EG,ER,ER0,ESD,EH,ER1,EGD, ED,DR);

Mercury1(AD,AG,AR,x,AR0,ASD,AH,AR1,AGD,RM,EG);

Mercury2(AAD1,ARS,AZE,AZP,ABD,AV,AYD,AYDS,AAD0,AAD,AA,AAM,AAS,AID1,AID2,AID,AB,ABM,AF,

ER,AG,EG,AR, AAH,ABG,R0);

Mercury3(AT1,ATK,ATKL,ATKLM,AP,AT2,AT3,ATG,ATS,ATSL,ATSLM,ATZ,ATZL,ATZLM,AZ,AA,EG,k,LB,

AYD,AV,FI,AB, ATKLH,ATSLH,ATZLH,n);end; //запуск процедур в модулях

2: begin Eagth1(EG,ER,ER0,ESD,EH,ER1,EGD, ED,DR);

Venus1(AD,AG,AR,x,AR0,ASD,AH,AR1,AGD,RM,EG);

Venus2(AAD1,ARS,AZE,AZP,ABD,AV,AYD,AYDS,AAD0,AAD,AA,AAM,AAS,AID1,AID2,AID,AB,ABM,AF,

ER,AG,EG,AR, AAH,ABG,R0);

Venus3(AT1,ATK,ATKL,ATKLM,AP,AT2,AT3,ATG,ATS,ATSL,ATSLM,ATZ,ATZL,ATZLM,AZ,AA,EG,k,LB,

AYD,AV,FI,AB, ATKLH,ATSLH,ATZLH,n);end;

3: Eagth1(EG,ER,ER0,ESD,EH,ER1,EGD, ED,DR);

4: begin Eagth1(EG,ER,ER0,ESD,EH,ER1,EGD, ED,DR);

Mars1(AD,AG,AR,x,AR0,ASD,AH,AR1,AGD,RM,EG);

Mars2(AAD1,ARS,AZE,AZP,ABD,AV,AYD,AYDS,AAD0,AAD,AA,AAM,AAS,AID1,AID2,AID,AB,ABM,AF,

ER,AG,EG,AR, AAH,ABG,R0);

Mars3(AT1,ATK,ATKL,ATKLM,AP,AT2,AT3,ATG,ATS,ATSL,ATSLM,ATZ,ATZL,ATZLM,AZ,AA,EG,k,LB,

AYD,AV,FI,AB, ATKLH,ATSLH,ATZLH,n);end;

5: begin Eagth1(EG,ER,ER0,ESD,EH,ER1,EGD, ED,DR);