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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

63
writeln('ВыявлениеMAXZ(K5)иMINZ(K5)');
K8:=0;K8:=Z[1];
forK5:=1toXdo
ifZ[K5]>=K8thenK8:=Z[K5];
begin
writeln('MAXZ(K5)=',K8);
writeln(F0,'MAXZ(K5)=',K8);
end;
forK5:=1toXdo
ifZ[K5]=K8then
begin
writeln('MAXZ(',K5,')=',Z[K5]);
writeln(F0,'MAXZ(',K5,')=',Z[K5]);
end;
K7:=0;K7:=Z[1];
forK5:=1toXdo
ifZ[K5]<=K7thenK7:=Z[K5];
begin
writeln('MINZ(K5)=',K7);
writeln(F0,'MINZ(K5)=',K7);
end;
forK5:=1toXdo
ifZ[K5]=K7then
begin
writeln('MINZ(',K5,')=',Z[K5]);
writeln(F0,'MINZ(',K5,')=',Z[K5]);
end;
writeln('MINZ(K5)=K7,MAXZ(K5)=K8');
writeln('K6(K5)=(Z(K5)+abs(K7))/(abs(K7)+abs(K8))');
writeln(F0,'MINZ(K5)=K7,MAXZ(K5)=K8');
writeln(F0,'K6(K5)=(Z(K5)+abs(K7))/(abs(K7)+abs(K8))');
forK5:=1toXdo
begin
KK6[K5]:=(Z[K5]+abs(K7))/(abs(K7)+abs(K8));
writeln('K6(',K5,')=',KK6[K5]);
writeln(F0,'K6(',K5,')=',KK6[K5]);
end;
J5:=0;
J5:=abs(K7)/(abs(K7)+abs(K8));
writeln('J5:=abs(K7)/(abs(K7)+abs(K8))');
writeln('J5=',J5);
writeln(F0,'J5:=abs(K7)/(abs(K7)+abs(K8))');
writeln(F0,'J5=',J5);
writeln(F0,'Построениеграфика.Excel');
writeln(F0,'ЗависимостьKK6(K5)отфактора');
writeln(F0,'KK6(K5)‐относительнаявеличинапоказателя');
writeln(F0,'K5‐номервеличиныфактораипоказателя');
writeln('ifI0=92thenGB7000');
writeln('ifI0=94thengoto1');
writeln('Выявление MAX Z(K5) и MIN Z(K5)');
K8:=0; K8:=Z[1];
 for K5:=1 to X do
if Z[K5]>=K8 then K8:=Z[K5];
    begin
writeln('MAX Z(K5)=',K8);
writeln(F0,'MAX Z(K5)=',K8);
    end;
for K5:=1 to X do
  if Z[K5]=K8 then
    begin
     writeln('MAX Z(',K5,')=',Z[K5]);
     writeln(F0,'MAX Z(',K5,')=',Z[K5]);
    end;
K7:=0; K7:=Z[1];
for K5:=1 to X do
  if Z[K5]<=K7 then K7:=Z[K5];
    begin
     writeln('MIN Z(K5)=',K7);
     writeln(F0,'MIN Z(K5)=',K7);
    end;
for K5:=1 to X do
  if Z[K5]=K7 then
    begin
     writeln('MIN Z(',K5,')=',Z[K5]);
     writeln(F0,'MIN Z(',K5,')=',Z[K5]);
    end;
writeln('MIN Z(K5)=K7, MAX Z(K5)=K8');
writeln('K6(K5)=(Z(K5)+abs(K7))/(abs(K7)+abs(K8))');
writeln(F0,'MIN Z(K5)=K7, MAX Z(K5)=K8');
writeln(F0,'K6(K5)=(Z(K5)+abs(K7))/(abs(K7)+abs(K8))');
for K5:=1 to X do
  begin
    KK6[K5]:=(Z[K5]+abs(K7))/(abs(K7)+abs(K8));
    writeln('K6(',K5,')=',KK6[K5]);
    writeln(F0,'K6(',K5,')=',KK6[K5]);
  end;
J5:=0;
J5:=abs(K7)/(abs(K7)+abs(K8));
writeln('J5:=abs(K7)/(abs(K7)+abs(K8))');
writeln('J5=',J5);
writeln(F0,'J5:=abs(K7)/(abs(K7)+abs(K8))');
writeln(F0,'J5=',J5);
writeln(F0,'Построение графика. Excel');
writeln(F0,'Зависимость KK6(K5) от фактора');
writeln(F0,'KK6(K5)‐относительная величина показателя');
writeln(F0,'K5‐номер величины фактора и показателя');
writeln('if I0=92 then GB7000');
writeln('if I0=94 then goto 1');
                                                           63

Страницы