Ejercicios Prácticos de Programación en Pseudocódigo para Manipulación de Cadenas de Texto
Ejercicios Resueltos de Manipulación de Cadenas en Pseudocódigo
Inversión de Cadenas
Cadena invertida
Definir cad, invertida Como Caracter;
Definir car Como Entero;
invertida <- "";
Escribir Sin Saltar "Introduce una cadena:";
Leer cad;
Para car <- Longitud(cad) - 1 hasta 0 Con Paso -1 Hacer
invertida <- concatenar(invertida, Subcadena(cad, car, car));
FinPara
Escribir "La cadena invertida es:", invertida;
FinProceso
Recorrido y Extracción de Caracteres
Escribir Caracteres
Definir cad Como Caracter;
Definir posicion Como Entero;
Escribir "Introduce una cadena:";
Leer cad;
Para posicion <- 0 hasta Longitud(cad) - 1 Hacer
Escribir Subcadena(cad, posicion, posicion);
FinPara
FinProceso
Validación de Prefijos
Comienza por
Definir cad, subcad Como Caracter;
Escribir Sin Saltar "Introduce una cadena:";
Leer cad;
Escribir Sin Saltar "Introduce una subcadena:";
Leer subcad;
Si Subcadena(cad, 0, Longitud(subcad) - 1) = subcad Entonces
Escribir "La cadena comienza por la subcadena";
SiNo
Escribir "La cadena NO comienza por la subcadena";
FinSi
FinProceso
Conteo de Frecuencia de Caracteres
Contar caracteres
Definir cad, car Como Caracter;
Definir posicion, cont Como Entero;
cont <- 0;
Escribir Sin Saltar "Introduce una cadena:";
Leer cad;
Repetir
Escribir Sin Saltar "Introduce un carácter:";
Leer car;
Hasta Que Longitud(car) = 1;
Para posicion <- 0 hasta Longitud(cad) - 1 Hacer
Si Subcadena(cad, posicion, posicion) = car Entonces
cont <- cont + 1;
FinSi
FinPara
Escribir "En la cadena ", cad, " aparecen ", cont, " veces el carácter ", car, ".";
FinProceso
Detección de Palíndromos
Palíndromo
Definir cad1, cad2 Como Caracter;
Definir posicion Como Entero;
cad2 <- "";
Escribir "Introduce una cadena:";
Leer cad1;
Para posicion <- Longitud(cad1) - 1 Hasta 0 Con Paso -1 Hacer
cad2 <- Concatenar(cad2, Subcadena(cad1, posicion, posicion));
FinPara
Si cad1 = cad2 Entonces
Escribir "Es un palíndromo";
SiNo
Escribir "No es un palíndromo";
FinSi
FinProceso
Conversión de Mayúsculas y Minúsculas
May i Min
Definir cad, newcad Como Caracter;
Definir posicion Como Entero;
newcad <- "";
Escribir Sin Saltar "Introduce una cadena:";
Leer cad;
Para posicion <- 0 hasta Longitud(cad) - 1 Hacer
Si Subcadena(cad, posicion, posicion) = Mayusculas(Subcadena(cad, posicion, posicion)) Entonces
newcad <- concatenar(newcad, Minusculas(Subcadena(cad, posicion, posicion)));
FinSi
Si Subcadena(cad, posicion, posicion) = Minusculas(Subcadena(cad, posicion, posicion)) Entonces
newcad <- concatenar(newcad, Mayusculas(Subcadena(cad, posicion, posicion)));
FinSi
FinPara
Escribir "La cadena convertida es: ", newcad;
FinProceso