Комплекс компьютерных программ эффективного математического моделирования на языке Турбо Паскаль. Черный А.А. - 267 стр.

      F[J]:=0; H[J]:=0; L[J]:=0; Z[J]:=0;
    end;
   X:=0;
   writeln('F4,H4,L4-шаг приращения 1,2,3-го фактора');
   writeln('X-количество значений 1,2,3-го фактора');
   writeln(F0,'F4,H4,L4-шаг приращения 1,2,3-го фактора');
   writeln(F0,'X-количество значений 1,2,3-го фактора');
   writeln('Ввод принятых величин');
   writeln('X,F3,F4,H3,H4,L3,L4');
   readln(X,F3,F4,H3,H4,L3,L4);
   writeln(F0,'X=',X,' F3=',F3,' F4=',F4);
   writeln(F0,'H3=',H3,' H4=',H4);
   writeln(F0,'L3=',L3,' L4=',L4);
   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]);
      GB4150; GB4170;
      GB4190; GB4770;
    end;{for}
    for K5:=1 to X do
      writeln('Z(',K5,')=',Z[K5]);
    OUT_F_H_L(75);
 end;{if}
writeln('Выявление MAX Z(K5) и MIN Z(K5)');
writeln(F0,'Выявление MAX Z(K5) и MIN Z(K5)');
writeln('Ввод I0=90-продолжение');
K8:=0; K8:=Z[1];
readln(I0);
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];
writeln('MIN Z(K5)=',K7);
writeln(F0,'MIN Z(K5)=',K7);
for K5:=1 to X do
 if Z[K5]=K7 then
   begin
    writeln('MIN Z(',K5,')=',Z[K5]);
    writeln(F0,'MIN Z(',K5,')=',Z[K5]);
   end;
writeln('MIN Z(K5)=K7, MAX Z(K5)=K8');
writeln('K6(K5)=(Z(K5)+abs(K7))/(abs(K7)+abs(K8))');
writeln(F0,'MIN Z(K5)=K7, MAX Z(K5)=K8');




                                               267