38
TextColor(7);
gotoxy( 19.9);
writeln(`|--------------------------------------------------------------------------------------------------------------------------------------|`)
gotoxy(19,10);
writeln(`| |`);
gotoxy(19,11);
write (`| `);
TextColor(135);
Write(`ЖДИТЕ`);
TextColor(7);
writeIn(` |`);
gotoxy(19,12);
writeln(`| |`);
gotoxy(19,13);
writeln(`|ВЫПОЛНЯЕТСЯ РАСЧЕТ|`);
gotoxy(19,14);
writeIn(`| |`);
gotoxy(19,15);
writeln (`|____________________________________________________________|`);
end
else begin
swapvectors; exec(CalcTpSubs, CalcTpSubs); swapvectors;
Roc := RocSubs[NsubA[NNIT]]
end;
assign(Fl, IRD); reset(Fl);
if (NsubA[NNIT] = 0) and (NmethKA[NNIT] >= 2) then
readln(Fl, Roc);
if NsubA[NNIT] = 0 then begin
readln(Fl, Hs[1], Hs[2]);
for I := 1 to 2 do begin
Str(Hs[1]:10,HsS);Val(HsS,Hs[1],Code)
end;
end
else begin
Hs[1] := HsSubsl[NSubA[NNIT]];
Hs[2] := HsSubs2[NSubA[NNIT]]
end;
readln(Fl, ROX, KAPPAX, MUX);
close(Fl); erase(Fl);
if NsubA[NNIT] = 0 then str(Roc;6:4, RocStr);
end; {endif}
if (NSubA[NNit] = 0) and (VarRoA[NNit] = 1) and
(NRQ <> 0) then ROX:=RoM;
{ Расчет: 1) диаметров сужающего устройства и измерительного трубопровода при рабочей температуре; 2) коэффициента скорости входа }
Dd := (1.0 + AlfaSU * (Т - 20.0)) * Dd0;
Dt := (1.0 + AlfaT (Т - 20.0)) * Dt0;
Bet := Dd / Dt; Bet4 := sqr(Bet) * sqr(Bet);
ec := 1.0/sqrt(1.0 - Bet4);
{ Расчет коэффициента расширения }
Eps := 1.0;
if NSubA[NNIT] 0 23 then begin