Potenciação
calcula a potencia de um numero bem simples
Descrição
calcula a potencia de um numero bem simples
#!/usr/bin/perl-w
#autor : m4rc1054nt05
#date : 09-12-2005
#programa que calcula a potencia potenciação
$i=1;
$resu=1;
print "Digite um valor inteiro: \n";
chomp ( $numero = <STDIN> );
print "Digite o valor da potenciação: \n";
chomp ( $potencia = <STDIN> );
while ($i <= $potencia) {
$resu *= $numero;
++$i;
}
print "o resultado e $resu\n";
#!/usr/bin/perl-w
Favor substituir por:
#!/usr/bin/perl -w
ou simplesmente:
#!/usr/bin/perl
------------------------------------------------------------------------