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

 writeln(F0,'Показатели Y(J)');
 for J:=1 to X do
   begin
     write('Y(',J,')=');
     readln(Y[J]);
     writeln(F0,'Y(',J,')=',Y[J]);
   end;
 case X of
 2: GB2490;
 4: begin
     GB2490; GB2500;
    end;
 8: begin
     GB2490; GB2500; GB2510;
    end;
16: begin
     GB2490; GB2500; GB2510; GB2520;
    end;
 end;{case}
 GB780;
 case X of
 4: GB810;
 8: begin
     GB810; GB850;
    end;
16: begin
     GB810; GB850; GB940;
     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;
 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;




                                                   16