Cadena Capicua

% Programa que comprueba si una cadena es capicua

cadena = input('Introduce una palabra entre comillas:');

% indice que apunta al principio de la cadena

i = 1;

% indice que apunta al final de la cadena

j = length(cadena);

% bucle para hacer las comprobaciones dos a dos

% mientras el primer indice siga a la izquierda

% del segundo, no se ha producido el cruce.

while i <= j

% si encontramos algun caracter distinto interrumpimos

if cadena(i) ~= cadena(j)

break;

else

% en caso de ser iguales actualizamos los indices para

% apuntar a las siguientes posiciones

i = i + 1;

j = j - 1;

end

end

% Al final del proceso comprobamos si los indices se han cruzado

% si no se han cruzado, se interrumpio con break porque habia diferencias

% si se han cruzado, la cadena es capicua

if j < i

disp('LA CADENA ES CAPICUA')

else

disp('LA CADENA NO ES CAPICUA');

end