Conversor de moedas
Publicado por victor (última atualização em 13/11/2018)
[ Hits: 2.389 ]
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]
Escrevendo varias linhas em um arquivo qualquer
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
Como fzr Downgrade em um pacote específico (5)
Inspiração para desenhar no Linux (1)
Os empreguim de meu Deus estão cada vez mais tecnológicos (6)