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

  OUT_F_H_L(73);
  end;{if}
if I0=62 then
  begin
   case X of
     25:I0:=81;
   end;
  F3:=0; F4:=0; H3:=0;
  H4:=0; K5:=0;
  writeln('Фактор F(1)=F3+F4');
  writeln(F0,'Фактор F(1)=F3+F4');
   for J:=1 to X do
      begin
        F[J]:=0; H[J]:=0; Z[J]:=0;
      end;
     writeln('F4-шаг приращения 1-го фактора');
     writeln('Фактор H(1)=H3+H4');
     writeln('H4-шаг приращения 2-го фактора');
     writeln('X-количество значений 1,2-го фактора');
     writeln('Ввод принятых величин X F3 F4 H3 H4');
     writeln(F0,'F4-шаг приращения 1-го фактора');
     writeln(F0,'Фактор H(1)=H3+H4');
     writeln(F0,'H4-шаг приращения 2-го фактора');
     writeln(F0,'X-количество значений 1,2-го фактора');
     readln(X,F3,F4,H3,H4);
     writeln(F0,'X=',X,' F3=',F3,' F4=',F4);
     writeln(F0,'H3=',H3,' H4=',H4);
     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]);
        case I0 of
         81:begin
            GB4290; GB4340; GB4690;
           end;
        end;{case}
        writeln('Z(',K5,')=',Z[K5]);
      end;{for}
      for K5:=1 to X do
        writeln('Z(',K5,')=',Z[K5]);
     OUT_F_H_L(74);
   end;{if}
  writeln('Выявление MAX Z(K5) и MIN Z(K5)');
  writeln(F0,'Выявление 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];
     begin
  writeln('MAX Z(K5)=',K8);
  writeln(F0,'MAX Z(K5)=',K8);
     end;
  for K5:=1 to X do
   if Z[K5]=K8 then
     begin
      writeln('MAX Z(',K5,')=',Z[K5]);




                                                 199