Conversor de moedas
Publicado por victor (última atualização em 13/11/2018)
[ Hits: 2.421 ]
Homepage: kkk
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.
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; }
Nenhum comentário foi encontrado.
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Como Instalar o Microsoft Teams no Linux Ubuntu
Músicas de Andrew Hulshult no DOOM (WAD)
Instalar o Apache, MySQL e PHP no Oracle Linux 8
Bloqueando telemetria no Deepin 23.1
Como converter imagens PNG/JPEG para SVG em linha de comando