Текущий архив: 2003.11.13;
Скачать: CL | DM;
Вниз
Как округлить число? Найти похожие ветки
← →
Rolt (2003-11-02 21:03) [0]Нужно округлить числа после
расчётов с точностью до пяти зноков
после запятой.
← →
Думкин (2003-11-02 21:12) [1]
RoundTo function
type TRoundToRange = -37..37;
function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;
Expression Value
RoundTo(1234567, 3) 1234000
RoundTo(1.234, -2) 1.23
RoundTo(1.235, -2) 1.24
RoundTo(1.245, -2) 1.24
Note: The behavior of RoundTo can be affected by the Set8087CW procedure or SetRoundMode function.
← →
Rolt (2003-11-02 21:29) [2]<h1>Thank</h1>
← →
Dimaxx (2003-11-02 23:47) [3]RoundTo(1.245, -2) = 1.24 ?????
Вообще-то, по правилам округления если последняя цифра >=5, то к предыдущей прибавляется 1. То есть правильно RoundTo(1.245, -2) = 1.25
← →
Думкин (2003-11-03 05:33) [4]
> [3] Dimaxx © (02.11.03 23:47)
Эта тема уже изжевана до нельзя. Может хватит?
По каким таким правилам? Приведи их, и чтобы на них стояла БОЛЬШАЯ, КРУГЛАЯ ПЕЧАТЬ.
Кстати, если не полениться и посмотреть эту функцию, то можно заметить что там и вторая есть - если сия нге нравится - а еще и исходники никто не отменял.
← →
KSergey (2003-11-03 08:04) [5]> [3] Dimaxx © (02.11.03 23:47)
http://www.delphikingdom.com/asp/section.asp?ID=16
Там есть статейка что-то на счет "Неочевидные особенно вещественых чисел"
Почитайте.
Страницы: 1 вся ветка
Текущий архив: 2003.11.13;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.034 c
