| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Округление чисел
Progh © (2005-01-29 15:30:00)Как округлить число до целых, десятых, сотых ... ?
Bobby Digital (2005-01-30 22:25:00) [1]>Anatoly Podgoretsky ©
Что ты имеешь введу?
Anatoly Podgoretsky (2005-01-30 13:18:00) [2]Bobby Digital © (30.01.05 01:14) [5]
А ты чего в кусты спрятался?
Shama_n (2005-01-30 13:15:00) [3]//Функция округления числа до ближайшего кратного 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;
Bobby Digital (2005-01-30 01:14:00) [4]>Anatoly Podgoretsky ... я никогда зачем так отвечать на вопрсы? ... охота показать свой интелект? ... человек совершенно понятно задал вопрос, зачем ему читать эту заумную чушь!
uny (2005-01-29 20:19:00) [5]по моим наблюдениям оно так округляет - если после заданного числа двоичных разрядов идёт две единицы - округляется в большую сторону(для положительных) в случаях когда правомерно округлить и в большую и в меньшую сторону - округляется так, что бы получаемое число стало четным
Andy BitOff (2005-01-29 19:15:00) [6]Anatoly Podgoretsky © (29.01.05 16:01) [2]
Круглое число - целое число, остальное логический обман. Кроме того не приходится говорить о десятых, сотых - это аттрибуты десятичных цисел, а число с плавающей запятой основанно на степенях двойки.
Сильно сказано! ;)
Anatoly Podgoretsky (2005-01-29 16:01:00) [7]Круглое число - целое число, остальное логический обман. Кроме того не приходится говорить о десятых, сотых - это аттрибуты десятичных цисел, а число с плавающей запятой основанно на степенях двойки.
Andy BitOff (2005-01-29 15:39:00) [8]RoundTo(1.23423423,-2)
=1.23
| |
