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 Juros simples

Calculadora de Juros simples

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

1Calculadora de Juros simples Empty Calculadora de Juros simples Sáb Nov 10, 2012 9:31 am

mmxm

avatar
avançado
avançado

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

# By MMxM
# Calculadora de Juros simples

if ($#ARGV != 2){
print "
[+] Calcula juros simples

esse script calcula os juros mensalmente

modo de uso: perl $0 <capital> <juros> <tempo|numero de meses>

exemplos:
perl $0 10 1 5    || calcula juros de 10 reais ,a 1% ao mes ,durante 5 meses
perl $0 15 0.5 10 || calcula juros de 15 reais ,a 0,5% ao mes ,durante 10 meses
";
exit;
}
$C = $ARGV[0];
$I = $ARGV[1];
$T = $ARGV[2];

print "
Calculando Juros simples:
Capital: ", 'R$ ' ,"$C
Juros: $I%
Tempo: $T meses
";
$cal = $C*$I*$T/100;
if ($cal >= 1){
print "\n\nJuros: ",'R$ ', "$cal,00\n\n";
} else { print "\n\nJuros: ",'R$', " $cal\n\n";
}

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

 » Programação Scripts » Perl » Calculadora de Juros simples

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