Округление чисел

← →
Progh (2005-01-29 15:30) [0]

Как округлить число до целых, десятых, сотых ... ?

← →
Andy BitOff © (2005-01-29 15:39) [1]

RoundTo(1.23423423,-2)
=1.23

← →
Anatoly Podgoretsky © (2005-01-29 16:01) [2]

Круглое число - целое число, остальное логический обман. Кроме того не приходится говорить о десятых, сотых - это аттрибуты десятичных цисел, а число с плавающей запятой основанно на степенях двойки.

← →
Andy BitOff © (2005-01-29 19:15) [3]

Anatoly Podgoretsky © (29.01.05 16:01) [2]
Круглое число - целое число, остальное логический обман. Кроме того не приходится говорить о десятых, сотых - это аттрибуты десятичных цисел, а число с плавающей запятой основанно на степенях двойки.

Сильно сказано! ;)

← →
uny © (2005-01-29 20:19) [4]

по моим наблюдениям оно так округляет - если после заданного числа двоичных разрядов идёт две единицы - округляется в большую сторону(для положительных) в случаях когда правомерно округлить и в большую и в меньшую сторону - округляется так, что бы получаемое число стало четным

← →
Bobby Digital © (2005-01-30 01:14) [5]

>Anatoly Podgoretsky ... я никогда зачем так отвечать на вопрсы? ... охота показать свой интелект? ... человек совершенно понятно задал вопрос, зачем ему читать эту заумную чушь!

//Функция округления числа до ближайшего кратного X
//X- До каких округлять: 1- до целых, 0.1- до десятых, 5- до кратных пяти и.т.д.
function RoundToX(RoundValue:currency;X:Currency):Currency; var QuantityX: integer; RoundToNull: currency; begin QuantityX := Trunc(RoundValue/X); RoundToNull := X * QuantityX; if RoundValue < (RoundToNull + X/2) then Result := RoundToNull else Result := RoundToNull + X; end;

Округление чисел Найти похожие ветки