Question

Desarrollar un PseudoCódigo en PseInt un menú desplegable que contenga 1.- Registro de Clientes, 2.- Caja Registradora,
3.- Inventario, 4.- Salir, que cada una de las opciones se pueda registrar el cliente, se pueda cobrar, se pueda llevar el inventario y salir del programa.

Answer 1

A continuación pseudocódigo en pseint de facturación de ventas, registros de clientes, y de inventarios. Se adjunta imagen de menú desplegable, entrada de datos, y salida por pantalla de totales.

Algoritmo principal

• // Definir e inicializar variables

Definir total Como Real

Definir t,n,m,j,k,disponible Como Real

Definir nombre Como Caracter

Definir C_Clientes,C_Productos,respuesta Como Entero

t <- 100000

C_Clientes <- 0

C_Productos <- 0

z <- 5

k <- 0

p <- 3

Dimension _inventario[p,t]

Dimension cliente[t]

• // Seleccionar acción en el menú

Repetir

 Escribir 'Ingrese Opción (1-4)'

 Escribir '*************************'

 Escribir '1.- Registro de Clientes'

 Escribir '2.- Caja Registradora'

 Escribir '3.- Inventario'

 Escribir '4.- Salir'

 Repetir

  Leer respuesta

 Hasta Que respuesta<>1 O respuesta<>2 O respuesta<>3 O respuesta<>4

 Segun respuesta  Hacer

  1:

   registroClientes(cliente,C_Clientes)

  2:

   cajaRegistradora(cliente,_inventario,C_Productos,C_Clientes)

  3:

   inventario(_inventario,C_Productos)

 FinSegun

Hasta Que respuesta=4

FinAlgoritmo

Funcion registroClientes(cliente Por Referencia,C_Clientes Por Referencia)

• // definir variables

Definir t,k Como Entero

Definir continuar Como Caracter

t <- 100000 // máximo número de clientes  

k <- 0

• // Ingresar clientes

Escribir 'Registro de clientes'

Escribir '*************************'

Repetir

 k <- k+1

 Escribir 'Ingreso nombre:'

 Leer cliente[k]

 Repetir

  Escribir 'Otro cliente?: (s/n)'

  Leer continuar

 Hasta Que (continuar=='s' O continuar=='n')

Hasta Que continuar=='n'

C_Clientes <- k

FinFuncion

Funcion inventario(_inventario Por Referencia,C_Productos Por Referencia)

• // Definir variables

Definir k,t,p Como Entero

Definir continuar Como Caracter

t <- 100000 // máximo número de artículos  

p <- 3

k <- 0

• // Ingresar productos

Escribir 'Registro de inventario'

Escribir '*************************'

Repetir

 k <- k+1

 Escribir 'Ingreso nombre del producto:'

 Leer _inventario[1,k]

 Escribir 'Ingreso precio del producto:'

 Leer _inventario[2,k]

 Escribir 'Ingreso cantidad del producto:'

 Leer _inventario[3,k]

 Repetir

  Escribir 'Otro producto?: (s/n)'

  Leer continuar

 Hasta Que (continuar=='s' O continuar=='n')

Hasta Que continuar=='n'

C_Productos <- k

FinFuncion

Funcion cajaRegistradora(cliente Por Referencia,_inventario Por Referencia,C_Productos Por Referencia,C_Clientes Por Referencia)

• // Definir variables

Definir continuar,_cliente Como Caracter

Definir queda,x,encontrado, codigoCliente, k, codigoProducto Como Entero

Definir subtotal,total Como Real

t <- 100000

z <- 5

k <- 0

Dimension factura[z,t]

Escribir 'Facturación de venta'

Escribir '*************************'

• // Ingresar datos y procesar

Escribir 'Ingresa COD cliente:'

Leer codigoCliente

Repetir

 encontrado <- 0

 Para x<-1 Hasta C_Clientes Hacer

  Si codigoCliente==x Entonces

   _cliente <- cliente[x]

   Escribir ' ',_cliente

   encontrado <- 1

  FinSi

 FinPara

 Si encontrado=0 Entonces

  Escribir 'Cliente no existe'

 FinSi

Hasta Que encontrado=1

Repetir

 k <- k+1

 factura[1,k]<-_cliente

 Escribir 'Ingresa COD producto:'

 Repetir

  encontrado <- 0

  Leer codigoProducto

  Para x<-1 Hasta C_Productos Hacer

   Si codigoProducto==x Entonces

    Escribir ' ',_inventario[1,x] Sin Saltar

    disponible <- ConvertirANumero(_inventario[3,x])

    Escribir ' Disponible: ',disponible

    Si disponible<>0 Entonces

     factura[2,k]<-_inventario[1,x]

     factura[3,k]<-_inventario[2,x]

     Escribir 'Ingreso cantidad a comprar:'

     Repetir

      Leer factura[4,k]

      Si ConvertirANumero(factura[4,k])>disponible Entonces

       Escribir 'Cantidad NO disponible'

      FinSi

     Hasta Que ConvertirANumero(factura[4,k])<=disponible

     queda <- ConvertirANumero(_inventario[3,x])-ConvertirANumero(factura[4,k])

     Escribir 'NUEVO inventario: ',queda

     _inventario[3,x]<-ConvertirATexto(queda)

     subtotal <- ConvertirANumero(factura[3,k])*ConvertirANumero(factura[4,k])

     factura[5,x]<-ConvertirATexto(subtotal)

     encontrado <- 1

    FinSi

   FinSi

  FinPara

  Si encontrado=0 Entonces

   Escribir 'Producto no existe o esta agotado'

  FinSi

 Hasta Que encontrado=1

 Repetir

  Escribir 'Otro producto?: (s/n)'

  Leer continuar

 Hasta Que (continuar=='s' O continuar=='n')

Hasta Que continuar=='n'

• // Mostrar resultados por pantalla

Escribir '           IMPRESIÓN DE FACTURA'

Escribir 'Cliente: ',_cliente

Escribir 'Producto  Cantidad  Precio  SubTotal'

Escribir ''

Para x<-1 Hasta k+1 Hacer

 Escribir factura[2,x],'       ',factura[3,x],'       ',factura[4,x],'     ',factura[5,x]

 total <- total+ConvertirANumero(factura[5,x])

FinPara

Escribir ''

Escribir 'Total factura:   ',total

FinFuncion

Para saber más acerca de algoritmo en pseint de facturación de ventas consulte: https://brainly.lat/tarea/12661136

#SPJ1