|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Igor Ivlev 2:467/116.9 05 Jun 2001 09:40:32 To : Eugene Bodin Subject : round() -------------------------------------------------------------------------------- Мои бортовые системы запеленговали, что в 25 июня 2001 18:51, Eugene Bodin писал All: EB> [s]printf ( ".0f", $number); EB> sub round{ EB> my ($num, $prec) = @_; EB> $num= sprintf("%.${prec}f", $num); EB> # Если завершающие нули не нужны: EB> $num =~ s/\.?0+$//; EB> return $num; EB> } Вы не учли, что если будет 73.26, то должно округлиться до 73.3, а не до 73.2. C уважением, Igor Ivlev. ... : In Flames - Pinball Map --- Утверждено старым, дряхлым Дедом * Origin: В тесноте, да не под Stacker'ом (2:467/116.9) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/207813b1ca951.html, оценка из 5, голосов 10
|