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;
}