impares e pares

Publicado por marcio santos borges 14/12/2005

[ Hits: 7.890 ]

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

Escrevendo varias linhas em um arquivo qualquer

Graficos com barras em Perl

Equação do 2°

Lista de números aleatórios não-repetidos de um intervalo em Perl

Xshot


  

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