ВУЗ:
Составители:
222
write('Y(',J,')=');
readln(Y[J]);
writeln(F0,'Y(',J,')=',Y[J]);
end;
case X of
5: GB4290;
25:begin
GB4290; GB4340;
end;
end;{case}
GB1410;
case X of
5: begin GB2000; GB2020; end;
25:begin GB1480; GB1600; GB1670; GB1730; GB1830; 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
5: GB4420;
25:GB4690;
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)-результаты опытов');
write('Y(',J,')='); readln(Y[J]); writeln(F0,'Y(',J,')=',Y[J]); end; case X of 5: GB4290; 25:begin GB4290; GB4340; end; end;{case} GB1410; case X of 5: begin GB2000; GB2020; end; 25:begin GB1480; GB1600; GB1670; GB1730; GB1830; 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 5: GB4420; 25:GB4690; 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)-результаты опытов'); 222
Страницы
- « первая
- ‹ предыдущая
- …
- 220
- 221
- 222
- 223
- 224
- …
- следующая ›
- последняя »