Работа со стандартным графическим модулем

[dbrf]

https://psv4.vk.me/c609218/u97665803...OH0o7b6RsBGesY помогите. 17 вариант. срочно надо. умоляю.

[NetSpace]

вот тебе пример как рисуется график. в нём просто x1 и x2 заменишь на свои переменные вот в этом месте.

   x1:=x1-x2*dt;
    x2:=x2+x1*dt;

на типа такое:

 x1:=r*cos(t);
    x2:=r*sin(t);

ну, или какая там у тебя функция. вобщем, дерзай. хоть что-то сам ты же должен сделать.
весь код программы.

program phaseTrack;
uses graph,crt;                   (* подключение графики           *)
var
 t,dt,x1,x2,dx :real;
 gm,gd,msh,k   :integer;
 begin
  clrscr;
  dt:=0.01;
  dx:=1;
  msh:=15;                        (* масштаб                       *)
  gd:=DETECT;                     (* инициализируем графику        *)
  initgraph(gd,gm,'D:\PROGRAM\TP70\BGI');
  line(0,240,640,240);            (* рисуем оси                    *)
  line(320,0,320,480);
  line(320+1*msh,235,320+1*msh,245);
  line(315,240-1*msh,325,240-1*msh);
  outtextxy(320+1*msh,250,'1');
  outtextxy(300,240-1*msh,'1');
  outtextxy(300,0,'x2');
  outtextxy(620,250,'x1');
  x1:=6;
  x2:=6;
  for k:=0 to 5 do
  begin
  t:=0;
   repeat
    MoveTo(round(msh*x1)+320,round(msh*x2)+240);
    x1:=x1-x2*dt;
    x2:=x2+x1*dt;
    LineTo(round(msh*x1)+320,round(msh*x2)+240);
    t:=t+dt;
   until t>100;
   x1:=x1+dx;
  end;
readln;
closegraph;
end.