Pascal/Turbo Pascal - necesito que me ayuden con la palabra palindroma....que yo la pensaba revertir ....

   
Vista:

necesito que me ayuden con la palabra palindroma....que yo la pensaba revertir ....

Publicado por Graciela (2 intervenciones) el 29/07/2016 21:08:19
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
function espalindromo(s : cadena) : boolean;
 
    var
 
      temp : cadena;
 
    begin
 
       l := 1;
 
       for i := length(s) downto 1 do
 
       begin
 
          temp[l] := s[i];
 
          temp[0] := chr(l);
 
          l := l + 1;
 
       end;
 
         if temp = s then
 
         espalindromo := true
 
      .....como tengo que hacer para que me muestre en pantalla la palabra degradada...ej. amoroso, debajo moroso,debajo oroso, y debajo roso, y oso.....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

necesito que me ayuden con la palabra palindroma....que yo la pensaba revertir ....

Publicado por ramon (2072 intervenciones) el 29/07/2016 23:04:52
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
{Esto serbira}
 
program amoroso;
 uses
    crt;
   const
      frase : string = 'amoroso';
 
    begin
       clrscr;
       writeln('   1 = ',frase);
       delete(frase,1,1);
       writeln('   2 = ',frase);
       delete(frase,1,1);
       writeln('   3 = ',frase);
       delete(frase,1,1);
       writeln('   4 = ',frase);
       delete(frase,1,1);
       writeln('   5 = ',frase);
       readkey;
   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