MORALES

Programa Parcial Supermercado

/tipos estructurados/
Supermercado:Registro (1000,10)
    Precio: Real 6,2
    Stock: Entreo 4
    Stock2:Entreo4/Este Stock va a tener la misma carga que Stock normal, pero lo voy a usar mas adelante para el ejercicio 1 del parcial/
    Fin Registro
Cajas:Arregelo (15)

/variables/
I: Entreo 4
J:esntro 2
Rta: Caracter 1
Monto de Venta: Real 6,2
CantxProd: Supermercado
MontoxProd: Supermercado
CantxCaj: Cajas
MontoxCaj:Cajas
T:Entreo 2



/Hacer/
/carga de Datos/
I:=0
J:=0

Repetir para 1,1000
Imprimir:¨Ingrese Precio del producto"
Leer:Precio(i,j)
Imprimir:"¨Ingrese Stock del producto"
Leer: Strock(i,J)
    Fin Repetir para

Imprimir:"Hay alguna Venta? S/N"
Leer: Rta
Repetir Mientras (Rta=S)
Imprimir:¨Ingrese Su numero de caja"
Leer: T
Imprimir:"Caja acual:", T
Imprimir"Tiene Productos por vender) S/N"

RepetirMientras(Rta=S)
Imprimir"Ingrese Los Productos del Cliente"
Monto de Venta:=Monto de Venta+Precio(i,j)
Stock(i,j)=Stock(i,j) -1
CantxCaj(T):=CantxCaj(T)+1
MontoxCaj(T):=Stock(i,j)*Precio
Imprimir:"Tiene otro producto?S/N"
Leer:Rta
    Fin Repetir Mientras
    Fin Repetir Mientras
Imprimir:"Hay alguna otra Venta? S/N"
Leer: Rta
Repetir para 1,1000
Imprimir:"Cantidad vendida del producto"(i,j), "es:", Stock2(i,j)-Stock(i,j)
Imprimir:"Monto del producto",(i,j),"es:"Stock2(i,j)-Stock(i,j)*Precio(i,j)
    Fin Repetir para


Si (CantxCaj(T) >=CantxCaj(T))Entonces
Imprimir:"El cajero que mas vendio fue el:",T
Imprimir:"Este cajero vendio:"CantxCaj(T),"de pruductos, y genero:"MontoxCaj(T);" de pesos totales"
Sino: Imprimir: "Este cajero",(T),"no es el que mas vendio"
    Fin Si
    Fin Hacer
    Fin programra