impares e pares

Publicado por marcio santos borges 14/12/2005

[ Hits: 8.054 ]

Download pares.pl




programa que pede um numero e informa se e impar ou par

  



Esconder código-fonte

#!/usr/bin/perl 
#autor : m4rcio54nt05
#date : 14-12-2005

print "**************************calculando se e impar ou par************************* \n\n\n\n";
print "Digite a quantidade de numero inteiro:\n ";
chomp ( $numero = <STDIN> );

@array = (1..$numero);


for ( $i=1; $i <=$numero; ++$i ){
   print "Por favor digite o $i numero inteiro\n ";
   chomp ( $numero2[$i] = <STDIN> );
   $div = $numero2[$i] % 2;
   
     if ( $div==0 ){
       ++$j;
       $par[$j] = $numero2[$i];
      } 
     
     else {
        ++$z; 
        $impar[$z] = $numero2[$i];
     }
}

if ( $j > 0){
print "Os pares são:\n";
print "@par\n";
}
else {
print "não a pares:\n";
}

if ( $z >0){
print "Os impares são:\n";
print "@impar\n"
}
else {
print "nao a impares:\n"
}

Scripts recomendados

Verificar se usuário é root

Crivo de Eratóstenes Simples em Perl

Calculadora de IMC em Perl

Calculando a média entre dois valores

Renomeando arquivos de forma padronizada


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts