Математическое моделирование на языке Турбо-Паскаль. Черный А.А. - 13 стр.

             writeln('M(',K5,')=',M[K5]);
           end;
         GB2490; GB2500; GB2510;
         GB2520; GB2530; GB2670;
         for K5:=1 to X do
             writeln('Z(',K5,')=',Z[K5]);
         OUT_F_H_L(I0);
       end;{if}
     writeln('Выявление MAX Z(K5) и MIN Z(K5)');
     writeln('Ввод I0=90-продолжение');
     K8:=0; K8:=Z[1];
     readln(I0);
      for K5:=1 to X do
     if Z[K5]>=K8 then K8:=Z[K5];
     writeln('MAX Z(K5)=',K8);
     writeln(F0,'MAX Z(K5)=',K8);
     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('Если I0=70, то повторение');
     writeln('вычисления показателей');
     writeln('и построение графиков');
     writeln('Если I0=80, то построение графика');
     readln(I0);
     if I0=70 then GB7000;
1:   K0:=0; K3:=0; K4:=0; K4:=X;
     K7:=0; K8:=0; X0:=0; Y0:=0;
     writeln('Построение графика');
     writeln('Зависимость KK6(K5) от фактора');
     writeln('KK6(K5)-относительная величина показателя');
     writeln('K5-номер величины фактора и показателя');
     writeln('Величина фактора задана');

                                   13