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

  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;
  if I0=20 then goto 2;
  if I0=30 then goto 3;
  if I0=25 then begin GB4880; goto 2; end;
  if I0=27 then begin GB7000; goto 2; end;
  if (I0=3)or(I0=4) then
    begin
      writeln('Ввод N0-количество опытов на среднем уровне факторов');
      readln(N0);
      writeln(F0,'Количество опытов на среднем уровне факторов N0=',N0);
      writeln('Ввод F8=N0-1');
      readln(F8);
      writeln(F0,'F8=N0-1=',F8);
    end;
  if I0=3 then
    begin
      writeln('Ввод G(J)-результаты опытов');
      writeln('на среднем уровне факторов');
      writeln(F0,'G(J)-результаты опытов');
      writeln(F0,'на среднем уровне факторов');
      for J:=1 to N0 do
        begin
          write('G(',J,')=');
          readln(G[J]);




                                   348