- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3519 [639]
От : Konstantin Tokar 2:5020/400 10 мая 04, 17:02
Кому : Artem Chuprina 10 мая 04, 22:44
Тема : Re: Как получить дробную часть числа?
-------------------------------------------------------------------------------
From: Konstantin Tokar
Artem Chuprina wrote:
> Konstantin Tokar -> Serge Chervjakov @ Sat, 8 May 2004 11:15:13 +0000 (UTC):
>
> >> >> Как получить дробную часть числа? То есть, для числа например 10.1
> >> >> >>
> >> получить 1.
> >> KT> Точнее, для числа 10.1 получить 0.1
> >> для положительного можно:
> >> my $ch=10.1;
> >> my $r_part=$ch-int($ch);
> >> а для нецелого по-мойму тоже...
> >> но вот работает, возможно, не очень шустро:).
> >>
> KT> Если бы вообще работало...
>
> KT> F:\temp>perl -we "my $ch=10.1; my $r_part=$ch-int($ch); print $r_part;"
> KT> 0.0999999999999996
>
> Так тебе дробную часть числа или его десятичной записи? 0.1 в двоичной
> системе представляется, увы, бесконечной дробью. Со всеми вытекающими
> при преобразовании обратно в десятичную запись при ограниченности
> разрядной сетки.
>
Я уже это сообразил. Хорошо, что исходные данные имеют невысокую
точность, и можно не задумываться над округлением.
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)