Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Округление чисел [D7, XP]

BatonPolnii © (2007-04-11 17:48:00)
как округлить число до двух знаков?

McSimm_ (2007-04-12 17:27:00) [1]

> MikePetrichenko ©
> умножить на 100, отбрасить дробную часть, разделить на 100.

0.99999 => 99.999 => 0.99

umbra (2007-04-12 17:16:00) [2]

> 15.01000000000000000023 и 15.01000000000000000000 равны
> между собой, или нет?
>

после округления до двух знаков после запятой - равны.

Ega23 (2007-04-12 17:05:00) [3]

> Конечно, если имеется ввиду вообще до двух знаков, однако
> общепринятое округлить до двух знаков после запятой. =>
> Ответ правильный (хотя и требует доп. телодвижений, если
> требуется ОКРУГЛЯТЬ по правилам бухгалтерии).

Ответ неправильный. 15.01000000000000000023 и 15.01000000000000000000 равны между собой, или нет?

Johnmen (2007-04-12 15:49:00) [4]

> MikePetrichenko © (12.04.07 12:18) [7]
> > Неправильный ответ.Конечно, если имеется ввиду вообще
> до двух знаков, однако общепринятое округлить до двух знаков
> после запятой. => Ответ правильный (хотя и требует доп.
> телодвижений, если требуется ОКРУГЛЯТЬ по правилам бухгалтерии).

Т.е. если требуется ОКРУГЛЯТЬ НЕпо правилам бухгалтерии, то свой ответ ты считаешь правильным?
Не льсти себе...:)

MikePetrichenko (2007-04-12 12:18:00) [5]

> Неправильный ответ.

Конечно, если имеется ввиду вообще до двух знаков, однако общепринятое округлить до двух знаков после запятой. => Ответ правильный (хотя и требует доп. телодвижений, если требуется ОКРУГЛЯТЬ по правилам бухгалтерии).

Ega23 (2007-04-12 09:20:00) [6]

> умножить на 100, отбрасить дробную часть, разделить на 100.

Неправильный ответ.

MsGuns (2007-04-11 21:14:00) [7]
Почти "черный квадрат" Малевича:

function MyRound(e: extended; Scale: integer): extended;
begin
result := StrToFloat(Trim(Format('%15.'+IntToStr(Scale)+'f',[e])));
end;

;)))

MikePetrichenko (2007-04-11 20:48:00) [8]
умножить на 100, отбрасить дробную часть, разделить на 100.

Vlad Oshin (2007-04-11 18:03:00) [9]
RoundTo(1234567, 3) 1234000
RoundTo(1.234, -2) 1.23
RoundTo(1.235, -2) 1.24
RoundTo(1.245, -2) 1.24

BatonPolnii (2007-04-11 17:54:00) [10]
тип Extended

Ega23 (2007-04-11 17:52:00) [11]
Использовать тип Currency?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »