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

   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;
      for J:=1 to N0 do SS:=SS+G[J];
      S0:=SS/N0;

     writeln('S0=',S0);
     SS:=0; writeln(F0,'S0=',S0);
     for J:=1 to N0 do SS:=SS+(G[J]-S0)*(G[J]-S0);
     U9:=SS/F8;
     writeln('Дисперсия опытов U9=',U9);
     writeln(F0,'Дисперсия опытов U9=',U9);
   end;




                                   331