Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » manipulación de string

Pascal/Turbo Pascal - manipulación de string

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

manipulación de string

Publicado por Jose (5 intervenciones) el 21/01/2015 22:21:36
Hola, disculpen, necesito ayuda con un programa sobre string.
el enunciado dice: Crear un programa que lea una frase y determine cuantas veces aparece una palabra dentro de la frase..
Por favor necesito ayuda..
se como encontar la palabra en la frase pero no se como contarla..
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

manipulación de string

Publicado por ramon (2158 intervenciones) el 21/01/2015 23:59:19
Crea una variable integer y cada aparición de la frase que buscas la incrementas en 1 con ello ya tienes las veces que aparece.

si necesita un ejemplo dímelo.
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

manipulación de string

Publicado por Jose (5 intervenciones) el 22/01/2015 01:33:04
Si es lo se, pero no se como aplicarlo.. no se si me explico.. esto es lo que tengo..
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program buscar_palabra;
uses crt;
 
var
frase, palabra: string;
rept,i: integer;
 
begin
 clrscr;
 writeln('Introdusca una frase:');
 readln(frase);
 writeln('Introdusca la palabra a buscar');
 readln(palabra);
 
 if ( pos(palabra, frase) > 0 ) then
  begin
   writeln('Si se encontro la palabra');
  end
  else
   begin
    writeln('La palabra no esta en la frase');
   end;
 readkey;
end.

No se como hacer para ver cuantas veces se repite la palabra..
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

manipulación de string

Publicado por Jose (5 intervenciones) el 22/01/2015 02:24:45
Bueno creo que encontre la forma.. y me corre bien.. asi quedo:

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
program buscar_palabra;
 uses crt;
 
 var
 frase, palabra: string;
 rept,i,t: integer;
 
 begin
  clrscr;
  writeln('Introdusca una frase:');
  readln(frase);
  writeln('Introdusca la palabra a buscar:');
  readln(palabra);
  t:= length(palabra);
  rept:=0;
 
  if ( pos(palabra, frase) > 0 ) then
  begin
   writeln('Si se encontro la palabra.');
   while ( pos(palabra, frase) > 0 ) do
   begin
    delete(frase,pos(palabra, frase),t);
    rept:= rept+1;
   end;
  end
  else
  begin
   writeln('La palabra buscada no esta en la frase.');
  end;
  writeln('La palabra buscada se repite ',rept,' veces.');
 
 
  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

manipulación de string

Publicado por ramon (2158 intervenciones) el 22/01/2015 12:15:52
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
{Mira esto}
 
 program palabras;
 uses
    crt;
  var
    palabra, frase : string;
    f, k, w, num : integer;
    existe : string;
  begin
       clrscr;
       write('   Entre Frase : ');
       readln(frase);
       write('   Entre Palabra : ');
       readln(palabra);
    f := 1;
    w := 1;
    num := 0;
    fillchar(existe,256,' ');
    for k := f to length(frase) do
    begin
        if frase[k] <> ' ' then
        begin
        existe[w] := frase[k];
        existe[0] := chr(w);
        w := w + 1;
        end
      else
         begin
            if existe > ' ' then
            begin
               if existe = palabra then
               begin
               num := num + 1;
               end;
                fillchar(existe,256,' ');
                 w := 1;
             end;
             f := k;
         end;
       end;
       if existe > ' ' then
       begin
          if existe = palabra then
          num := num + 1;
       end;
       writeln;
       writeln('      ',num);
       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