Форум: "Основная";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];
Вниз
Округление чисел Найти похожие ветки
← →
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 ... я никогда зачем так отвечать на вопрсы? ... охота показать свой интелект? ... человек совершенно понятно задал вопрос, зачем ему читать эту заумную чушь!
← →
Shama_n © (2005-01-30 13:15) [6]//Функция округления числа до ближайшего кратного 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;
← →
Anatoly Podgoretsky © (2005-01-30 13:18) [7]Bobby Digital © (30.01.05 01:14) [5]
А ты чего в кусты спрятался?
← →
Bobby Digital © (2005-01-30 22:25) [8]>Anatoly Podgoretsky ©
Что ты имеешь введу?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.038 c
