-
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
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
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