Форум: "Начинающим";
Текущий архив: 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.048 c
