Очередная ошибка точности???!!!

← →
wp2 (2005-08-01 02:05) [0]

var a, b: Real;
begin
a := 10;
b := 0.2;
Edit1.Text := IntToStr(Trunc(a/b)) // выводит 49!!!
End;

Если использовать вместо Trunc функцию Int, то результат будет тот же!!!

И что мне теперь делать?
Прибавить к a/b число 0,00000001 что ли?
А есть ли другой способ?

Round мне не нужен.

← →
Eraser © (2005-08-01 02:15) [1]

wp2 (01.08.05 02:05)

Попробуй Round.

← →
wp2 (2005-08-01 02:26) [2]

Раунд мне не нужен. Так как логика программы требует отсечения
дробной части.

← →
Lexa (2005-08-01 02:36) [3]

x := 10/0.2;
intToStr(Trunc(x));

← →
Silver... © (2005-08-01 03:16) [4]

FloatToStr(RoundTo(a/b, 0))
или VarToStr(RoundTo(a/b, 0))

← →
Lexa (2005-08-01 03:45) [5]

> Silver... ©

[3],[4] - результат один и тот же

← →
SergP © (2005-08-01 03:54) [6]

Может тебе
var a, b: Currency;
подойдет в данном случае?

← →
Admido (2005-08-01 14:48) [7]

A чего слелать то надо? 50 получить? =]

Edit1.Text := FormatFloat("#0", a/b); // 50 :) Edit2.Text := FloatToStr(a/b); // 50 :)

← →
Чапаев © (2005-08-01 14:51) [8]

> Раунд мне не нужен. Так как логика программы требует отсечения
дробной части.
Так какие претензии? Trunc тебе дробную часть и отсёк...

Тяжёлый случай...

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=374

← →
vrem (2005-08-01 17:33) [11]

Перевести a и b в целые числа, избавиться от дробной части
затем делить, можно даже используя div - т.е. так, что бы дробная часть результата вообще не влияла ни на что.
в примере будет 100 делить на 2

Очередная ошибка точности???!!! Найти похожие ветки