Pascal/Turbo Pascal - hacer un programa para determinar las palabras palindromes

   
Vista:

hacer un programa para determinar las palabras palindromes

Publicado por RAMON GIRALO gerrero_19@hotmail.com (1 intervención) el 24/11/2015 16:11:03
porfa, quien me pueda ayudar hacer un programa para las palabras palindromes qe diga si son palindrome o no
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
-2
Responder

hacer un programa para determinar las palabras palindromes

Publicado por Armando Fuenmayor patusnalgason@hotmail.com (22 intervenciones) el 25/11/2015 21:02:25
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
uses crt;
     var
       palabra : string[25];
       Ch: Char;
 
     (********************************)
     (* Function alreves             *)
     (********************************)
     function voltear(S: string): string;
     var
       I, y : Integer;
       aux : string[25] ;
     begin
        aux := '';
        y  := 0;
      for I := Length(S) downto 1 do
      begin
          y := y + 1;
          aux := aux + S[I];
       end;
          voltear := aux;
      end;
 
     (********************************)
     (* Function alreves             *)
     (********************************)
     function sino(S1: string): string;
     var
       I, y : Integer;
       aux : string[25] ;
     begin
 
       if (S1 = voltear(S1))  then
       begin
         sino := 'Si';
       end
       else
       begin
          sino := 'No';
       end;
      end;
 
     begin
      (********************************);
      (* programa principal           *);
      (********************************);
     repeat
       clrscr;
       gotoxy(20,5);
       write('Ingrese una palabra: ');
 
       gotoxy(41,5);
       readln(palabra);
 
       gotoxy(20,7);
       write('la palabra es: ', palabra ,' ' , sino(palabra),' ','es palindrome');
 
 
          gotoxy(20,9);
        write('Desea continuar [S/N]: ');
              Ch := readkey ;
 
     until (upcase(Ch) <> 'S');
 
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar