Otro programita para ustedes
PROGRAM palindromo;
USES crt;
VAR
cad1,cad2: STRING;
es_pal:boolean; {es pal¡ndromo - lo usamos para guardar en una variable la respuesta
a si es un pal¡ndromo o no}
PROCEDURE invertir(cad1:STRING; VAR cad2:STRING);
VAR
i:integer;
BEGIN
cad2:='';
FOR i:=length(cad1) DOWNTO 1 DO
cad2:=cad2+copy(cad1,i,1);
END;
PROCEDURE comparar(cad1:string;cad2:string;VAR sw:boolean);
VAR
i,j:integer;
car1,car2:string;
BEGIN
es_pal:=true;
IF length(cad1) <> length(cad2) THEN {Si la longitud de las cadenas es distinta}
es_pal:=false {no puede ser un pal¡ndromo}
ELSE
BEGIN
i:=1;j:=1;
WHILE (es_pal) AND (i <= length(cad1)) DO
BEGIN
car1:=copy(cad1,i,1);
car2:=copy(cad2,j,1);
IF car1 = ' ' THEN
BEGIN
i:=i+1;
car1:=copy(cad1,i,1);
END;
IF car2 = ' ' THEN
BEGIN
j:=j+1;
car2:=copy(cad2,j,1);
END;
IF car1=car2 THEN es_pal:=true
ELSE
es_pal:=false;
i:=i+1;j:=j+1;
END;
END;
END;
BEGIN
ClrScr;
gotoxy(3,3); WRITE ('ESCRIBA UNA FRASE: ');
READLN (CAD1);
invertir(cad1,cad2);
comparar (cad1,cad2,es_pal);
IF es_pal = true THEN
BEGIN
gotoxy(10,13); WRITELN ('LA FRASE ESCRITA ES UN PALINDROMO');
END
ELSE
BEGIN
gotoxy(10,13); WRITELN ('LA FRASE ESCRITA NO ES UN PALINDROMO');
END;
REPEAT Until Keypressed;
END.