[perl] =?iso-8859-1?Q?Re:_=5Bperl=5D_Re:_=5Bperl=5D_Numeros_=28_Outra_solu=E7=E3?==?iso-8859-1?Q?o_=29?=

Thu, 25 May 2000 17:03:07 -0700 

oi galera to pegando o bonde andando mas tb tenho um solu��o para par e
impar se sevir para alguem ta legal se n�o desculpe-me

 $result=($i%2);

 if ($result=1){

 &rotina impar;

 }

 &rotina par;

$i � um numero qualquer, em $result fica armazenado 0 ou 1 dependo se existe
resto ou n�o na divis�o
ou seja se tiver resto � impar sen�o � par

jefferson





-----Mensagem original-----
De: Aldo Kogima Pompeo <[EMAIL PROTECTED]>
Para: [EMAIL PROTECTED] <[EMAIL PROTECTED]>
Data: Quinta-feira, 25 de Maio de 2000 14:16
Assunto: [perl] Re: [perl] Numeros ( Outra solu��o )


Lista,

    Segue uma op��o a mais de verifica��o do n�mero
#!/usr/bin/perl

$numero = 12;
$resultado = $numero / 2;
print "$resultado\n";
@result = split('\.',$resultado);
if (!$result[1]){
   print "O N�mero � par\n";
}
else{
   print "O n�mero � impar\n";
}



[]s
Aldo

http://www.mrweb.com.br/perl/
=======================================
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
=======================================


http://www.mrweb.com.br/perl/
=======================================
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
=======================================

Responder a