Комплекс компьютерных программ эффективного математического моделирования на языке Турбо Паскаль. Черный А.А. - 35 стр.

        writeln('Z(',K5,')=',Z[K5]);
      OUT_F_H_L(I0);
    end;{if}
  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');
  write('I0=');
  readln(I0);
  if I0=92 then GB7000;
  if I0=94 then goto 1;
1: until I0=94;




                                               35