Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c