Математическое моделирование с применением графических построений в ЕХСЕL. Черный А.А. - 80 стр.

   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('Величина фактора заданы');
      writeln('Ввод X0-отступ вправо по оси X');
      writeln('(Предпочтительно X=5)');
      writeln('Y0-отступ вниз по оси Y');
      writeln('(Предпочтительно Y0=180)');
      writeln('K0-длина графика по оси X');
      writeln('K3-высота графика по оси Y');
      writeln('Было X0=',X0,' Y0=',Y0);
      writeln('Было K0=',K0,' K3=',K3);
      writeln('Введите X0 Y0 K0 K3');
      readln(X0,Y0,K0,K3);
      writeln('Ввод I0=75, то повторение построения графика');
   writeln('Ввод I0=85, то полное повторение построения графика');
   writeln('Ввод I0=95, то выход из программы');
   write('I0=');
   readln(I0);
   if I0=75 then goto 1;
  until not(I0=85);
  writeln(F0,'Построение графика');
  writeln(F0,'Зависимость KK6(K5) от фактора');
  writeln(F0,'KK6(K5)-относительная величина показателя');
  writeln(F0,'K5-номер величины фактора и показателя');
  writeln(F0,'Величина фактора задана');
  writeln(F0,'Ввод X0-отступ вправо по оси X');
  writeln(F0,'(Предпочтительно X=5)');
  writeln(F0,'Y0-отступ вниз по оси Y');
  writeln(F0,'(Предпочтительно Y0=180)');
  writeln(F0,'K0-длина графика по оси X');
  writeln(F0,'K3-высота графика по оси Y');
  writeln(F0,'X0=',X0,' Y0=',Y0);
  writeln(F0,'K0=',K0,' K3=',K3);
  writeln(F0,'где');
  writeln(F0,'X0-отступ вправо по оси X');
  writeln(F0,'Y0-отступ вниз по оси Y');
  writeln(F0,'K0-длина графика по оси X');
  writeln(F0,'K3-длина графика по оси Y');
 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│');

                                              80