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

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

{$I-}

ReSet(BinFile);

{$I+}

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

itr:=0; { for result without variation }

WriteLn('a try to adjust position Luna reflector ',nscomp);

WriteLn(PrtFile);

WriteLn(PrtFile,'a try to adjust position Luna reflector ',nscomp);

nuc:=0; { simple count }

Repeat

If itr > 0

Then

WriteLn('variation number',itr:3,',',nuc:6,' observations');

ReSet(BinFile);

nuc:=0; { count for selected observations in binary file }

While NOT EOF(BinFile) Do

Begin

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

If obs.nsar = nscomp

Then

Begin

nuc:=nuc+1;

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

DimVar[itr]^[nuc]:=dif; { for variation }

If itr = 0

Then { residual }

DimObs^[nuc]:=VelOfLight*obs.dobs-dif;

End;