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

    writeln('X-количество значений 1,2,3,4,5-го фактора');
    write(F0,'F4,H4,L4,K4,M4-шаг приращения');
    writeln(F0,' 1,2,3,4,5-го фактора');
    writeln(F0,'X-количество значений 1,2,3,4,5-го фактора');
    writeln('Ввод принятых величин');
    writeln('X F3 F4 H3 H4 L3 L4 K3 K4 M3 M4');
    readln(X,F3,F4,H3,H4,L3,L4,K3,K4,M3,M4);
    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);
    writeln(F0,'M3=',M3,' M4=',M4);
    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]);
       M[K5]:=M3+K5*M4;
       writeln('M(',K5,')=',M[K5]);
     end;
    GB2490; GB2500; GB2510;
    GB2520; GB2530; GB2670;
    for K5:=1 to X do
       writeln('Z(',K5,')=',Z[K5]);
    OUT_F_H_L(I0);
  end;{if}
writeln('Выявление MAX Z(K5) и MIN Z(K5)');
K8:=0; K8:=Z[1];
 for K5:=1 to X do
if Z[K5]>=K8 then K8:=Z[K5];
writeln('MAX Z(K5)=',K8);
writeln(F0,'MAX Z(K5)=',K8);
for K5:=1 to X do
  if Z[K5]=K8 then
    begin
     writeln('MAX Z(',K5,')=',Z[K5]);
     writeln(F0,'MAX Z(',K5,')=',Z[K5]);
    end;
K7:=0; K7:=Z[1];
for K5:=1 to X do
  if Z[K5]<=K7 then K7:=Z[K5];
    begin
     writeln('MIN Z(K5)=',K7);
     writeln(F0,'MIN Z(K5)=',K7);
    end;
for K5:=1 to X do
  if Z[K5]=K7 then

                                        169