NOTAS DE DINHEIRO

Algoritmo "semnome"
// Disciplina  :  [Linguagem e Lógica de Programação]
// Professor   : Antonio Carlos Nicolodi
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 10/08/2018
Var
// Seção de Declarações das variáveis
NotasDeCinquenta, NotasDeVinte, NotasDeDez, NotasDeCinco: real
NotasDeCem, NotasdeDois : real
quantia, resto, valorredondo: inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
Escreval ("Informe A quantia que deseja:")
Leia (quantia)


Se quantia > 100 entao
resto <- quantia MOD 100
valorredondo <- (quantia - resto)
NotasDeCem <- valorredondo / 100
senao
Se quantia < 100 entao
se quantia > 49 entao
resto <- quantia MOD 50
valorredondo <- (quantia - resto)
NotasDeCinquenta <- valorredondo / 50
senao
Se quantia < 50 entao
se quantia > 19 entao
resto <- quantia MOD 20
valorredondo <- (quantia - resto)
NotasDeVinte <- valorredondo / 20
senao
Se quantia < 20 entao
se quantia > 9 entao
resto <- quantia MOD 10
valorredondo <- (quantia - resto)
NotasDeDez <- valorredondo / 10
senao
Se quantia < 10 entao
se quantia > 4 entao
resto <- quantia MOD 5
valorredondo <- (quantia - resto)
NotasDeCinco <- valorredondo / 5
senao
Se quantia < 5 entao
se quantia > 1 entao
resto <- quantia MOD 2
valorredondo <- (quantia - resto)
NotasDeDois <- valorredondo / 2
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse



se resto > 0 entao
quantia <- resto
Se quantia > 100 entao
resto <- quantia MOD 100
valorredondo <- (quantia - resto)
NotasDeCem <- valorredondo / 100
senao
Se quantia < 100 entao
se quantia > 49 entao
resto <- quantia MOD 50
valorredondo <- (quantia - resto)
NotasDeCinquenta <- valorredondo / 50
senao
Se quantia < 50 entao
se quantia > 19 entao
resto <- quantia MOD 20
valorredondo <- (quantia - resto)
NotasDeVinte <- valorredondo / 20
senao
Se quantia < 20 entao
se quantia > 9 entao
resto <- quantia MOD 10
valorredondo <- (quantia - resto)
NotasDeDez <- valorredondo / 10
senao
Se quantia < 10 entao
se quantia > 4 entao
resto <- quantia MOD 5
valorredondo <- (quantia - resto)
NotasDeCinco <- valorredondo / 5
senao
Se quantia < 5 entao
se quantia > 1 entao
resto <- quantia MOD 2
valorredondo <- (quantia - resto)
NotasDeDois <- valorredondo / 2
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse

se resto > 0 entao
quantia <- resto
Se quantia < 50 entao
se quantia > 19 entao
resto <- quantia MOD 20
valorredondo <- (quantia - resto)
NotasDeVinte <- valorredondo / 20
senao
Se quantia < 20 entao
se quantia > 9 entao
resto <- quantia MOD 10
valorredondo <- (quantia - resto)
NotasDeDez <- valorredondo / 10
senao
Se quantia < 10 entao
se quantia > 4 entao
resto <- quantia MOD 5
valorredondo <- (quantia - resto)
NotasDeCinco <- valorredondo / 5
senao
Se quantia < 5 entao
se quantia > 1 entao
resto <- quantia MOD 2
valorredondo <- (quantia - resto)
NotasDeDois <- valorredondo / 2
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse



se resto > 0 entao
quantia <- resto
Se quantia < 10 entao
se quantia > 4 entao
resto <- quantia MOD 5
valorredondo <- (quantia - resto)
NotasDeCinco <- valorredondo / 5
senao
Se quantia < 5 entao
se quantia > 1 entao
resto <- quantia MOD 2
valorredondo <- (quantia - resto)
NotasDeDois <- valorredondo / 2
fimse
fimse
fimse
fimse
fimse


se resto > 0 entao
quantia <- resto
Se quantia < 10 entao
se quantia > 4 entao
resto <- quantia MOD 5
valorredondo <- (quantia - resto)
NotasDeCinco <- valorredondo / 5
senao
Se quantia < 5 entao
se quantia > 1 entao
resto <- quantia MOD 2
valorredondo <- (quantia - resto)
NotasDeDois <- valorredondo / 2
fimse
fimse
fimse
fimse
fimse
fimse



Escreva ("A quantidade de notas de 100 é: ")
Escreval (NotasDeCem)
Escreva ("A quantidade de notas de 50 é:  ")
Escreval (NotasDeCinquenta)
Escreva ("A quantidade de notas de 20 é:  ")
Escreval (NotasDeVinte)
Escreva ("A quantidade de notas de 10 é:  ")
Escreval (NotasDeDez)
Escreva ("A quantidade de notas de 5 é:   ")
Escreval (NotasDeCinco)
Escreva ("A quantidade de notas de 2 é:   ")
Escreval (NotasDeDois)



Fimalgoritmo