Loading [MathJax]/jax/output/HTML-CSS/fonts/TeX/fontdata.js
EDUARDO ULISES ESTRADA DE LA CRUZ
Note by , created more than 1 year ago

Algoritmo relacionado a una caja registradora

272
0
0
EDUARDO ULISES ESTRADA DE LA CRUZ
Created by EDUARDO ULISES ESTRADA DE LA CRUZ about 3 years ago
Close

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