Pascal/Turbo Pascal - 4.1 tema 7

{Mira esto}

program invertida;

 uses

   crt;

   const

     tama = 30;

  var

    cadena, inversa : string;

    i : integer;

  procedure cadenainvertida(cade : string; var res : string);

  var

    c : integer;

  begin

     c := 1;

     for i := length(cade) downto 1 do

     begin

        res[c] := cade[i];

        res[0] := chr(c);

        c := c + 1;

     end;

  end;

  begin

      clrscr;

      write('  Entre una cadena de ',tama,' : ');

      readln(cadena);

      cadenainvertida(cadena, inversa);

      writeln;

      writeln('  La Cadena Queda = ',inversa);

      readkey;

  end.

program cadenainvertida;

(*Definimos el tipo de dato que vamos a utilizar para pasar la cadena de

  caracteres al procedimiento*)

Type

 cadena20 = string[20];

(*Asignamos la variable necesaria*)

var

 frase: cadena20;

(*Declaramos el procedimiento que va a invertir los caracteres de la cadena*)

Procedure InvertirFrase(VAR FraseInvertida:cadena20);

var

 i:integer;

(*Para recorrer la cadena o un array necesitamos una estructura iterativa,

  empleamos el for e invertimos la cadena al escribirla desde el ultimo

  caracter al primero*)

begin

(*He añadido otra opción para averiguar la longitud de cadena*)

 For i:= (*length(fraseinvertida)*)ord (FraseInvertida[0]) downto 1 do

 write(fraseinvertida[i]);

end;

begin

(*Solicitamos la frase y la metemos en su variable correspondiente*)

 writeln('Escriba una frase que no supere los 20 caracteres');

 readln(frase);

 write('La frase invertida es:  ');

 writeln;

 (*Llamamos al procedimiento y mostramos en pantalla el resultado*)

 InvertirFrase(frase);

 writeln;

 readln;

end.