Программирование на Pascal / Delphi / Лабораторная работа1 / LAB_11

program lab_11;
uses crt,graph;
var
  y,x,mode,driver:integer;
  p,i:real;
begin
driver:=detect;
initgraph(driver,mode,'C:\tp\bgi');
i:=0;
repeat
   i:=i+0.0001;
   p:=1/i*i*i;
   x:=round(5*p*cos(i));
   y:=round(5*p*sin(i));
   putpixel(320+x,240+y,2);
until i>20;
readkey;
i:=0;
repeat
   i:=i+0.0001;
   p:=1/i*i*i;
   x:=round(5*p*cos(i));
   y:=round(5*p*sin(i));
   putpixel(320-x,240+y,3);
until i>20;
readkey;
end.