[source] exemplo_separar_casas.pl

Postagem de conteúdo sobre programação python
Post Reply
User avatar
Kodo no Kami
Admin
Admin
Posts: 725
Joined: Fri Jan 02, 2015 1:56 pm
Contact:

[source] exemplo_separar_casas.pl

Post by Kodo no Kami » Fri Sep 21, 2018 6:59 pm

script que separa os numeros

Code: Select all

#!/usr/bin/perl

print "digite um numero: ";
$numero = <>;

my $maior = 0;

#descobre a casa para divisao 
my $cont = 1;
while($cont < 100){
    $casa = 10 ** $cont; 
    $resu = int($numero / $casa);
    
    if($resu == 0){
        $maior = $cont -1;
        last;
    }
    $cont++;
}

#recorta cada numero e armazena na array num
my $indice = 0;
my @num;
while($maior >= 1){
    $tempcasa = 10 ** $maior;
    
    $num[$indice] = int($numero / $tempcasa);
    $numero = $numero - ($num[$indice] * $tempcasa);
    $indice++;
    $maior--;
}
$num[$indice] = $numero;

#exibe array numero
foreach $n(@num){
    print $n . "\n";
}
Image

que desagradavel ~ mirai kuriyama

Post Reply

Return to “Python”