Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Bless © (2005-01-13 09:37:00)
Как сделать, чтобы функция round(x) округляла х, если оно ровно посредине между двумя числами, в большую сторону, а не к ближайшему четному.
То есть, обычно функция round работает так:
round(4.1)=4
round(4.6)=5
round(4.5)=4
round(5.5)=6

А мне нужно так:

round(4.1)=4
round(4.6)=5
round(4.5)=5
round(5.5)=6

Можно сделать
SetRoundMode(rmDown);
И везде вместо round(x) писать round(x+0.5).

Но как-то мне этот вариант не очень правится. Может есть еще варианты?

Bless (2005-01-13 17:09:00) [1]
И еще до кучи, может кто не знает: как оказалось, еще есть стандарный SimpleRoundTo, который округляет сразу "по-человечески" и не только до целых.

Anatoly Podgoretsky (2005-01-13 12:01:00) [2]
Не забывайте про отричательные числа :-)

Antonn (2005-01-13 11:54:00) [3]
Bless © (13.01.05 10:30) [4]

> round(4.2+0.5)=round(4.7)=4 при roundMode=rmDown;

в условии немного не так:

>round(4.1)=4
> round(4.6)=5

R (2005-01-13 11:52:00) [4]
Для Value > 0
function Round5(Value:Extended):DWord;
begin
If Frac(Value) >= 0.5 Then Result:= Trunc(Value)+1 Else Result:= Trunc(Value)
end;

KSergey (2005-01-13 10:55:00) [5]
Советую почитать спапьи и, особенно, обсуждение

http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=374
http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=831

Да и вообще все статьи из
http://www.delphikingdom.ru/asp/section.asp?id=16

хотя бы бегло просмотреть

Verg (2005-01-13 10:54:00) [6]
x := trunc(x) + trunc( frac(x) * 2 );

Bless (2005-01-13 10:30:00) [7]
Antonn © (13.01.05 09:54) [2]
а если попадется 4.2?

round(4.2+0.5)=round(4.7)=4 при roundMode=rmDown;

Лучше все же Floor... Его поведение хотя бы предсказуемо...

Первый раз услышал про такую. Вот спасибо :) Подойдет. Вот только погоняю из интереса, что эффективнее round или floor.

KSergey (2005-01-13 09:56:00) [8]
Лучше все же Floor... Его поведение хотя бы предсказуемо...

Antonn (2005-01-13 09:54:00) [9]
а если попадется 4.2?

ЮЮ (2005-01-13 09:44:00) [10]
>И везде вместо round(x) писать round(x+0.5).

Пиши не везде, а только в одном месте

function Round(X: Extended): Int64;
begin
Result := System.Round(X + 0.5);
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »