Proceso RegistradoraSupermercado
Definir nombre1, nombre2, nombre3, nombre4, nombre5 Como Cadena
Definir precio1, precio2, precio3, precio4, precio5 Como Real
Definir cantidad1, cantidad2, cantidad3, cantidad4, cantidad5 Como Real
Definir subtotal1, subtotal2, subtotal3, subtotal4, subtotal5 Como Real
Definir total, iva, totalConIVA, pago, cambio Como Real
Definir metodoPago Como Cadena
Escribir "Ingrese el nombre del producto 1"
Leer nombre1
Escribir "Ingrese el precio de ", nombre1
Leer precio1
Escribir "Ingrese la cantidad de ", nombre1
Leer cantidad1
Escribir "Ingrese el nombre del producto 2"
Leer nombre2
Escribir "Ingrese el precio de ", nombre2
Leer precio2
Escribir "Ingrese la cantidad de ", nombre2
Leer cantidad2
Escribir "Ingrese el nombre del producto 3"
Leer nombre3
Escribir "Ingrese el precio de ", nombre3
Leer precio3
Escribir "Ingrese la cantidad de ", nombre3
Leer cantidad3
Escribir "Ingrese el nombre del producto 4"
Leer nombre4
Escribir "Ingrese el precio de ", nombre4
Leer precio4
Escribir "Ingrese la cantidad de ", nombre4
Leer cantidad4
Escribir "Ingrese el nombre del producto 5"
Leer nombre5
Escribir "Ingrese el precio de ", nombre5
Leer precio5
Escribir "Ingrese la cantidad de ", nombre5
Leer cantidad5
subtotal1 <- precio1 * cantidad1
subtotal2 <- precio2 * cantidad2
subtotal3 <- precio3 * cantidad3
subtotal4 <- precio4 * cantidad4
subtotal5 <- precio5 * cantidad5
total <- subtotal1 + subtotal2 + subtotal3 + subtotal4 + subtotal5
iva <- total * 0.19
totalConIVA <- total + iva
Escribir "Resumen de compra"
Escribir nombre1, ": ", cantidad1, " x ", precio1, " = ", subtotal1
Escribir nombre2, ": ", cantidad2, " x ", precio2, " = ", subtotal2
Escribir nombre3, ": ", cantidad3, " x ", precio3, " = ", subtotal3
Escribir nombre4, ": ", cantidad4, " x ", precio4, " = ", subtotal4
Escribir nombre5, ": ", cantidad5, " x ", precio5, " = ", subtotal5
Escribir "Total sin IVA ", total
Escribir "IVA 19 por ciento ", iva
Escribir "Total con IVA ", totalConIVA
Escribir "El cliente paga con efectivo o tarjeta"
Leer metodoPago
Si metodoPago = "efectivo" Entonces
Escribir "Ingrese la cantidad con la que pagó el cliente"
Leer pago
cambio <- pago - totalConIVA
Escribir "Cambio a devolver ", cambio
Sino
Escribir "Pago con tarjeta recibido No se genera cambio"
FinSi
FinProceso
Comentarios
Publicar un comentario