calcula a potencia de um numero bem simples

• Download potencia.pl
• Enviar nova versão

Esconder código-fonte

#!/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";

Data por extenso

Crivo de Eratóstenes Simples em Perl

Queimando CDs on-the-fly

Equação do 2°

Verificar se usuário é root