[dobrosyn]

Написал код но выдает странную ошыбку, вот код:


procedure TForm1.FormPaint(Sender: TObject);
var x,y:double;
a,fi,dt:real;
BEGIN
with Canvas do begin
Pen.Color := clBlue;
a:=100;
fi:=-pi/2;
dt:=0.1;
x:=a*sqrt(2*(cos(2*fi))*cos(fi)*dt); - видает тут ошыбку
y:=a*sqrt(2*cos((2*fi))*sin(fi)); - видает тут ошыбку
MoveTo( round(x)+400,round(y)+300);
LineTo(round(x)+400,round(y)+300);

Repeat
fi:=fi+dt;
x:=a*sqrt(2*cos(2+fi)*cos(fi)-dt); - видает тут ошыбку
y:=a*sqrt(2*cos(2+fi)*cos(fi)); - видает тут ошыбку
LineTo(round(x)+400,round(y)+300);
sleep(5);

Until fi>pi/2-dt;

end;