Descarga la aplicación para disfrutar aún más
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
Compartir