No le entiendo a este ejercicio que me dejaron
Se tiene un cajero automático el cual permite manipular cierta cantidad de dinero para lo cual dispone de los siguientes billetes: S/. 10.00, S/. 20.00, S/. 50.00, S/. 100.00 y S/. 200.00. Elaborar una aplicación que permita la lectura de la cantidad a retirar la cual debe ser múltiplo de 10 (caso contrario debe solicitar al usuario que ingrese un valor correcto, no debe aceptar la lectura de valores que no cumplan esta condición). La aplicación debe indicar el menor número de billetes a utilizar.
Ya tengo el formulario listo, Personalize las etiquetas y cuadros de texto, pero no se que código ingresar para que me de el resultado, por favor... Ayudame
Ya tengo el formulario listo, Personalize las etiquetas y cuadros de texto, pero no se que código ingresar para que me de el resultado, por favor... Ayudame
1 Respuesta
Respuesta de César Pech
1
*tienes que hacer unas divisiones
*constantes
*Ejemplo: (lo pondrias en tu boton de "aceptar")
monto=1800 &&puedes poner el valor de tu txt donde capturas el valor (toiene que ser numerico.
if (monto % 10) # 0
MESSAGBBOX('cantidad no valida, no se puede dividir en las denominaciones disponibles',16,'Aviso')
RETURN
endif
endif
ARRAY denom(5)
ARRAY oper(5)
denom(1) = 200
denom(2) = 100
denom(3) = 50
denom(4) = 20
denom(5) = 10
for i=1 to 5
oper(i) = INT(Monto / denom(i))
monto = monto - oper(i)
next
*en el array "oper" vas a tener la forma en que darias el dinero, en las denominaciones.
*
*constantes
*Ejemplo: (lo pondrias en tu boton de "aceptar")
monto=1800 &&puedes poner el valor de tu txt donde capturas el valor (toiene que ser numerico.
if (monto % 10) # 0
MESSAGBBOX('cantidad no valida, no se puede dividir en las denominaciones disponibles',16,'Aviso')
RETURN
endif
endif
ARRAY denom(5)
ARRAY oper(5)
denom(1) = 200
denom(2) = 100
denom(3) = 50
denom(4) = 20
denom(5) = 10
for i=1 to 5
oper(i) = INT(Monto / denom(i))
monto = monto - oper(i)
next
*en el array "oper" vas a tener la forma en que darias el dinero, en las denominaciones.
*
