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

   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('               │');
   write('│F8 ├────┬─────┬─────┬─────┬────┬─────┬');
   writeln('─────┬─────┬─────┬─────┤');
   write('│ │ 2 │ 3 │ 4 │ 8 │ 11 │ 14 │');
   writeln('15-16│19-20│ 24 │26-30│');
   write('├───┼────┼─────┼─────┼─────┼────┼─────┼');
   writeln('─────┼─────┼─────┼─────┤');
   write('│ 2 │19.0│19.16│19.25│19.37│19.4│19.42│');
   writeln('19.43│19.44│19.45│19.46│');
   write('├───┼────┼─────┼─────┼─────┼────┼─────┼');
   writeln('─────┼─────┼─────┼─────┤');
   write('│ 3 │9.55│ 9.28│ 9.12│ 8.84│8.76│ 8.71│');
   writeln(' 8.69│ 8.66│ 8.64│ 8.62│');
   write('├───┼────┼─────┼─────┼─────┼────┼─────┼');
   writeln('─────┼─────┼─────┼─────┤');
   write('│ 4 │6.94│ 6.59│ 6.39│ 6.04│5.93│ 5.87│');
   writeln(' 5.84│ 5.8 │ 5.77│ 5.74│');
   write('├───┼────┼─────┼─────┼─────┼────┼─────┼');
   writeln('─────┼─────┼─────┼─────┤');
   write('│ 5 │5.79│ 5.41│ 5.19│ 4.82│ 4.7│ 4.64│');
   writeln(' 4.6 │ 4.56│ 4.53│ 4.5 │');
   write('├───┼────┼─────┼─────┼─────┼────┼─────┼');
   writeln('─────┼─────┼─────┼─────┤');
   write('│ 6 │5.14│ 4.76│ 4.53│ 4.15│4.03│ 3.96│');
   writeln(' 3.92│ 3.87│ 3.84│ 3.81│');




                                         268