Проблема с округлением

← →
keymaster © (2004-11-18 13:07) [0]

Имеем число:

383.45

Надо округлить его по правилам математики.
Пишем:

RoundTo(383.45, -1)

Получаем 383.4

Как так?

← →
Игорь Шевченко © (2004-11-18 13:09) [1]

Читать статью Антона Григорьева на Королевстве Delphi про числа с плавающей точкой и режимы округления.

← →
TUser © (2004-11-18 13:51) [2]

> Как так?

Округлилось до ближайшего четного. Т.н. бухгалтерское округление - так работает ф-ция Round

← →
keymaster © (2004-11-18 14:29) [3]

>Округлилось до ближайшего четного. Т.н. бухгалтерское округление - так работает ф-ция Round

В курсе.
Но надо чтобы было как математика учит.

← →
Verg © (2004-11-18 14:57) [4]

= trunc(x) + trunc( frac(x)*2 )

← →
GuAV © (2004-11-18 17:32) [5]

А где Defunct с его версией ? :-)

trunc(x+0.5)

> А где Defunct с его версией ? :-)

А мне уже этот вопрос надоел. ;)
Пусть думают, не такая уж и сложная задача.