Sqrt непашет

← →
daron © (2007-01-15 18:57) [0]

c:=Sqrt(0.05647474);
c:=Sqrt(SQR(Bx-Xc)+SQR(By-Yc));

обе строки возвращают с=0. я перепробовал уже все виды типов с плавающей точкой - пипец. в чем маза не понимаю.
По контрол+ф7 в режиме отладки выражение Sqrt(0.05647474)возвращаяет нормальное значение. Нифига не пойму почему оно не присваивается.

← →
Джо © (2007-01-15 18:58) [1]

Ты как его (значение) выводишь-то?

← →
PZ (2007-01-15 19:49) [2]

Может быть c : integer; (?)

← →
Джо © (2007-01-15 20:15) [3]

> Может быть c : integer; (?)

Не скомпилируется.

← →
Kolan © (2007-01-15 21:23) [4]

Дело не в Sqrt. Ище в другом месте.

> Нифига не пойму почему оно не присваивается.

Оптимизация может быть? Далее в области видимости "с" используется?

← →
PZ (2007-01-16 08:11) [6]

Вот такой пример: результаты получаются нормальные
Const Bx = 1.234; Xc = 1.716; By = 3.909; Yc = 3.222; procedure TForm1.Button1Click(Sender: TObject); Var C : Real; begin c := Sqrt(0.05647474); ShowMessage(FormatFloat("0.0000", C)); // 0,2376 c := Sqrt(SQR(Bx-Xc)+SQR(By-Yc)); ShowMessage(FormatFloat("0.0000", C)); // 0,8392 end;

Sqrt непашет Найти похожие ветки