Algoritmo Caja_Registradora
Definir cp, p, vp, tp, tf, td, cd, vu, cl, in, op como entero
tf<-0
td<-0
cl<- 123
in <- 0
Mientras (in==0) Hacer
Escribir "=== Menú ==="
Escribir "1. Vender"
Escribir "2. Ver Total del día y Finalizar"
leer op
Segun op Hacer
1:
Limpiar Pantalla
Escribir "Digite la cantidad de productos que venderá:"
leer cp
Para i<-1 Hasta cp Con Paso 1 Hacer
Escribir "Ingrese el valor del producto: ",i
leer p
Escribir "Ingrese la cantidad a vender del producto: ",i
leer vp
tp<-p*vp
tf<-tf+tp
Fin Para
Escribir "Digite la clave de la caja registradora: "
leer cl
Si (cl==123) Entonces
Escribir "Ingrese la cantidad de dinero entregada por el cliente: "
leer cd
vu <- cd - tf
Escribir "*** Resumen de la compra***"
Escribir "El total de la compra fué: ",tf
Escribir "Dinero entregador por el cliente: ",cd
Escribir "Vuelto del cliente: ",vu
td<-td+tf
tf<-0
Sino
Escribir "¡La clave ingresada no es válida!"
FinSi
2:
Limpiar Pantalla
in<-1
Escribir "El total en ventas del día fué: ",td
De Otro Modo:
Escribir "¡Ingresó una opción inválida!"
Fin Segun
Fin Mientras
FinAlgoritmo