algoritmo "ConversorReaisParaDola"
var
valorReais, taxaCambio, valorDolares: real
ok: logico
funcao ConverterReaisParaDolar(vReais: real; vTaxa: real; var resultado: real): logico
inicio
se vReais < 0 entao
retorne falso
fim se
se vTaxa <= 0 entao
retorne falso
fim se
resultado <- vReais / vTaxa
retorne verdadeiro
fimfuncao
inicio
escreval("Conversor de Reais para Dólares")
escre("Informe o valor em reais: ")
leia(valorReais)
escre("Informe a taxa de câmbio (reais por dólar): ")
leia(taxaCambio)
ok <- ConverterReaisParaDolar(valorReais, taxaCambio, valorDolares)
se not ok entao
escreval("Erro: entrada inválida.")
pare
fim se
escreval("Valor em dólares: US$ ", valorDolares:0:2)
fimalgoritmo
