Práctica 6 Capicúa o palíndromo:
Descripción: El código determina si una cadena ingresada por el usuario es un
palíndromo o un número capicúa.
Pseudocódigo:
Algoritmo VerificarCapicuaPalindromo
Definir palabra, puntero, cont Como Cadena
Escribir "Ingresa una palabra o un número: "
Leer palabra
puntero <- palabra
cont <- 0
Para i <- 1 Hasta Longitud(palabra) Con Paso 1 Hacer
Si puntero[i] = puntero[Longitud(palabra) - i + 1] Entonces
cont <- cont + 1
FinSi
FinPara
Si cont = Longitud(palabra) Y EsNumero(palabra) Entonces
Escribir "Es un número capicúa."
Sino Si cont = Longitud(palabra) Entonces
Escribir "Es un palíndromo."
Sino
Escribir "No es ni un número capicúa ni un palíndromo."
FinSi
FinAlgoritmo
Funcion EsNumero(palabra Como Cadena) Como Logico
Definir cont Como Entero
cont <- 0
Para i <- 1 Hasta Longitud(palabra) Con Paso 1 Hacer
Si EsNumero(palabra[i]) = Verdadero O palabra[i] = " " Entonces
cont <- cont + 1
FinSi
FinPara
Si cont = Longitud(palabra) Entonces
Devolver Verdadero
Sino
Devolver Falso
FinSi
FinFuncion
