|
print "Enter 11 numbers:\n";
|
|
for ( 1..11 ) {
|
|
$number = <STDIN>;
|
|
chomp $number;
|
|
push @sequence, $number;
|
|
}
|
|
|
|
for $n (reverse @sequence) {
|
|
my $result = sqrt( abs($n) ) + 5 * $n**3;
|
|
printf "f( %6.2f ) %s\n", $n, $result > 400 ? " too large!" : sprintf "= %6.2f", $result
|
|
}
|