Pascal/Turbo Pascal - Obtener una palabra de un string

   
Vista:

Obtener una palabra de un string

Publicado por Pablo (11 intervenciones) el 27/09/2016 05:02:49
Hola ! cómo sería el código de este ejercicio ? Gracias.

Cargar en un vector auxiliar las palabras de una frase y mostrar las palabras ordenadas de menor a mayor.
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

Obtener una palabra de un string

Publicado por ramon (2109 intervenciones) el 27/09/2016 17:50:30
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
66
67
68
69
70
71
72
73
74
75
{A ver si esto te ayuda }
 
 program ardenarpalabras;
  uses
    crt;
  var
    palabras : array[1..80] of string[50];
    texto : string;
    cont : integer;
 
   procedure entradatexto(var tex : string);
   begin
       clrscr;
       write('  Texto : ');
       readln(tex);
   end;
 
   procedure tomapalabras(t : string);
   var
     pal : string[50];
     r, z, i : integer;
     begin
        cont := 0;
        r := 1;
        z := 1;
        fillchar(pal,sizeof(pal),0);
        for i := 1 to length(t) do
        if t[i] <> ' ' then
        begin
           pal[r] := upcase(t[i]);
           pal[0] := chr(r);
           r := r + 1;
        end
     else
        begin
          palabras[z] := copy(pal,1,length(pal));
          z := z + 1;
          fillchar(pal,sizeof(pal),0);
          r := 1;
        end;
        if pal <> '0' then
        palabras[z] := copy(pal,1,length(pal));
        cont := z;
     end;
 
     procedure ordenaypresenta;
     var
       temp : string[50];
       h, k : integer;
     begin
         for h := 1 to cont do
         begin
           for k := cont downto h do
           begin
           if length(palabras[h]) > length(palabras[k]) then
           begin
              temp := palabras[h];
              palabras[h] := palabras[k];
              palabras[k] := temp;
           end;
         end;
       end;
         writeln;
         for k := 1 to cont do
         writeln('   ',palabras[k]);
         writeln;
         writeln('  Pulse Una Tecla');
         readkey;
     end;
 
   begin
       entradatexto(texto);
       tomapalabras(texto);
       ordenaypresenta;
   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