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

   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];
   writeln('MIN Z(K5)=',K7);
   writeln(F0,'MIN Z(K5)=',K7);
   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;
     end;{GB7000}
procedure tablF9;
  begin
   write('         Значения F7 для 5% уровня');
   writeln('значимости');
   write('┌───┬──────────────────────────────────');
   writeln('───────────────────────┐');
   write('│ │                   F9    ');
   writeln('               │');



                                           97