Potenciação

Publicado por marcio santos borges 09/12/2005

[ Hits: 6.672 ]

Download potencia.pl




calcula a potencia de um numero bem simples

  



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

Scripts recomendados

Programa que separa os dígitos de um inteiro

Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl

Cálculo do MDC em Perl

localtime.pl

Obtendo horas do sistema


  

Comentários
[1] Comentário enviado por PCMasterPB em 11/12/2005 - 22:10h

Apenas uma observação, onde está escrito:
#!/usr/bin/perl-w

Favor substituir por:

#!/usr/bin/perl -w

ou simplesmente:

#!/usr/bin/perl

------------------------------------------------------------------------


Contribuir com comentário