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

   4: GB2000;
   5: begin GB2000; GB2020; end;
   9: begin GB1480; end;
   12:begin GB1480; GB1600; end;
   15:begin GB1480; GB1600; GB1670; end;
   16:begin GB1480; GB1600; GB1930; end;
   20:begin GB1480; GB1600; GB1670; GB1730; end;
   25:begin GB1480; GB1600; GB1670; GB1730; GB1830; end;
   27:begin GB1480; GB2040; end;
 end;
 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
   3: GB4390;
   4: GB4400;
   5: GB4420;
   9: GB4450;
   12:GB4490;
   15:GB4530;
   16:GB4580;
   20:GB4630;
   25:GB4690;
   27:GB4770;
   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);




                                                492