Problema de cadenas y subcadenas
Publicado por Lyel2 (2 intervenciones) el 27/05/2018 00:15:19
Buenas necesito ayuda con este problema, Ya se como identificar las palabras que tengan 3 o mas vocales pero aun no encuentro la manera de ir almacenando estas cadenas para luego mostrarlas juntas al final, aqui esta el problema:
1.- Hacer un programa que lea un párrafo terminado en punto y encuentre todas las palabras que tiene tres o más vocales distintas.
estaba pensando en algo asi:
Esto me serviria pero solamente para encontrar y almacenar una palabra, necesito ayuda para hacerlo encontrando y almacenando varias para luego mostrarlas porfa.
1.- Hacer un programa que lea un párrafo terminado en punto y encuentre todas las palabras que tiene tres o más vocales distintas.
estaba pensando en algo asi:
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
program punto;
uses crt;
var palabra1,palabra,punto,parrafo:string;
i,j,acumtotal,acumvocales:integer;
Begin
Writeln('Introduzca su parrafo terminado en punto');
readln(parrafo);
Repeat
for i:=1 to length(parrafo) do
if cadena[i]='a' then
acumvocala:=1;
if cadena[i]='e' then
acumvocale:=1;
if cadena[i]='i' then
acumvocali:=1;
if cadena[i]='o' then
acumvocalo:=1;
if cadena[i]='u' then
acumvocalu:=1;
acumtotal:=acumvocala+acumvocale+acumvocali+acumvocalo+acumvocalu; ///// contando si tiene mas de 3
/////
if acumtotal>=3
until cadena[i]=' '; ///// hasta que haya un espacio en blanco, lo cual significa que se separara la palabra
y se hara solo con una en el texto////////Esto me serviria pero solamente para encontrar y almacenar una palabra, necesito ayuda para hacerlo encontrando y almacenando varias para luego mostrarlas porfa.
Valora esta pregunta
0