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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

59
writeln('vvodX');
readln(X);
writeln('X=',X);
writeln(F0,'ВычисленияпоказателейZ(K5)');
writeln(F0,'поматематическоймодели');
writeln(F0,'сипользованиемциклов');
writeln(F0,'X=',X);
caseXof
2:I0:=73;
4:I0:=74;
8:I0:=75;
16:I0:=76;
32:I0:=77;
end;
ifI0=73then
begin
F3:=0;F4:=0;K5:=0;
writeln('ФакторF(1)=F3+F4');
forJ:=1toXdo
begin
F[J]:=0;Z[J]:=0;
end;
writeln('F4‐шагприращенияфактора');
writeln('X‐количествозначенийфактора');
writeln('ВводпринятыхвеличинXF3F4');
writeln(F0,'F4‐шагприращенияфактора');
writeln(F0,'X‐количествозначенийфактора');
writeln(F0,'ВводпринятыхвеличинXF3F4');
readln(X,F3,F4);
writeln(F0,'X=',X,'F3=',F3,'F4=',F4);
forK5:=1toXdo
begin
F[K5]:=F3+K5*F4;
writeln('F(',K5,')=',F[K5]);
end;
GB2490;GB2540;
forK5:=1toXdo
writeln('Z(',K5,')=',Z[K5]);
OUT_F_H_L(I0);

end;{if}
ifI0=74then
begin
F3:=0;F4:=0;H3:=0;
H4:=0;K5:=0;
writeln('ФакторF(1)=F3+F4');
writeln(F0,'ФакторF(1)=F3+F4');
forJ:=1toXdo
begin
F[J]:=0;H[J]:=0;Z[J]:=0;
writeln('vvod X');
readln(X);
writeln('X=',X);
writeln(F0,'Вычисления показателей Z(K5)');
writeln(F0,' по математической модели');
writeln(F0,' с ипользованием циклов');
writeln(F0,'X=',X);
 case X of
   2: I0:=73;
   4: I0:=74;
   8: I0:=75;
   16: I0:=76;
   32: I0:=77;
 end;
 if I0=73 then
   begin
     F3:=0; F4:=0; K5:=0;
     writeln('Фактор F(1)=F3+F4');
     for J:=1 to X do
      begin
       F[J]:=0; Z[J]:=0;
      end;
     writeln('F4‐шаг приращения фактора');
     writeln('X‐количество значений фактора');
     writeln('Ввод принятых величин X F3 F4');
     writeln(F0,'F4‐шаг приращения фактора');
     writeln(F0,'X‐количество значений фактора');
     writeln(F0,'Ввод принятых величин X F3 F4');
     readln(X,F3,F4);
     writeln(F0,'X=',X,' F3=',F3,' F4=',F4);
     for K5:=1 to X do
      begin
       F[K5]:=F3+K5*F4;
       writeln('F(',K5,')=',F[K5]);
      end;
     GB2490; GB2540;
     for K5:=1 to X do
       writeln('Z(',K5,')=',Z[K5]);
     OUT_F_H_L(I0);
   end;{if}
 if I0=74 then
   begin
     F3:=0; F4:=0; H3:=0;
     H4:=0; K5:=0;
     writeln('Фактор F(1)=F3+F4');
     writeln(F0,'Фактор F(1)=F3+F4');
     for J:=1 to X do
      begin
       F[J]:=0; H[J]:=0; Z[J]:=0;
                                                    59

Страницы