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

 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
   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,')=');
        readln(G[J]);
        writeln(F0,'G(',J,')=',G[J]);
       end;
     SS:=0;




                                                 154