Linux.by

Существует ли в Perl стандартная функция осреднения чисел. Нужно допустим осреднить число 48.3879876 по десяткам и получить 50. Ломает выдумывать свой велосипед, если есть уже готовый.

Anonymous писал(а):Существует ли в Perl стандартная функция осреднения чисел. Нужно допустим осреднить число 48.3879876 по десяткам и получить 50. Ломает выдумывать свой велосипед, если есть уже готовый.

Прошу прощения неправильно выразился к концу рабочего дня мозги невращаются совсем. Не осреднение а округление нужно. И в догонку ещё одна функция понадобилась каким образом (опять же функцией) можно перевести число из експоненциального представления в нормальное. Или где можно почитать о математических возможностях Perl-а. Спасибо.

Глянь тут:
http://groups.google.com/groups?hl=ru&l ... .lang.perl

ви таки будете смеяться, но называется нету...



sub round{
$float = shift; # the number to round
$intgr = int($float + 0.5);
return $intgr;
}

Это верно лишь для положительных чисел. Для отрицательных эта функция будет работать неверно.

Стандартной процедуры округления в перле нет.
попробуй воспользоваться POSIX расширением (см ф-ции POSIX::floor и POSIX::ceil).

либо просто возьми с www.cpan.org модуль Math::Round

Помогите. Я новичок в перл. Я написал код, а что дальше?как заставить его работать?

Mike Vazovsky, ты задолбал.
Достаточно было бы создать одну тему, и положить в нее вопрос.

Не делай так больше, пожалуйста.

2 BuTyc если по минимуму то и printf пойдёть

$a = 100.05
$a = sprintf "%f10.1", $a;
print $a;
----------------------
100,1