Улучшение способов получения пористых материалов и изделий на основе изобретений и моделирования. Черный А.А. - 168 стр.

   K4:=0;
   writeln('Факторы F(1)=F3+F4, H(1)=H3+H4, L(1)=L3+L4');
   writeln('Факторы K(1)=K3+K4');
   writeln(F0,'Факторы F(1)=F3+F4, H(1)=H3+H4, L(1)=L3+L4');
   writeln(F0,'Факторы K(1)=K3+K4');
   for J:=1 to X do
     begin
      F[J]:=0; H[J]:=0; L[J]:=0; K[J]:=0; Z[J]:=0;
     end;
   writeln('F4,H4,L4,K4-шаг приращения 1,2,3,4-го фактора');
   writeln('X-количество значений 1,2,3,4-го фактора');
   writeln(F0,'F4,H4,L4,K4-шаг приращения 1,2,3,4-го фактора');
   writeln(F0,'X-количество значений 1,2,3,4-го фактора');
   writeln('Ввод принятых величин');
   writeln('X F3 F4 H3 H4 L3 L4 K3 K4');
   readln(X,F3,F4,H3,H4,L3,L4,K3,K4);
   writeln(F0,'X=',X,' F3=',F3,' F4=',F4);
   writeln(F0,'H3=',H3,' H4=',H4);
   writeln(F0,'L3=',L3,' L4=',L4);
   writeln(F0,'K3=',K3,' K4=',K4);
   for K5:=1 to X do
     begin
      F[K5]:=F3+K5*F4;
      writeln('F(',K5,')=',F[K5]);
      H[K5]:=H3+K5*H4;
      writeln('H(',K5,')=',H[K5]);
      L[K5]:=L3+K5*L4;
      writeln('L(',K5,')=',L[K5]);
      K[K5]:=K3+K5*K4;
      writeln('K(',K5,')=',K[K5]);
     end;
   GB2490; GB2500;GB2510;
   GB2520; GB2600;
   for K5:=1 to X do
      writeln('Z(',K5,')=',Z[K5]);
   OUT_F_H_L(I0);
  end;{if}
if I0=77 then
  begin
   K5:=0; F3:=0; F4:=0; H3:=0;
   H4:=0; L3:=0; L4:=0; K3:=0;
   K4:=0; M3:=0; M4:=0;
   writeln('Факторы F(1)=F3+F4, H(1)=H3+H4, L(1)=L3+L4');
   writeln('Факторы K(1)=K3+K4, M(1)=M3+M4');
   writeln(F0,'Факторы F(1)=F3+F4, H(1)=H3+H4, L(1)=L3+L4');
   writeln(F0,'Факторы K(1)=K3+K4, M(1)=M3+M4');
   for J:=1 to X do
     begin
      F[J]:=0; H[J]:=0; L[J]:=0;
      K[J]:=0; M[J]:=0; Z[J]:=0;
     end;
   writeln('F4,H4,L4,K4,M4-шаг приращения 1,2,3,4,5-го фактора');

                                      168