Algoritmia - cajero

Un usuario usa un cajero y le dijita un valor entre 1 y 5.000 dolares . El cajero tendra q determinar cuantos billetes de 100,50,20,10,5,2,1,dolares componen la cantidad pedida por el ususario.

por favor ayudenme gracias

En VB.NET sería así

Dim CantidadRetirar As Double
Dim CantidadRestante As Double
Dim Billetes100 As Integer
Dim Billetes50 As Integer
Dim Billetes20 As Integer
Dim Billetes10 As Integer
Dim Billetes5 As Integer
Dim Billetes2 As Integer
Dim Billetes1 As Integer

CantidadRetirar = 3456 'Por decir un ejemplo

Billetes100 = Int(CantidadRetirar / 100) 'Dividimos la cantidad inicial entre 100, y lo colocamos como entero para que así sea más exacto el resultado
CantidadRestante = CantidadRetirar - (Billetes100 * 100) 'Restamos la cantidad inicial con la cantidad que da en la multiplicación de la cantidad de billetes de 100 por 100

'Así hacemos en todas las siguientes.

Billetes50 = Int(CantidadRestante / 50)
CantidadRestante = CantidadRestante - (Billetes50 * 50)

Billetes20 = Int(CantidadRestante / 20)
CantidadRestante = CantidadRestante - (Billetes20 * 20)

Billetes10 = Int(CantidadRestante / 10)
CantidadRestante = CantidadRestante - (Billetes10 * 10)

Billetes5 = Int(CantidadRestante / 5)
CantidadRestante = CantidadRestante - (Billetes5 * 5)

Billetes2 = Int(CantidadRestante / 2)
CantidadRestante = CantidadRestante - (Billetes2 * 2)

Billetes1 = Int(CantidadRestante / 1)

MsgBox("Usted está retirando una cantidad de: " & CantidadRetirar & " USD" & vbCrLf & _
"Recibirá " & Billetes100 & " Billetes de 100 USD" & vbCrLf & _
Billetes50 & " Billete(s) de 50" & vbCrLf & _
Billetes20 & " Billete(s) de 20" & vbCrLf & _
Billetes10 & " Billete(s) de 10" & vbCrLf & _
Billetes5 & " Billete(s) de 5" & vbCrLf & _
Billetes2 & " Billete(s) de 2" & vbCrLf & _
Billetes1 & " Billete(s) de 1")

Hola de nuevo, disculpa no está completo el algoritmo anterior, le falta las comparaciones para ver si están los rangos de retiros bien.

Puedes ver el código completo en mi web, lo agregué :-) claro, no hay que dejar pasar materiales así.

http://www.yforexinc.com/problema-de-algoritmia-el-cajero.html