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

       writeln('Ввод X0-отступ вправо по оси X');
       writeln('(Предпочтительно X=40)');
       writeln('Y0-отступ вниз по оси Y');
       writeln('(Предпочтительно Y0=360)');
       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);
       grDriver := Detect;
       InitGraph(grDriver, grMode,'');
       cleardevice;
       for K5:=1 to K4 do
         begin
           KK7[K5]:=K5*K0;
           KK8[K5]:=K3*KK6[K5];
           line(round(KK7[K5]-X0),round(Y0),
           round(KK7[K5]-X0),round(Y0-KK8[K5]));
         end;

        J6:=0; J6:=X-1;
        J9:=0; K7:=0; K8:=0; J9:=K3*J5;
        for K5:=1 to J6 do
          begin
            KK7[K5]:=K5*K0;
            KK8[K5]:=K3*KK6[K5];
            J7[K5]:=(K5+1)*K0;
            J8[K5]:=K3*KK6[K5+1];
            line(round(KK7[K5]-X0),round(Y0),
            round(J7[K5]-X0),round(Y0));
            line(round(KK7[K5]-X0),round(Y0-J9),
            round(J7[K5]-X0),round(Y0-J9));
            line(round(KK7[K5]-X0),round(Y0-KK8[K5]),
            round(J7[K5]-X0),round(Y0-J8[K5]));
          end;
        readln;
        closegraph;
      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=40)');
    writeln(F0,'Y0-отступ вниз по оси Y');
    writeln(F0,'(Предпочтительно Y0=360)');
    writeln(F0,'K0-длина графика по оси X');
    writeln(F0,'K3-высота графика по оси Y');
    writeln(F0,'X0=',X0,' Y0=',Y0);
    writeln(F0,'K0=',K0,' K3=',K3);
  end;{GB7000}
procedure tablF9;
  begin
    writeln('Значения F7 для 5% уровня знач-ти');
    writeln('┌───┬───────────────────────────┐');
    writeln('│    │            F9             │');

                                      14