[ilya21rus]

не получается нарисовать овал декарта помгите пожалуйста 2 день мучаюсь

(x2+y2–2x)2–22(x2+y2)+1=0 если поможет

Код:

procedure TForm1.Button8Click(Sender: TObject);
var
r,theta,t,u,u1:integer;
a,tx,ty,x,g:single;
begin
r:=5;
canvas.Pen.Color:=clred;
for theta:=1 to 360 do
begin
g:=(theta*pi)/180;
tx:=r*sin(t)*cos(t)*cos(t);
ty:=r*cos(t)*sin(t)*sin(t);
//y=R*sin(t);
//x= R*cos(t);
u:=round(tx*10);
u1:=round(ty*10);
if theta=1 then canvas.MoveTo(u1+w2,u+h2)
else
canvas.LineTo(u+w2,u1+h2);

end;
end;