Программирование на 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.