Conversor de moedas
Publicado por victor (última atualização em 13/11/2018)
[ Hits: 2.119 ]
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; }
Cálculo de área de uma figura geométrica
Calculando a média entre dois valores
Crivo de Eratóstenes Simples em Perl
Nenhum comentário foi encontrado.
Agora temos uma assistente virtual no fórum!!! (247)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Reset do linux sem perder dual boot (4)
erro ao clonar repo github (10)
iso de sistema 32 bit em atividade (16)
Impressora Canon Ip 1800 (Drivers) 64 bit (3)
Como transfiro os pokemons do fire red para o emulador mupen64? (1)