Visualg

Então pessoal, eu sou nova aqui. Comecei na Etec faz pouco tempo.. Meu professor esta trabalhando com Visual, ele passa algumas listas com dificuldades diferentes, eu estou fazendo uma lista que pede que o usuário digite o valor do produto e o valor dando ao funcionário; O programa dará ao usuário o valor a ser dado e a quantidade de cédulas. Mas ele quer que seja dada a menor quantidade de cédulas possíveis.

"Faça um programa que calcule o troco com o menor número de cédulas possíveis. Considerando nossa realidade financeira (Notas: R$ 1,00; R$ 2,00; R$5,00; R$ 10,00; R$20,00; R$50,00; R$ 100,00)."

Não quero a resposta mas sim uma base de como vou fazer isso...

algoritmo "semnome"

// Função :

// Autor :

// Data : 23/10/2012

// Seção de Declarações

var

tr, vp, vd, rt: REAL

n100,n50,n20,n10,n5,n2,n1: Inteiro

inicio

// Seção de Comandos

escreva ("Digite o Valor da venda ")

leia (vd)

escreva ("Digite o valor pago ")

leia (vp)

se vp=vd entao

escreva("OBRIGADO")

fimse

se vp>vd entao

rt<-vp-vd

tr:= vp-vd

fimse

enquanto tr>=100 faca

tr <- tr-100

n100<-N100+1

fimenquanto

enquanto tr>=50 faca

tr <- tr-50

n50<-n50+1

fimenquanto

enquanto tr>=20 faca

tr <- tr-20

n20<- n20+1

fimenquanto

enquanto tr>=10 faca

tr<- tr-10 faca

n10<- n20+1

fimenquanto

enquanto tr>=5 faca

tr<- tr-5

n5<-n5+1

fimenquanto

enquanto tr>=2 faca

tr <- tr-2

n2<-n2+1

fimenquanto

enquanto tr>=1 faca

tr <- tr-1

n1 <- n1+1

fimenquanto

escreval ("troco é =",rt,"reais" )

escreva ("Em notas de R$100:",n100," R$50:",n50," R$20:",n20," R$10:",n10 )

escreva(" R$5:",n5," R$2:",n2," R$1:",n1)

fimalgoritmo

esta feito. :)