Форум: "Начинающим";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];

Вниз

округление Extended.   Найти похожие ветки 

← →
ArtemESC ©   (2005-10-08 18:38) [0]

Доброго времени суток...
Как округлить Extended до некоторого фиксированного
знака после запятой?

---

← →
GanibalLector ©   (2005-10-08 19:13) [1]

 RoundTo

Example :
var E:Extended;
begin
 E:=45.8574848;
 Caption:=FloatToStr(RoundTo(E,-2));


Хотя...с другой стороны :

function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;

и в то же время :
Type Range Significant digits Size in bytes

Double 5.0 x 10^–324 .. 1.7 x 10^308 15–16 8
Extended 3.6 x 10^–4951 .. 1.1 x 10^4932 19–20 10



---

← →
GuAV ©   (2005-10-08 19:14) [2]

До десятичного - вообще говоря, никак. До двоичного - умножением, усечением и делением. До десятичног приблизительно - roundto.
Обычно округление не требуется, лишние знаки отбрасываються уже при форматировании числа в строку.

---

← →
Карелин Артем ©   (2005-10-08 19:57) [3]

ShowMessage(FormatFloat("#####0.####",35.222222));

---

← →
murzik   (2005-10-08 23:16) [4]

Function RoundEx(X: Extended; DigitsAfterPoint: Byte = 0): Extended;
Begin
Result := StrToFloat(Trim(Format("%20." +
                     IntToStr(DigitsAfterPoint) + "f", [X])));
End;

---

← →
GuAV ©   (2005-10-08 23:24) [5]

murzik   (08.10.05 23:16) [4]

Не Ваше ли творенье http://kladovka.net.ru/index.cgi?pid=list&rid=190 ?

---

← →
murzik   (2005-10-08 23:33) [6]

нет, это я где-то позаимствовал

---

← →
wp2   (2005-10-09 19:07) [7]

Round(x*100)/100 - до сотых
Round(x*1000)/1000 - до тысячных

и т.д.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.035 c