Как округлить число?

← →
Rolt © (2003-11-02 21:03) [0]

Нужно округлить числа после
расчётов с точностью до пяти зноков
после запятой.

← →
Думкин © (2003-11-02 21:12) [1]

RoundTo function type TRoundToRange = -37..37; function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double; Expression Value RoundTo(1234567, 3) 1234000 RoundTo(1.234, -2) 1.23 RoundTo(1.235, -2) 1.24 RoundTo(1.245, -2) 1.24 Note: The behavior of RoundTo can be affected by the Set8087CW procedure or SetRoundMode function.

← →
Rolt © (2003-11-02 21:29) [2]

<h1>Thank</h1>

← →
Dimaxx © (2003-11-02 23:47) [3]

RoundTo(1.245, -2) = 1.24 ?????

Вообще-то, по правилам округления если последняя цифра >=5, то к предыдущей прибавляется 1. То есть правильно RoundTo(1.245, -2) = 1.25

> [3] Dimaxx © (02.11.03 23:47)

Эта тема уже изжевана до нельзя. Может хватит?
По каким таким правилам? Приведи их, и чтобы на них стояла БОЛЬШАЯ, КРУГЛАЯ ПЕЧАТЬ.
Кстати, если не полениться и посмотреть эту функцию, то можно заметить что там и вторая есть - если сия нге нравится - а еще и исходники никто не отменял.

> [3] Dimaxx © (02.11.03 23:47)

http://www.delphikingdom.com/asp/section.asp?ID=16

Там есть статейка что-то на счет "Неочевидные особенно вещественых чисел"
Почитайте.

Как округлить число? Найти похожие ветки