Pascal/Turbo Pascal - (consulta) Tratamiento de cadena 2

   
Vista:

(consulta) Tratamiento de cadena 2

Publicado por Horacio (53 intervenciones) el 13/08/2015 21:49:53
Buenas tengo este enunciado de problema:
Hacer un algoritmo que permita contar la cantidad de palabras que tienen más de tres caracteres.
http://pastebin.com/SeM5U5FH
lo he codificado quisiera si lo pueden ver y orientarme si esta bien hecho
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

(consulta) Tratamiento de cadena 2

Publicado por ramon (2072 intervenciones) el 14/08/2015 11:42:46
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
{tu cuentas también las de tres caracteres y pones  más de tres caracteres.
 Mira esto}
 
program TP06_2;
  uses
      crt;
  var
    letra, cont, paso : integer;
 
   function palabras_de_mas_de_tres_caracteres(pl : string) : integer;
    begin
        palabras_de_mas_de_tres_caracteres := 0;
        letra := 0;
        cont := 0;
        for paso := 1 to length(pl) do
        begin
        if pl[paso] <> ' ' then
        letra := letra + 1;
        if pl[paso] = ' ' then
        begin
          if letra > 3 then
          begin
             cont := cont + 1;
             letra := 0;
          end
        else
           begin
              letra := 0;
           end;
         end;
      end;
        if letra > 3 then
        cont := cont + 1;
        palabras_de_mas_de_tres_caracteres := cont;
     end;
 
 
 
  begin
     clrscr;
     writeln;
     writeln('Cantidad de palabras con mas de tres caracteres: ',
      palabras_de_mas_de_tres_caracteres('             Hoy es Jueves.'));
     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

(consulta) Tratamiento de cadena 2

Publicado por Horacio (53 intervenciones) el 14/08/2015 15:37:52
Hola gracias, el ultimo if fuera del for en la funcion es para ver la ultima palabra en caso de que tengo un punto u otro caracter??
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

(consulta) Tratamiento de cadena 2

Publicado por ramon (2072 intervenciones) el 14/08/2015 17:29:14
Exacto por si termina y queda algo sin contar.
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