нарисовать строфоиду ... данные:
x=a(t^2-1)/(t^2+1)
y=at(t^2-1)/(t^2+1)
t принадлежит (-бескон, + бескон), a>0.
Я не понимаю, как это можно задать... есть в факе пример рисования для функции x(y), но тут ...
uses graph;
procedure put_polar(phi, r: real);
const
mult = 45;
begin
putpixel( (getmaxx div 2) + trunc(mult * r*cos(phi)),
(getmaxy div 2) - trunc(mult * r*sin(phi)), white );
end;
const
a = 5;
var
gd, gm: integer;
phi, r: real;
begin
gd := detect;
initgraph(gd, gm, '');
if graphresult <> grok then halt(100);
phi := -1;
{ построим на интервале fi [-1 .. 1] }
while phi <= 1 do begin
r := a * cos(2*phi) / cos(phi);
put_polar(phi, r);
phi := phi + 0.01;
end;
readln;
closegraph;
end.