-
Lenguaje
Pascal
-
Descripción
Pide una palabra y determina si es palíndrome
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
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
program palindrome;
uses crt;
var palabra : string;
var i, j : integer;
var tecla : char;
begin
i := 1;
write ('Ingrese una palabra: ');
readln (palabra);
j := length (palabra);
while (i <= j) and (upcase (palabra[i]) = upcase (palabra[j])) do
begin
inc (i);
dec (j);
end;
write (#10#13'La palabra '#39, palabra, #39' ');
if i >= j then
write ('s'#161)
else
write ('no');
writeln (' es pal'#161'ndrome.'#10#13);
write ('Presione una tecla para terminar . . . ');
tecla := readkey;
end.
uses crt;
var palabra : string;
var i, j : integer;
var tecla : char;
begin
i := 1;
write ('Ingrese una palabra: ');
readln (palabra);
j := length (palabra);
while (i <= j) and (upcase (palabra[i]) = upcase (palabra[j])) do
begin
inc (i);
dec (j);
end;
write (#10#13'La palabra '#39, palabra, #39' ');
if i >= j then
write ('s'#161)
else
write ('no');
writeln (' es pal'#161'ndrome.'#10#13);
write ('Presione una tecla para terminar . . . ');
tecla := readkey;
end.