|
#1
|
|||
|
|||
Округление чисел
Привет!!!
Подскажите как округлить вещественное число типа Real до сотых долей чтобы потом использовать в расчетах Например если 100 разделить 104 получится 0,96153846153 округлить до 0,96 а потом 100 разделить на 0,96 и получить 104,16 Спасибо |
#2
|
||||
|
||||
Код:
FormatFloat('#,##',Value); Так же можно использовать Write(val:2); — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
Есть ещё формат чисел Currency, у него стабильно 4 знака после запятой.
|
#4
|
|||
|
|||
Есть функция RoundTo. Получишь тот же real, но с указанной точностью.
|
#5
|
|||
|
|||
Округдение
Правильное, согласно ГОСТу, округление чисел
http://g-soft.nm.ru/download.htm |
#6
|
|||
|
|||
Есть еще способ. Допустим, что надо округлить 0,96153846153 до 0,96, а ячейку зовут, допустим, i. Тогда
... i:=i*100; i:=trunc(i); i:=i/100; ... Правда в этом случае правила округления не действуют, т.е. если округлять 0,968, мы получим также 0,96, а не 0,97. |