Математическое моделирование на языке Турбо-Паскаль. Черный А.А. - 74 стр.

  writeln('X-количество значений фактора');
  writeln('Ввод принятых величин X F3 F4');
  readln(X,F3,F4);
  writeln(F0,'F4-шаг приращения фактора');
  writeln(F0,'X-количество значений фактора');
  writeln(F0,'X=',X,' F3=',F3,' F4=',F4);
  for K5:=1 to X do
    begin
      F[K5]:=F3+K5*F4;
      writeln('F(',K5,')=',F[K5]);
    end;{for}
  case I0 of
    73:begin
         GB4150; GB4390;
       end;
    74:begin
         GB4210; GB4400;
       end;
    75:begin
         GB4290; GB4420;
       end;
    end;{case}
  for K5:=1 to X do
      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

                                  74