• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Pide una palabra y determina si es palíndrome

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Algoritmo ProcesoPalabraPalindrome
    i <- 1;
    Escribir Sin Saltar "Ingrese una palabra:";
    Leer palabra;
    j <- Longitud(palabra);
    Mientras i < j Y Minusculas(Subcadena(palabra, i, i)) = Minusculas(Subcadena(palabra, j, j)) Hacer
        i <- i + 1;
        j <- j - 1;
    FinMientras
    Escribir "";
    Escribir Sin Saltar "La palabra (", palabra, ") ";
    Si i >= j Entonces
        Escribir Sin Saltar "si";
    Sino
        Escribir Sin Saltar "no";
    FinSi
    Escribir " es palíndrome.";
FinAlgoritmo