SLE_Practica47_Paises

/* Elabora un algoritmo que pida 5 nombres de países, insertarlos en una pila,
copiar esa pila en una segunda con los elementos en mayúsculas,
desplegar las dos pilas */

var
    pila1, pila2: vector [5] cadena
    tope1, tope2: numerico
    pais: cadena
     i: numerico

inicio
    tope1 = 0
    tope2 = 0
    cls()

    // Insertar 5 nombres de países en la primera pila
    desde i=1 hasta 5 {
        imprimir("Introduce el nombre del país ", i, ": ")
        leer(pais)
        si (tope1 < 5) {
            tope1 = tope1 + 1
            pila1[tope1] = pais
         sino
            imprimir("\nLa pila1 está llena.")
        }
    }

    // Copiar elementos de pila1 a pila2 en mayúsculas
    mientras (tope1 > 0) {
        pais = pila1[tope1]
        tope1 = tope1 - 1

        // Convertir a mayúsculas
        pais = upper( pais )

        /* desde j=1 hasta strlen(pais) {
            si (caracter(pais, j) >= 'a' y caracter(pais, j) <= 'z') {
                asignar_caracter(pais, j, caracter(pais, j) - 32)
            }
           } */

        si (tope2 < 5) {
            tope2 = tope2 + 1
            pila2[tope2] = pais
         sino
            imprimir("\nLa pila2 está llena.")
        }
    }

    // Desplegar elementos de pila1
    imprimir("\nElementos en pila1:")
    mientras (tope1 < 5) {
        imprimir("\n ", pila1[tope1 + 1])
        tope1 = tope1 + 1
    }

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