Pascal/Turbo Pascal - Crear programa para contar palabras y cantidad de letras

 
Vista:
sin imagen de perfil

Crear programa para contar palabras y cantidad de letras

Publicado por Nahuel (2 intervenciones) el 10/04/2014 02:10:01
Hola gente me podria explicar como hago un programa para contar cuantas palabras tiene una frase?? y que me diga de las palabras que empiezen con H cual es la mas larga? Les agradeceria mucho


ej: Hola me llamo Hillary

yo quiero que el programa me devuelva

cantidad de palabras: 4
cantidad de letras de la palabra mas larga que empieza con H: 7


Es para resolver un problema de la facultad, todabia no dimos strings ni nada avanzado, solo lo basico se que tenemos que trabajar con dos contadores si no me equiboco para controlar que la palabra empieze con "espacio" y "H"
o "punto" y "H"
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

Crear programa para contar palabras y cantidad de letras

Publicado por ramon (2158 intervenciones) el 11/04/2014 11:41:45
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
{Esto te ayudara}
 
 program contarpalabrea;
  uses
     crt;
   var
      texto : string;
      ante, cont : integer;
      dd, palabra, lah : integer;
      cuenta : boolean;
 
   begin
      clrscr;
      dd := 0;
      palabra := 0;
      lah := 0;
      ante := 0;
      cuenta := false;
      texto := 'Hola me llamo Hillary';
      for cont := 1 to length(texto) do
      begin
      if (texto[cont] = 'h') or (texto[cont] = 'H') then
      cuenta := true;
      if cuenta = true then
      lah := lah + 1;
      if texto[cont] <> ' ' then
      dd := dd + 1
    else
       begin
          if dd > 0 then
          palabra := palabra + 1;
          dd := 0;
          cuenta := false;
          if ante < lah then
          ante := lah;
          lah := 0;
       end;
     end;
     if ante < lah then
     ante := lah;
     writeln('  Las Palabras Son                 : ',palabra + 1);
     writeln('  Las Frase Con H Mas Larga Es De  : ',ante);
     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