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

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]);
          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);

                                  10