Теория и практика математического моделирования в современном литейном производстве. Дурина Т.А. - 73 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

73
readln(I0);
ifI0=8thengoto1;
ifI0=9thengoto2;
ifI0=25thengoto3;
ifI0=27thengoto4;
ifI0=17thenbeginGB2820;goto2;end;
ifI0=22thenbeginGB7000;goto5;end;
writeln('Проверкаточностиирасчетыпомодели');
writeln('F(S),H(S),L(S),K(S),M(S)‐1,2,3,4,5факторы');
writeln('гдеS=X=',X,'‐количествоопытовпоплану');
writeln('расчетыпомодели');
writeln(F0,'Проверкаточностиирасчетыпомодели');
writeln(F0,'F(S),H(S),L(S),K(S),M(S)‐1,2,3,4,5факторы');
writeln(F0,'гдеS=X=',X,'‐количествоопытовпоплану');
writeln(F0,'Результатырасчетовпомодели');
ifX=2then
begin
forS:=1toXdo
begin
F[S]:=0;Z[S]:=0;
writeln('ВводF(',S,')');
readln(F[S]);
GB2490;GB2540;
writeln('Z(',S,')=',Z[S]);
end;
OUT_F_H_L(73);
end;
ifX=4then
begin
forS:=1toXdo
begin
F[S]:=0;H[S]:=0;Z[S]:=0;
writeln('ВводF(',S,')H(',S,')');
readln(F[S],H[S]);
GB2490;GB2500;GB2550;
writeln('Z(',S,')=',Z[S]);
end;
OUT_F_H_L(74);
end;
ifX=8then
begin
forS:=1toXdo
begin
F[S]:=0;H[S]:=0;
Z[S]:=0;L[S]:=0;
writeln('ВводF(',S,')H(',S,')L(',S,')');
readln(F[S],H[S],L[S]);
GB2490;GB2500;GB2510;GB2570;
writeln('Z(',S,')=',Z[S]);
readln(I0);
if I0=8 then goto 1;
if I0=9 then goto 2;
if I0=25 then goto 3;
if I0=27 then goto 4;
if I0=17 then begin GB2820; goto 2; end;
if I0=22 then begin GB7000; goto 5; end;
writeln('Проверка точности и расчеты по модели');
writeln('F(S), H(S), L(S), K(S), M(S) ‐ 1,2,3,4,5 факторы');
writeln('где S=X=',X,'‐количество опытов по плану');
writeln('расчеты по модели');
writeln(F0,'Проверка точности и расчеты по модели');
writeln(F0,'F(S), H(S), L(S), K(S), M(S) ‐ 1,2,3,4,5 факторы');
writeln(F0,'где S=X=',X,'‐количество опытов по плану');
writeln(F0,'Результаты расчетов по модели');
if X=2 then
  begin
   for S:=1 to X do
     begin
      F[S]:=0; Z[S]:=0;
      writeln('Ввод F(',S,')');
      readln(F[S]);
      GB2490; GB2540;
      writeln('Z(',S,')=',Z[S]);
     end;
   OUT_F_H_L(73);
  end;
  if X=4 then
  begin
   for S:=1 to X do
     begin
      F[S]:=0; H[S]:=0; Z[S]:=0;
      writeln('Ввод F(',S,') H(',S,')');
      readln(F[S],H[S]);
      GB2490; GB2500; GB2550;
      writeln('Z(',S,')=',Z[S]);
     end;
   OUT_F_H_L(74);
  end;
  if X=8 then
  begin
   for S:=1 to X do
     begin
      F[S]:=0; H[S]:=0;
      Z[S]:=0; L[S]:=0;
      writeln('Ввод F(',S,') H(',S,') L(',S,')');
      readln(F[S],H[S],L[S]);
      GB2490; GB2500; GB2510; GB2570;
      writeln('Z(',S,')=',Z[S]);
                                                                  73

Страницы