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

       end;
    15:begin
         GB4150; GB4340;
       end;
    16:begin
         GB4210; GB4250;
       end;
    20:begin
         GB4210; GB4340;
       end;
    25:begin
         GB4290; GB4340;
       end;
    27:begin
         GB4150; GB4170; GB4190;
       end;
    end;{case}
  GB1410;
  case X of
    4: GB2000;
    5: begin GB2000; GB2020; end;
    9: begin GB1480; end;
    12:begin GB1480; GB1600; end;
    15:begin GB1480; GB1600; GB1670; end;
    16:begin GB1480; GB1600; GB1930; end;
    20:begin GB1480; GB1600; GB1670; GB1730; end;
    25:begin GB1480; GB1600; GB1670; GB1730; GB1830; end;
    27:begin GB1480; GB2040; end;
  end;
  writeln('B(J) до анализа');
  writeln(F0,'B(J) до анализа');
  for J:=1 to X do
    begin
      writeln('B(',J,')=',B[J]);
      writeln(F0,'B(',J,')=',B[J]);
    end;
  case X of
    3: GB4390;
    4: GB4400;
    5: GB4420;
    9: GB4450;
    12:GB4490;
    15:GB4530;
    16:GB4580;
    20:GB4630;
    25:GB4690;
    27:GB4770;
    else goto 2;
  end;
  OUT_Z_B;
4:writeln('-----------------<Меню 2>--------------------');
  writeln('Если I0=3, то ввод результатов опытов');
  writeln('на среднем уровне факторов');
  writeln('Если I0=4, то ввод дисперсии опытов');
  writeln('Если I0=5, то проверка точности и расчеты по модели');
  writeln('Если I0=6, то переход в начало программы');
  writeln('Если I0=20, то переход в конец программы');
  writeln('Если I0=25, то вывод математической модели');
  writeln('Если I0=27, то вычисление показателей Z(K5)');
  writeln('с использованием циклов и построение графика');
  writeln('Если I0=30, то переход к меню 1');
  write('Ввод I0=');
  readln(I0);
  if I0=6 then goto 1;

                                     52