Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Проблема с округлением [D7]


keymaster ©   (2004-11-18 13:07:00) 

Имеем число:

383.45

Надо округлить его по правилам математики.
Пишем:

RoundTo(383.45, -1)

Получаем 383.4

Как так?


Defunct   (2004-11-18 18:24:00) [1]

> А где Defunct с его версией ? :-)

А мне уже этот вопрос надоел. ;)
Пусть думают, не такая уж и сложная задача.


GuAV   (2004-11-18 18:23:00) [2]

hamster ©   (18.11.04 18:13) [6]
trunc(x+0.5)

trunc(-1+0.5) = ?


hamster   (2004-11-18 18:13:00) [3]

trunc(x+0.5)


GuAV   (2004-11-18 17:32:00) [4]

А где Defunct с его версией ? :-)


Verg   (2004-11-18 14:57:00) [5]

= trunc(x) + trunc( frac(x)*2 )


keymaster   (2004-11-18 14:29:00) [6]

>Округлилось до ближайшего четного. Т.н. бухгалтерское округление - так работает ф-ция Round

В курсе.
Но надо чтобы было как математика учит.


TUser   (2004-11-18 13:51:00) [7]


> Как так?

Округлилось до ближайшего четного. Т.н. бухгалтерское округление - так работает ф-ция Round


Игорь Шевченко   (2004-11-18 13:09:00) [8]

Читать статью Антона Григорьева на Королевстве Delphi про числа с плавающей точкой и режимы округления.


Наверх

Титульная страница Поиск, карта сайта Написать письмо