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

      end;
    GB2490; GB2540;
    for K5:=1 to X do
        writeln('Z(',K5,')=',Z[K5]);
    OUT_F_H_L(I0);
  end;{if}
if I0=74 then
  begin
    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]);
      end;
    GB2490; GB2500; GB2550;
    for K5:=1 to X do
      writeln('Z(',K5,')=',Z[K5]);
    OUT_F_H_L(I0);
  end;{if}
if I0=75 then
  begin
    K5:=0; F3:=0; F4:=0; H3:=0;
    H4:=0; L3:=0; L4:=0;
    writeln('Факторы F(1)=F3+F4, H(1)=H3+H4, L(1)=L3+L4');
    writeln(F0,'Факторы F(1)=F3+F4, H(1)=H3+H4, L(1)=L3+L4');
    for J:=1 to X do
      begin
        F[J]:=0; H[J]:=0; L[J]:=0; Z[J]:=0;
      end;
    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);




                            322