Pascal/Turbo Pascal - programa q desorganice el texto

   
Vista:
Imágen de perfil de Marvin

programa q desorganice el texto

Publicado por Marvin (1 intervención) el 19/07/2013 22:33:46
Esto es lo que me piden he puesto la funcion pos para localizar los espacios en blanco pero solo me localiza el primer espacio y lo demas no me sale. Realice un programa que permita ingresar una frase y que desorganize las palabras de la frase, dejando la primera y la ultima letra en las posiciones originales, no asi el resto de las letras de la palabra.
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

programa q desorganice el texto

Publicado por ramon (2072 intervenciones) el 22/07/2013 21:40: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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
{Mira esto}
 
 program desorgan;
 uses
    crt;
  type
    string79 = string[79];
 
  var
    texto : string79;
    desorg : string79;
    k, i : integer;
 
  procedure entre_texto;
  begin
      clrscr;
      write(' Texto : ');
      readln(texto);
  end;
 
  procedure desorganiza(var desorg : string79);
  var
     long : integer;
  begin
      long := length(texto);
      desorg[1] := texto[1];
      desorg[0] := chr(1);
      for i := 2 to long - 1 do
      begin
      desorg[i] := texto[long - (i - 1)];
      desorg[0] := chr(i);
      end;
      desorg[long] := texto[long];
      desorg[0] := chr(long);
      writeln;
      writeln(desorg);
      writeln;
      writeln(texto);
     readkey;
  end;
 
  begin
      entre_texto;
      desorganiza(desorg);
  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