Применение вычислительной техники при моделировании - 57 стр.

   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]);
       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;
    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;
 if I0=4 then
   begin
    writeln('Ввод U9-дисперсия опытов');
    readln(U9);
    writeln(F0,'Дисперсия опытов U9=',U9);
   end;
 if not(I0=5) then
  begin
   writeln('Расчетные величины T(J)');
   writeln(F0,'Расчетные величины T(J)');
   for J:=1 to X do
    begin

                                                  57