Теория и практика эффективного математического моделирования. Черный А.А. - 372 стр.

      writeln('Z(',K5,')=',Z[K5]);
  OUT_F_H_L(73);
  end;{if}
if I0=62 then
  begin
    case X of
      9: I0:=76;
      12:I0:=77;
      15:I0:=78;
      16:I0:=79;
      20:I0:=80;
      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
           76:begin
                GB4150; GB4170; GB4450;
              end;
           77:begin
                GB4150; GB4250; GB4490;
              end;
           78:begin
                GB4150; GB4340; GB4530;
              end;
           79:begin
                GB4210; GB4250; GB4580;
              end;
           80:begin
                GB4210; GB4340; GB4630;
              end;
           81:begin
                GB4290; GB4340; GB4690;




                                372