Contar cuántas veces se repite una palabra en un string
Publicado por Carolina (1 intervención) el 23/02/2020 23:53:41
Hola, necesito ayuda con la siguente consigna:
Hacer un algoritmo que permita contar la cantidad de veces que aparece una palabra dentro
de una cadena de caracteres. La cadena de caracteres y la palabra buscada son ingresadas
por el usuario.
yo llegué a esto:
Hacer un algoritmo que permita contar la cantidad de veces que aparece una palabra dentro
de una cadena de caracteres. La cadena de caracteres y la palabra buscada son ingresadas
por el usuario.
yo llegué a esto:
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
program ej2tp8;
uses crt;
type
cadena=string;
contador=integer;
var
cad:cadena;
palabra:cadena;
cpal:contador;
procedure cuenta (VAR cade:cadena);
var
i:integer;
begin
i:=1;
cpal:=0;
writeln('Ingrese la palabra que desea contar');
readln(palabra);
palabra:=upcase(palabra);
for i:=1 to length(cade) do begin
if cade [length (cade)] = palabra then
begin
cpal:=cpal+1;
end;
end;
writeln('La palabra ',palabra,' aparece ',cpal,' veces');
end;
begin
writeln('Ingrese una cadena');
readln(cad);
cad:=upcase(cad);
cuenta(cad);
end.
Valora esta pregunta
0