seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^

Participe do fórum, é rápido e fácil

seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Você não está conectado. Conecte-se ou registre-se

 » Programação Scripts » Perl » Calculadora de Porcentagem

Calculadora de Porcentagem

Ir para baixo  Mensagem [Página 1 de 1]

1Calculadora de Porcentagem Empty Calculadora de Porcentagem Sáb Nov 10, 2012 9:32 am

mmxm

avatar
avançado
avançado

Código:
#!/usr/bin/perl

# By MMxM
# Calculadora de porcentagem

if ($#ARGV != 1){
print "
Modo de uso:
perl $0 <porcentagem> <valor>

exemplos:
perl $0 10 30 | calcula 10% de 30
perl $0 50 10 | calcula 50% de 10
";
exit;
}

$porcent = $ARGV[0];
$valor = $ARGV[1];
$div = $porcent/100;
$resul = $div*$valor;
print "
Calculando $ARGV[0]",'%', " de $ARGV[1] ...\n";
sleep (2);
print "\nValor: ",$resul;

Ir para o topo  Mensagem [Página 1 de 1]

 » Programação Scripts » Perl » Calculadora de Porcentagem

Permissões neste sub-fórum
Não podes responder a tópicos