Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];

Вниз

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. Ище в другом месте.

---

← →
tesseract ©   (2007-01-15 21:54) [5]

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


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

---

← →
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;


---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.056 c