SLE_Practica46_PilaEstatica_Pop

/* Elabora un algoritmo que permita introducir 10 elementos de tipo entero
en una pila estática y mediante la implementación de Pop ir sacando
los elementos e introducirlos en una segunda pila. Desplegar ambas pilas. */

var
    pila1, pila2: vector [10] numerico
    tope1, tope2, elemento: numerico
     i: numerico

inicio
    tope1 = 0
    tope2 = 0
    cls()

    // Insertar 10 elementos en la primera pila
    desde i=1 hasta 10 {
        imprimir("Introduce el elemento ", i, ": ")
        leer(elemento)
        si (tope1 < 10) {
            tope1 = tope1 + 1
            pila1[tope1] = elemento
            sino
            imprimir("La pila1 está llena.")
        }
    }

    // Transferir elementos de pila1 a pila2 usando Pop
    mientras (tope1 > 0) {
        elemento = pila1[tope1]
        tope1 = tope1 - 1

        si (tope2 < 10) {
            tope2 = tope2 + 1
            pila2[tope2] = elemento
         sino
            imprimir("La pila2 está llena.")
        }
    }

    // Desplegar elementos de pila1
    imprimir("\nElementos en pila1 (vacía):")
    mientras (tope1 > 0) {
        imprimir("\n - ",pila1[tope1])
        tope1 = tope1 - 1
    }

    // Desplegar elementos de pila2
    imprimir("\n\nElementos en pila2:")
    mientras (tope2 > 0) {
        imprimir("\n - ",pila2[tope2])
        tope2 = tope2 - 1
    }
fin