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

     GB810; GB850;
    end;
16: begin
     GB810; GB850; GB940;
     end;
32: begin
     GB810; GB850; GB940; GB1110;
     end;
 end;{case}
 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('на среднем уровне факторов');




                                                  129