Округление

← →
Toma2 (2002-07-20 14:27) [0]

Вопрос конечно же простой, но я что-то затрудняюсь.
Как округлить число до второго знака после запятой

← →
BOPOH © (2002-07-20 17:03) [1]

Умнож на 100, округли до целого, раздели на 100 :)))))))))

← →
Viewer (2002-07-20 17:52) [2]

На самом деле это неверный подход.
Хранить данные надо с максимальной точностью, определенной точностью предоставления данных, а вот отображать..
Т.е. это вопрос отображения.
Отсюда и исходи.
Всевозможные варианты Format... и пр

← →
Феликс © (2002-07-20 18:09) [3]

Val
Смотри в helpe.

← →
Феликс © (2002-07-20 18:21) [4]

Пардон это подстава. Нужен str.
str(x1:7:3,s1);
x1:real;
s1:string;

← →
Феликс © (2002-07-20 18:25) [5]

Т.е x1 это тове число с запятыми, а s1 "обрезанный" результат.

← →
Слесарь-технолог (2002-07-21 00:42) [6]

// Вх.: value, Вых.: value (float)

int s = value*100 + 0.5;
value = ((float)s)/100.0;

← →
Mozart.mc (2002-07-21 01:47) [7]

StrToFloat(FloatToStrF(23.34534545,ffGeneral,4,2))=23.35
К примеру...

procedure Rounding(Chislo:Extended;Count: integer);
begin
Chislo:=Trunc(Chislo/power(10,Count))/power(10,count);
end;

вроде так, только с ф-цией возведения в степеньь мог ошибиться (power(...)).

← →
TM (2002-07-23 21:11) [9]

В Delphi-6 точно, возможно и в 5-м есть такая функция: RoundTo(Real, Integer). Округление до 2-го знака после запятой: RoundTo(Z,-2);

s:=Format("%8.2f",245.124);
получится s=245.12

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