Улучшение способов получения пористых материалов и изделий на основе изобретений и моделирования. Черный А.А. - 148 стр.

    GB2520; GB2530;
    end;
end;{case}
GB780;
case X of
4: GB810;
8: begin
    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

                                          148