Округление числа!!!

← →
ser_ega (2004-03-19 21:39) [0]

Мастера помогите!!!! Есть число A:=3.1456987456. Как мне его округлить до десятых, сотых, тысячных и т.д. Есть же наверное какойто оператор!!!

← →
Алхимик © (2004-03-19 21:42) [1]

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

← →
Vemer © (2004-03-19 23:51) [2]

У меня примерно так(пример до сотых):
X := Trunc(A*1000) - Trunc(A*100)*10; A := Trunc(A * 100); If X > 4 Then A := A + 1; A := A/100;
Писал на скорую руку по памяти, код можно оптимизировать.
Автору рекомендую разобраться с форматами хранения чисел, иначе никакое округление не поможет.

← →
Алхимик © (2004-03-20 00:18) [3]

> У меня примерно так(пример до сотых):
> X := Trunc(A*1000) - Trunc(A*100)*10;
> A := Trunc(A * 100);
> If X > 4 Then A := A + 1;
> A := A/100;
> Писал на скорую руку по памяти

Чесать левой ногой правое ухо :)

← →
Defunct © (2004-03-20 00:35) [4]

Format("%F1.2",[3.1416]); // отобразит 2 знака после запятой Format("%F1.1",[3.1416]); // отобразит 1 знак после запятой

← →
Алхимик © (2004-03-20 00:43) [5]

> [4] Defunct © (20.03.04 00:35)
Про отображение в вопросе ни слова.

Алхимик © (20.03.04 00:43) [5]

Сам вопрос это подоазумевает.

IMHO округление делается только с целью отображения, не вижу других вариантов применения.

Тока не говорите, что округление можно делать с целью увеличения погрешности результата мат. операций.

Может RoundTo сгодится?

Нет, RoundTo слишком сложно. Проще

> X := Trunc(A*1000) - Trunc(A*100)*10;
> A := Trunc(A * 100);
> If X > 4 Then A := A + 1;
> A := A/100;
> Писал на скорую руку по памяти, код можно оптимизировать.

только оптимизировать нужно :)

Округление числа!!! Найти похожие ветки