[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;

[Дикарь]

Во первыч сам бы без ошибок сначала писать научился
Во вторых попробуй поставить

Код:

...
var
x,y:real;
...

и от этого плясать дальше

[Aristarh Dark]

Вообще-то корень квадратный из отрицательного числа не вычисляется.

[dobrosyn]

Странно поставил real, но все равно не работает! Все та же ошыбка.

[dobrosyn]

HELP, не работает!

[Aristarh Dark]

читай вот это, я ж неспроста это написал