Квадратный корень по алгоритму Ньютона

Категория: Perl Комментариев: 0

Perl-программа, вычисляющая квадратный корень из числа по алгоритму Ньютона.
#!/usr/bin/perl
# Вычисление квадратного корня по алгоритму Ньютона

if (@ARGV < 2){
print "Использование:\n\tsqrt.pl число точность\n";
}
else{
$x = $ARGV[0]; # число из которого следует извлеч корень
$n = $ARGV[1]; # точнсть вычисления

print newSqrt($x,$n) . "\n";
}

sub newSqrt($$){
my ($x, $n) = @_;
if ($x <= 0){
$result = 0;
}
else{
$result = 4;

for($i = 0; $i < $n; $i++){
$result = ($result + ($x / $result)) / 2;
}
}
return $result;
}
Автор: Кто-то   @   10 марта 2009 Комментариев: 0
Метки : ,

Поблагодарить автора

Webmoney Z163628999150, R617151845974

Похожие записи

Комментариев: 0

Добавить комментарий
Комментариев к этой записи поке нет. Ваш комментарий будет первым.
оставить комментарий

Предыдущая запись
« Следующая запись
»