Conversor de moedas
Publicado por victor (última atualização em 13/11/2018)
[ Hits: 2.440 ]
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; }
Escrevendo varias linhas em um arquivo qualquer
Programa que separa os dígitos de um inteiro
Nenhum coment�rio foi encontrado.
Aprenda a Gerenciar Permissões de Arquivos no Linux
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Pastas da raiz foram para a área de trabalho [RESOLVIDO] (7)
Sinto uma leve lentidão ao arrastar, miniminizar e restauras as janela... (0)
Zorin OS - Virtual Box não consigo abrir maquinas virtuais (6)