округление 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 - до тысячных

и т.д.

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