ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Nickolay Parfenov                    2:5053/44.1    28 Jul 2000  18:41:54
 To : Slava Korchagin
 Subject : Re: Окpyгление
 -------------------------------------------------------------------------------- 
 

 Slava Korchagin wrote:
 
 SK> естественно, если окpyглять до $n знаков после точки:
 SK> $round = int($i*10**$n + 0.5)/10**$n;
 
 С отрицательными числами это работает неправильно, я обычно пользуюсь такой
 функцией:
 # nrnd: ..., -2 - 0.01, -1 - 0.1,
 #             0 - 1, 1 - 10, 2 - 100, ...
 sub round {
 my($num, $nrnd) = @_;
 my($n);
 
 $n = 10 ** $nrnd;
 $num = int($num / $n + 0.5 * (($num > 0) ? 1 : -1)) * $n;
 
 return $num;
 }
 
 SY, Hиколай
 -- 
        Nickolay N. Parfenov   (8452) 24-08-93 24-09-53   EastSoft Ltd.
        E-mail: nik@eastsoft.saratov.su            FidoNet: 2:5053/44.1
 --- ifmail v.2.15.lk7.b6
  * Origin: EastSoft Ltd. (2:5053/44.1@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Округление   Vyacheslav   26 Jul 2000 02:46:07   Округление   Maxim Y. Zinyakov   26 Jul 2000 15:17:22   Округление   Kostya Belous   26 Jul 2000 10:56:00   Окpyгление   Slava Korchagin   27 Jul 2000 22:25:06   Re: Окpyгление   Nickolay Parfenov   28 Jul 2000 18:41:54