Contagem de Palavras

Vista previa del material en texto

CLASE String continuación
Ejemplo 2
Hacer un algoritmo que permita recibir una cadena de caracteres que finalice en un punto.
Contar la cantidad de palabras que tiene dicha cadena de caracteres.
Var cad: String [60]
 i: Integer
 cantpalabra: Integer
Begin 
 Mostrar(“ingrese una cadena de caracteres”)
 Leer(cad)
 i:=1
 cantpalabra:=0
 Mientras cad[i] <> “.” Hacer
 Mientras cad[i] = ” “ Hacer
 i:= i + 1
 Mientras cad[i] <> “ “ AND cad[i] <> “.” Hacer
 i:= i + 1
 Si cad[i-1]<> OR cad[i] <> “.” Entonces
 cantpalabra:= cantpalabra+1
 
Mostrar(“cantidad de caracteres es”, cantpalabra)
End.
 
 
b
 L i c e n c i a t u r a e n S i s t e m a s . 
 Mostrar(“ingrese una cadena de caracteres”)
 Leer(cad)
 i:=1
 cantpalabra:=0
 Mientras cad[i] <> “.” Hacer
 Mientras cad[i] = ” “ Hacer
 i:= i + 1
 Mientras cad[i] < > “ “ AND cad[i] <> “.” Hacer
 i:= i + 1
 Si cad[i-1]<> OR cad[i] <> “´.” Entonces
 cantpalabra:= cant palabra+1
 
Mostrar(“cantidad de caracteres es”, cantpalabra )
1
2
3
4
5
6
7
8
9
10
11
12
13
15
14
17
16
18
19
20
21
22
23
24
25
26
Cad[1]
Cad[1]
1
2
Cad[2]
L
L
L
2
3
Cad[3]
Cad[3]
i
i
3
4
a
a
13
14
Cad[14]
Cad[14]
0
1
Cad[14]
Cad[14]
14
15
Cad[15]
e
Cad[15]
Cad[15]
e
e
15
16
n
n
16
17
Cad[17]
Cad[17]
1
2
17
18
S
S
S
18
19
a
a
24
25
s
s
25
26
.
.
2
3
.
3
b
Ejemplo 3
Hacer un algoritmo que permita recibir una cadena de caracteres que finalice en un punto.
Contar la cantidad de palabras que comienzan con el la letra c o C de dicha cadena.
Var cad: String [60]
 nuevapal: string[30]
 i: Integer
 cantpalabra: Integer
Begin 
 Mostrar(“ingrese una cadena de caracteres”)
 Leer(cad)
 i:=1
 cantpalabra:=0
 nuevapal:=“”
 Mientras cad[i] <> “.” Hacer
 Mientras cad[i] = ” “ Hacer
 i:= i + 1
 nuevapal:=“”
 Mientras cad[i] <> “ “ AND cad[i] <> “.” Hacer
 nuevapal:= nuevapal + cad [i]
 i:= i + 1
 Si nuevapal[1] =“c” OR nuevapal[1] = “C” Entonces
 cantpalabra:= cant palabra+1
 
Mostrar(“cantidad de caracteres es”, cantpalabra)
End.
 
 
L a c a s a d e c a r t o n e n C A B A .
1
2
3
4
5
6
7
8
9
10
11
12
13
15
14
17
16
18
19
20
21
22
23
24
25
26
Mostrar(“ingrese una cadena de caracteres”)
 Leer(cad)
 i:=1
 cantpalabra:=0
 nuevapal:=“”
 Mientras cad[i] <> “.” Hacer
 
 Mientras cad[i] = ” “ Hacer
 i:= i + 1
 nuevapal:=“”
 Mientras cad[i] <> “ “ AND cad[i] <> “.” Hacer
 nuevapal:= nuevapal + cad [i]
 i:= i + 1
 Si nuevapal[1] =“c” OR nuevapal[1] = “C” Entonces
 cantpalabra:= cant palabra+1
 
Mostrar(“cantidad de caracteres es”, cantpalabra)
End.
 
 
L
L
c
c
0
c
c
1
2
C
C
2
3
3
Ejemplo 4
Hacer un algoritmo que permita recibir una cadena de caracteres que finalice en un #.
Contar la cantidad de oraciones que tiene dicha cadena. Las oraciones están separadas por punto.
Var cad: String [90]
 i: Integer
 cantoracion: Integer
 
Begin 
 Mostrar(“ingrese una cadena de caracteres”)
 Leer(cad)
 i:=1
 cantoracion:=0
 Mientras cad[i] <> “#” Hacer
 Mientras cad[i] <> ”. “ and cad[i] <> “#” Hacer
 i:= i + 1
 Si cad[i] = “. “ OR cad[i] = “#” Entonces
 cantoracion:= cantoracion+1
 i:= i + 1
 
Mostrar(“cantidad de caracteres es”, cantoracion)
End.
 
 
L i c e n c i a t u r a e n S i s t e m a s . 
1
2
3
4
5
6
7
8
9
10
11
12
13
15
14
17
16
18
19
20
21
22
23
24
25
 S e d i c t a e n l a c i u d a d d e 
35
36
37
38
40
39
42
41
43
44
45
46
47
48
49
 A p o s t o l e s . D e p e n d i e n t e d e 
26
27
28
29
30
31
32
33
34
60
61
62
63
65
64
67
66
68
69
70
71
72
73
74
51
52
53
54
55
56
57
58
59
50
 l a U N a M # 
85
86
87
88
90
89
76
77
78
79
80
81
82
83
84
75
 Mientras cad[i] <> “#” Hacer
 Mientras cad[i] <> ”. “ and cad[i] <> “#” Hacer
 i:= i + 1
 Si cad[i] = “. “ OR cad[i] = “#” Entonces
 cantoracion:= cantoracion+1
 i:= i + 1
 
Mostrar(“cantidad de caracteres es”, cantoracion)
0
1
1
2
2
3
3
¡Muchas gracias!
image1.png