impares e pares

Publicado por marcio santos borges 14/12/2005

[ Hits: 8.322 ]

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

Separa os dígitos de um número

Data por extenso

Inserindo o nome de aluno e calculando média de suas notas

Renomeando arquivos de forma padronizada

Cálculo de área de uma figura geométrica


  

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