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

        writeln(F0,'P(J)=H(J)^',J2,'+',V2);
        writeln(F0,'Обозначение:H(J)- 2-ой фактор');
      end;
    if (X=8)or(X=16)or(X=32) then
      begin
        writeln(F0,'U(J)=L(J)^',J3,'+',V3);
        writeln(F0,'Обозначение:L(J)- 3-ий фактор');
      end;
    if (X=16)or(X=32) then
      begin
        writeln(F0,'Q(J)=K(J)^',J4,'+',V4);
        writeln(F0,'Обозначение:K(J)- 4-ый фактор');
      end;
    if (X=32) then
      begin
        writeln(F0,'V(J)=M(J)^',J5,'+',V5);
        writeln(F0,'Обозначение:M(J)- 5-ый фактор');
      end;
  end;{GB2820}
procedure GB7000;
  label 1;
  begin
    repeat
      writeln('Вычисления показателей Z(K5)');
      writeln(' по математической модели');
      writeln('    с ипользованием циклов');
      writeln('    и построение графиков');
      writeln(F0,'Вычисления показателей Z(K5)');
      writeln(F0,' по математической модели');
      writeln(F0,'    с ипользованием циклов');
      writeln(F0,'    и построение графиков');
        case X of
          2: I0:=73;
          4: I0:=74;
          8: I0:=75;
          16: I0:=76;
          32: I0:=77;
        end;
        if I0=73 then
          begin
            F3:=0; F4:=0; K5:=0;
            writeln('Фактор F(1)=F3+F4');
            for J:=1 to X do
              begin
                F[J]:=0; Z[J]:=0;
              end;
            writeln('F4-шаг приращения фактора');
            writeln('X-количество значений фактора');
            writeln('Ввод принятых величин X F3 F4');
            writeln(F0,'F4-шаг приращения фактора');
            writeln(F0,'X-количество значений фактора');
            writeln(F0,'Ввод принятых величин X F3 F4');
            readln(X,F3,F4);
            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]);




                                   321