30
1.5,1.5,1.5,1.5,2.5,2.5,3.5,4.5,4.5,4.5);
label
1;
begin { LinVent2 }
DL:=0.0;
case NRA[I] of
10: forJ := 1 to 10 do Lvent[J] := Lvent12[J];
4: forJ := 1 to 10 do Lvent[J] = Lvent22[J];
5: forJ := 1 to 10 do Lvent[J] = Lvent32[J];
6: forJ := 1 to 10 do Lvent[J] = Lvent42[J];
11: forJ := 1 to 10 do Lvent[J] := Lvent52[J];
end;
if BET < ВЕТI[1] then begin L1:=Lvent[1]; goto 1 end;
if BET > BETI[10] then begin L1:=Lvent[10]; goto 1 end;
for J := 1 to 9 do
if (BET >= BETI[J]) and (BET <= ВЕТ[J+1]) then begin
L1:=Lvent[J]+(Lvent[J+1]-Lvent[J])*(BET-BETI[J])/0.05; goto 1
end;
1: if LRA[I] < L1 then DL:=0.5
end; { LinVent2 }
begin { С }
IERR:=0;
case NSUZA[NNIT] of
0: if BET <= 0.6 then EC0 := 0.6 else EC0:= BET;
1: if BET <= 0.6 then EC0 := 0.8 else EC0:= 2*BET-0.4;
2: EC0:= 1.2+1.5*r_(BET,4.0);
3: begin
EC0:=0.7;
if Re <= 6.e4 then EC0 := 2.5;
if (Re > 6.e4) and (Re <= 1.e5) then EC0 := 2.0;
if (Re > 1.e5) and (Re <= 1.5e5) then EC0 := 1.5;
if (Re > 1.5e5) and (Re <= 2.0e5) then EC0 := 1.0
end;
4: begin
EC0:=1.0;
if Re <= 4.e4 then EC0 := 3.0;
if (Re > 4.e4) and (Re <= 1.2e5) then EC0 := 2.5;
if (Re > 1.2e5) and (Re <= 2.0e5) then EC0 := 1.5
end;
5: begin
EC0:=1,5;
if Re <= 6.e4 then EC0 := 3.0;
if (Re > 6.e4) and (Re <= 2.e5) then EC0 := 2.5
end;
end;
if NSUZA[NNit] <= 2 then begin
if (NRA[1] = 7) and (LRA[1] < 22.0) then begin IERR:=1; goto 1 end;
if (NRA[1] = 13) and (LRA[1] < 3.0) then begin IERR:=1; goto 1 end;
if LRA[1] < 5.0 then begin IERR:=1; goto 1 end;
end
else begin
if (NRA[1] = 10) or (NRA[1] = 4) or (NRA[1] = 5) or