Dice si una palabra es palindroma.
¿Has encontrado un error? ¿Tienes la solución? Deja tu correción ;-)
Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress las eliminó al verlas como etiquetas HTML.
Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios. Y lo mas importante: Todos los ejemplos
fueron realizados por estudiante con únicamente conocimiento básico del lenguaje, no de programación.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37 | {
Descripcion: Dice si una palabra es pal¡ndroma.
www.mis-algoritmos.com
}
uses crt; {Cargamos la libreria de la pantalla}
var
palabra : string;
cont : integer;
palindromo : boolean; begin
clrscr; {Limpiamos pantalla}
readln(palabra); {Entrada desde el teclado}
cont:=1; {Inicializamos el contador}
while cont<=length(palabra) div 2 do {Ciclo hasta la mitad de la cadena} begin
if palabra[cont]=palabra[length(palabra)-(cont-1)] then
{Coomparamos si la ultima letra conincide con la primera y
asi sucesivamente hasta llegar al centro}
begin palindromo:=true;
{Si son iguales, bandera en true}
end
else
begin palindromo:=false;
{Si encuentra una diferencia, bandera en false}
cont:=length(palabra) div 2;{Break}
end;
cont:=cont+1;{Incrementamos contador en uno} end;
if palindromo=true then{Mostramos una salida legible por el usuario}
writeln('Si es Palindromo')
else
writeln('No es palindromo'); readkey;{Esperamos una tecla para finalizar}
end. |
Punto importante: Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:
- Si es lenguaje C <code lang="c">Código en C</code>
- Si es lenguaje Pascal <code lang="pascal">Aquí dentro el código de Pascal</code>.
De esta manera el código coloreas el código.
Deja un comentario
