37
1.41682,0.16639,1.1644,0.0838);
CalcTpNg = TpNg.exe; CalcTpSubs = TpSubs.exe;
begin { QCalc }
ifNRQOO then begin
{Расчет физических свойств среды}
assign(Fl, IRD); rewrite(Fl);
if NsubA[NNIT] = 0 then begin
writeln(Fl, NMethKA[NNIT]);
if NMETHKA[NNIT] >= 2 then begin
IBeg .= 1,
repeat
I Fin .= IBeg + 3;
for I .= IBeg to IFin do write(Fl, YR[I]:14,BL);
writeln(Fl);IBeg :== IFin + 1
until IBeg > 16;
end
else begin
if NVARYA[NNIT] = 0 then begin
Roc := 0.0; for I := 1 to 16 do Roc := Roc + YR[I]* Rocii[I];
Zc := 0.0; for I := 1 to 16 do Zc := Zc + YR[I] * Bi[I];
Roc :== Roc/(1.0 - sqr(Zc));
Ya:=YR[11]; Yy:=YR[12];
end; {endif}
writeln(Fl. Roc:14, Bl, Ya:14, Bl, Yy:14)
end
end
else
writeln(Fl, NSubA[NNIT]);
writeln(Fl, P:l4, Bl, T:14);
close(Fl);
TextColor(7);
gotoxy( 19.9);
writeln(`|-------------------------------------------------------------------------------------------------------------------------------------------|`)
gotoxy(19,10);
writeln(`| |`);
gotoxy(19,11);
write(`| `);
TextColor(135);
Write (`Ж Д И Т Е`);
TextColor(7);
writeln(` |`);
gotoxy(19,12);
writeln(`| |`);
gotoxy(19,13);
writeln(`|ВЫПОЛНЯЕТСЯ РАСЧЕТ|`);
gotoxy(19,14);
writeIn(`| |`);
gotoxy(19,15);
writeln(`|____________________________________________________________|`);
if NSubA[NNIT] = 0 then begin
gotoxy(21,12);
swapvectors; exec(CalcTpNg, CalcTpNg); swapvectors;