Conversor de moedas

Publicado por victor (última atualização em 13/11/2018)

[ Hits: 689 ]

Homepage: kkk

Download conversor.pl




Programa básico reescrito em Perl, converte valores de Dólar para Real, Dólar para Euro, Euro para Real e Euro para Dólar.

  



Esconder código-fonte

print "CONVERSOR DE MOEDA: \n";
print "SELECIONE A MOEDA A SER CONVERTIDA: ";

print "1--DÓLAR PARA REAL\n2--DÓLAR PARA EURO\n3--EURO PARA REAL\n4--EURO PARA DÓLAR\n";

chomp($resposta = <STDIN>);

if($resposta == 1)
{

print"DÓLAR PARA REAL: \n";

print"DIGITE O VALOR DO DÓLAR: \n";
chomp($vldolar = <STDIN>);

print"DIGITE O VALOR A SER CONVERTIDO EM DÓLARES: \n";
chomp($dolar = <STDIN>);

print"O VALOR EM REAIS É:" .$dolar*$vldolar;

}


if($resposta == 2)
{

print"DÓLAR PARA EURO: \n";

print"DIGITE O VALOR DO DÓLAR EM EUROS: \n";
chomp($vldolar = <STDIN>);

print"DIGITE O VALOR A SER CONVERTIDO EM DÓLARES: \n";
chomp($dolar = <STDIN>);

print"O VALOR EM EUROS É:" .$dolar*$vldolar;

}


if($resposta == 3)
{

print"EURO PARA REAL: \n";

print"DIGITE O VALOR DO EURO: \n";
chomp($vleuro = <STDIN>);

print"DIGITE O VALOR A SER CONVERTIDO EM EUROS: \n";
chomp($euro = <STDIN>);

print"O VALOR EM REAIS É:" .$vleuro*$euro;

}


if($resposta == 4)
{

print"EURO PARA DÓLAR: \n";

print"DIGITE O VALOR DO EURO EM DÓLARES: \n";
chomp($vleuro = <STDIN>);

print"DIGITE O VALOR A SER CONVERTIDO EM EUROS: \n";
chomp($euro = <STDIN>);

print"O VALOR EM DÓLARES É:" .$vleuro*$euro;

}

Scripts recomendados

Aprendendo a fazer equações em Perl

Lista de números aleatórios não-repetidos de um intervalo em Perl

Potenciação

Usando comandos shell com Perl

Assistente de instalação por apt!


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário