|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : abrasha shapirus 2:550/4077.940 08 May 2004 15:39:02
To : Konstantin Tokar
Subject : Как получить дробную часть числа?
--------------------------------------------------------------------------------
08 Май 04, Konstantin Tokar --> Serge Chervjakov
>> для положительного можно:
>> my $ch=10.1;
>> my $r_part=$ch-int($ch);
>> а для нецелого по-мойму тоже...
>> но вот работает, возможно, не очень шустро:).
>>
KT> Если бы вообще работало...
F:\temp>> perl -we "my $ch=10.1; my $r_part=$ch-int($ch); print
F:\temp>> $r_part;"
KT> 0.0999999999999996
дык ведь работает. сделай
my $ch = 0.1;
printf("%.2f", $ch - int($ch));
и все будет как положено.
шапирус.
... Я не получаю почту ни у Янкевича, ни у Яргина.
---
* Origin: (2:550/4077.940)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Как получить дробную часть числа? 