Question

escreva um programa que expresse certa quantidade de reais em notas e moedas de circulação

Answer 1

algoritmo "Notas e moedas"

var
    valor : real

inicio
escreva("Digite o valor : R$")leia(valor)
escreval("")
escreval("O valor pode ser expresso nas seguintes opções: ")
escreval("")
enquanto valor > 0 faca   
se valor >= 100 entao     
escreval("Nota de R$ 100,00")     
valor <- valor - 100   
senao     
se valor >= 50 entao         
escreval("Nota de R$ 50,00")       
 valor <- valor -  50     
senao         
se valor >= 20 entao           
escreval("Nota de R$ 20,00")           
valor <- valor - 20         
senao           
se valor >= 10 entao               
escreval("Nota de R$ 10,00")               
valor <- valor - 10           
senao               
se valor >= 5 entao                 
escreval("Nota de R$ 5,00")                 
valor <- valor - 5               
senao                 
se valor >= 2 entao                     
escreval("Nota de R$ 2,00")                   
valor <- valor - 2                 
senao                     
se valor >= 1 entao                       
escreval("Moeda de R$ 1,00")                       
valor <- valor - 1                     
senao                       
se valor >= 0.5 entao                           
escreval("Moeda de R$ 0,50")                           
valor <- valor - 0.5                       
senao                           
se valor >= 0.25 entao                             
escreval("Moeda de R$ 0,25")                             
valor <- valor - 0.25                           
senao                             
se valor >= 0.1 entao                                 
escreval("Moeda de R$ 0,10")                                 
valor <- valor - 0.1                             
senao                                 
se valor >= 0.05 entao                                   
 escreval("Moeda de R$ 0,05")                                   
valor <- valor - 0.05                                 
senao                                   
se valor >= 0.005 entao                                       
escreval("Moeda de R$ 0,01")                                       
valor <- valor - 0.01                                   
senao                                       
interrompa                                   
fimse                                 
fimse                             
fimse                           
fimse                       
fimse                     
fimse                 
fimse               
fimse           
fimse         
fimse     
fimse   
fimse
fimenquanto
fimalgoritmo