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

Вниз

Округление результата   Найти похожие ветки 

← →
Berezne   (2003-12-18 12:56) [0]

Есть вичисляемая переменная I:Real. Получается результат 12.86745896. Как задать округление результата к сотим.

Спасиба

---

← →
Семен Сорокин   (2003-12-18 12:58) [1]

FormatFloat("0.00", i)

---

← →
serge   (2003-12-18 13:02) [2]

Uses math

....roundto(I, -2)

---

← →
Ega23   (2003-12-18 13:40) [3]

I:=Round(I*100)/100;

---

← →
BlackTiger   (2003-12-18 15:38) [4]


function RoundUpTo(val, UpTo : Real) : Real;
var
f, f1 : Real;
n : integer;
begin
f := val / UpTo;
n := Trunc(f);
f1 := (f - n) * 10;
if f1 >= 5 then n := n + 1;
Result := n * UpTo;
end;

Использование:
RoundedValue := RounUpTo(Value, 0.01);

---

← →
Kremen   (2003-12-18 15:58) [5]

2Ega23
самый правильный вариант и простой

---

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

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

Наверх

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