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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

74
end;
OUT_F_H_L(75);
end;
ifX=16then
begin
forS:=1toXdo
begin
F[S]:=0;H[S]:=0;K[S]:=0;
L[S]:=0;Z[S]:=0;
writeln('ВводF(',S,')H(',S,')L(',S,')K(',S,')');
readln(F[S],H[S],L[S]);
GB2490;GB2500;GB2510;
GB2520;GB2600;
writeln('Z(',S,')=',Z[S]);
end;
OUT_F_H_L(76);
end;
ifX=32then
begin
forS:=1toXdo
begin
F[S]:=0;H[S]:=0;L[S]:=0;
K[S]:=0;M[S]:=0;Z[S]:=0;
writeln('ВводF(',S,')H(',S,')L(',S,')');
readln(F[S],H[S],L[S]);
writeln('ВводK(',S,')M(',S,')');
readln(K[S],M[S]);
GB2490;GB2500;GB2510;
GB2520;GB2530;GB2670;
writeln('Z(',S,')=',Z[S]);
end;
OUT_F_H_L(77);
end;
2:writeln('‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐<Меню4‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐');
writeln('ЕслиI0=10,топроверкаточности');
writeln('ирасчетыпомодели');
writeln('ЕслиI0=14,товычисления');
writeln('показателейZ(K5)сиспользованием');
writeln('циклов');
writeln('ЕслиI0=35,топереходкменю1');
writeln('ЕслиI0=18,топереходкменю2');
writeln('ЕслиI0=19,топереходкменю3');
writeln('ЕслиI0=50,топереходвначалопрограммы');
writeln('ЕслиI0=44,товыходизпрограммы');
write('ВводI0=');
readln(I0);
if(I0=11)thengoto1;
ifI0=18thengoto4;
if(I0=19)or(I0=10)thengoto5;
    end;
  OUT_F_H_L(75);
 end;
 if X=16 then
 begin
  for S:=1 to X do
    begin
     F[S]:=0; H[S]:=0; K[S]:=0;
     L[S]:=0; Z[S]:=0;
     writeln('Ввод F(',S,') H(',S,') L(',S,') K(',S,')');
     readln(F[S],H[S],L[S]);
     GB2490; GB2500; GB2510;
     GB2520; GB2600;
     writeln('Z(',S,')=',Z[S]);
    end;
  OUT_F_H_L(76);
 end;
 if X=32 then
 begin
  for S:=1 to X do
    begin
     F[S]:=0; H[S]:=0; L[S]:=0;
     K[S]:=0; M[S]:=0; Z[S]:=0;
     writeln('Ввод F(',S,') H(',S,') L(',S,')');
     readln(F[S],H[S],L[S]);
     writeln('Ввод K(',S,') M(',S,')');
     readln(K[S],M[S]);
     GB2490; GB2500; GB2510;
     GB2520; GB2530; GB2670;
     writeln('Z(',S,')=',Z[S]);
    end;
  OUT_F_H_L(77);
 end;
2:writeln('‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐<Меню 4‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐');
 writeln('Если I0=10, то проверка точности');
 writeln('и расчеты по модели');
 writeln('Если I0=14, то вычисления ');
 writeln('показателей Z(K5) с использованием');
 writeln('циклов');
 writeln('Если I0=35, то переход к меню 1');
 writeln('Если I0=18, то переход к меню 2');
 writeln('Если I0=19, то переход к меню 3');
 writeln('Если I0=50, то переход в начало программы');
 writeln('Если I0=44, то выход из программы');
 write('Ввод I0=');
 readln(I0);
 if (I0=11) then goto 1;
 if I0=18 then goto 4;
 if (I0=19)or(I0=10) then goto 5;
                                                            74

Страницы