Conversor de moedas
Publicado por victor (última atualização em 13/11/2018)
[ Hits: 2.391 ]
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; }
Saiba quanto de energia seu PC gasta aproximadamente por mês
imprime numeros de forma crescente e decrescente [FOR]
Cálculo do MDC em Perl para quantidade ilimitada de parâmetros
Nenhum comentário foi encontrado.
tux-gpt - Assistente de IA para o Terminal
Instalação e configuração do Chrony
Programa IRPF - Guia de Instalação e Resolução de alguns Problemas
Como instalar no Linux Jogos da Steam só para Windows
Instalando o Team Viewer no Debian Trixie - problema no Policykit
O Que Fazer Após Instalar Ubuntu 25.04
Copiar Layout do Teclado para aplicar em outra Distribuição (4)
Alguém poderia me ajudar a escolher peças pra montar um desktop? (32)