Теория и практика математического моделирования в современном литейном производстве. Дурина Т.А. - 69 стр.

    writeln('B(',J,')=',B[J]);
    writeln(F0,'B(',J,')=',B[J]);
  end;
case X of
  2: GB2540;
  4: GB2550;
  8: GB2570;
 16: GB2600;
 32: GB2670;
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=5 then goto 5;
 if I0=30 then goto 3;
 if I0=25 then begin GB2820; 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‐количество опытов на среднем уровне факторов');
     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,')=');
                                                                        69