Creado con PseInt Web

control_alimentos.psc

Algoritmo  controlAlimentos
    Definir nombres Como Caracter
    Definir caducidades Como Entero
    Definir aux Como Entero
    Definir i Como Entero
    Definir j Como Entero
    Definir cantidad Como Entero
    Definir pos_menor Como Entero

    // la cantidad de productos que se registrarán
    Escribir "Ingrese la cantidad de productos que se registrarán"
    Leer cantidad
    
    Dimension nombres[cantidad]
    Dimension caducidades[cantidad]
    
    // Registrar el nombre y el tiempo estimado de caducidad de cada producto.
    // Almacenar la información de los productos.
    Para i = 1 Hasta cantidad Hacer
        Escribir "Ingrese el nombre del producto ", i, ":"
        Leer nombres[i]
        
        Escribir "Ingrese la caducidad de ", nombres[i], ":"
        Leer caducidades[i]        
    FinPara
    
    Escribir "----------------------------"
    Escribir "LISTA DE PRODUCTOS REGISTRADOS:"
    Escribir "----------------------------"

    Para i = 1 Hasta cantidad Hacer
        Escribir "- ", nombres[i], " tiene ", caducidades[i], " días de caducidad."
    FinPara


    // Ordenar los productos de menor a mayor tiempo estimado de caducidad.
    Para i<-1 Hasta cantidad-1 Hacer
        // busca el menor entre i y cantidad
        pos_menor<-i
        Para j<-i+1 Hasta cantidad Hacer
            Si caducidades[j]<caducidades[pos_menor] Entonces
                pos_menor<-j
            FinSi
        FinPara
        // intercambia el que estaba en i con el menor que encontro
        aux<-caducidades[i]
        caducidades[i]<-caducidades[pos_menor]
        caducidades[pos_menor]<-aux
    FinPara    
    
    // Mostrar la lista ordenada como plan de atención y envío.
    Escribir " "
    Escribir "----------------------------"
    Escribir "LISTA DE PRODUCTOS ORDENADA:"
    Escribir "----------------------------"
   
    Para i<-1 Hasta cantidad Hacer
        Escribir "- ", nombres[i], " tiene ", caducidades[i], " días de caducidad."
    FinPara
FinAlgoritmo