Pascal/Turbo Pascal - 4.1 tema 7

   
Vista:

4.1 tema 7

Publicado por Erik Napster_EPD88@hotmail.com (73 intervenciones) el 20/03/2014 16:05:40
hola, tengo que hacer lo siguiente:

Escriba un procedimiento que reciba una cadena de caracteres y la devuelva invertida. Es decir, si recibe ‘hola’ devolverá ‘aloh’. A continuación, introduzca el procedimiento en un programa que pida al usuario una cadena, se asegure que no supera una longitud máxima definida en una constante, invoque el procedimiento anterior, y muestre por pantalla la cadena resultado.

gracias de antemano.
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

4.1 tema 7

Publicado por ramon (2072 intervenciones) el 24/03/2014 13:11:42
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
{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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar