2 replies to this topic

[Operador]

Galera como seria a soluçao para saber quantas palavras da frase começam com vogal?

Espero uma força ai da galera...

Abraços...

Edição feita por: Operador, 11/05/2007, 14:31.

[Operador]

Olha só fiz assim:
<var>

writeln(´Digite uma frase´); readln(frase);
tamanho:=length(frase);
cont:=0;
for i:=1 to tamanho do
begin
if (frase[i] = #32) then
begin
letra_ini:=frase[i];
if (letra_ini in [´a´,´e´,´i´,´o´,´u´]) or
letra_ini in [´A´,´E´,´I´,´O´,´U´]) then
cont:=cont+1;
end;
end;
writeln(´A quantidade de palavras que começam com vogal é: ´,cont);
readkey;
end.

O problema que esse até conta mais dependendo de quantas palavras coloque já não conta direito. Gostaria de saber o

[xota]

ta quase tudo certo so tens que fazer mais um if que va contando caracter a caracter até encontrar um espaço, ai já sabes que começou uma palavra nova