Основы изобретательства и научных исследований. Черный А.А. - 188 стр.

     writeln('Z(',K5,')=',Z[K5]);
   OUT_F_H_L(74);
 end;{if}
writeln('Выявление MAX Z(K5) и MIN Z(K5)');
writeln(F0,'Выявление 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');

                                      188