Курсовая работа: Программы освоения Луны

dif : Extended ; { two way delay as calculated }

Begin

ModelCor(0,0,par); { nullo corrections from unit UnParMod }

Assign(BinFile,BinName); { all variables from UnQLBinF }

{$I-}

ReSet(BinFile);

{$I+}

If IOResult <> 0 Then Exit ; { no binary file }

NumObsCur:=0; { var in UnQLBunF count for observations in binary file }

WriteLn(PrtFile);

While NOT EOF(BinFile) Do

Begin

Read(BinFile,obs); { record LaserObs of TLaserObs from UnQLBinF }

NumObsCur:=NumObsCur+1; { the next record }

dif:=ToGetLunaR(obs,par); { simple actions }

ToWriteCurDif(NumObsCur,obs,dif);

End;

Close(BinFile);

End;

Procedure TryMoonReflCoor ( nscomp : Integer ) ;

Var

itr : Byte ; { count for variation }

nuc : Integer ;

obs : TLaserObs ;

par : TParMod ; { from unit UnParMod }

dif : Extended ;

dip : TypeDimM ;

sip : TypeDimM ; { type from UnPseudo }

Begin