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

              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;




                                                      74