Paula Minaré

Escrifonife19,

Xique!

Só pra quem pode, né?!

Obrigada!

Bju

Escrifonife19,

Gostei do código. Simples e prático.

Como você pediu tô postando o código que o professor desenvolveu. O que há de diferente é que ele não aceita a frase vazia (validação) e mesmo que o usuário inicie a frase com espaços ou coloque mais de um espaço entre as palavras, a quantidade de palavras digitadas não sofre alteração...

Valeu a força e a atenção!

vocês todos foram d+!

Bju

program mostrapalavra;
uses crt;
var frase:string;
palavra:string;
letra:char;
x:integer;
begin
clrscr;
frase:='';
palavra:='';
x:=1;
repeat
write('Digite uma frase: ');
readln(frase);
until frase<>'';
while x<=length(frase) do
begin
letra:=frase[x];
case letra of
'a'..'z','A'..'Z':
begin
palavra:=palavra+letra;
repeat
x:=x+1;
letra:=frase[x];
palavra:=palavra+letra;
until (letra=' ') or (x=length(frase));
writeln(palavra);
palavra:='';
end;
end;
x:=x+1;
end;
writeln;
readkey;
end.

Sem problemas!!! O que vale é saber fazer... não importa de que jeito!

E como eu já disse, pessoas assim moram dentro de lâmpadas! Rsrsrsrsrsrs...

Mais uma vez, obrigada!

Bjus

Thiago do céu!!!!

Muito bem! Sem copy...

E a IntToStr ???? você não tirou!!!!! Hauahauahauahauahauahauahuahaua...

Mas eu tirei... porque o Tan Tan do "Pascual" (Rsrsrsrsrs...) não entende essa função, coitadu!!!

Mas, enfim deu certo!!! Rodou! Que maravilha!

A proposito, você por acaso mora numa lâmpada???? Hauahauahauahauahauaha...

Afffff.... não vou sonhar com isso essa noite! Que beleza! Hauahauahauaha... você me salvou, Thiaguito!

Obrigada de verdade!

Um abraço de urso pra você!!!

P.S.: Tenho um colega de faculdade que diz "Pascual" ao invés de Pascal. É mole?!

Oi Thiago!

Tô tentando achar um jeito de tirar as funções... não pode ter nem umazinha! O professor não aceita com função...Te agradeço demais!

Obrigada mesmo!

Bju

Escrifonife19,

Esse chr(13) é a mesma coisa que ENTER? Que código é esse? Infelizmente não posso usá-lo porque o professor não ensinou... Estamos fazendo algoritmo em pascal e a matéria é Indexação de Variáveis. E tmbém não podemos usar nenhum tipo de função... estamos todos perdidos, isso sim!

Nem sei como agradecer o trabalhão que você teve em fazer o código! Depois te pago um doce.

Bjus

Thiaguito,

Joguei esse código no pascal e rodou belezinha. Mas preciso fazer sem as funções (array, delete, copy, etc)...

Sou iniciante e tá um pouco complicado tirar a função e fazer da forma que o professor quer.

Se você puder, me mostra como faz?

Muitíssimo obrigada pela atenção. E realmente, no horário em que tava fazendo o código, ficar acordado é uma verdadeira batalha. Vivo nessa situação tb...

Bju

Estilingue, (rsrsrsrsrsrsr)...

Clareou algo sim... o problema é que sou iniciante em programação e as vezes fica difícil exergar o que vocês que já conhecem bem, enxergam... Mas, não é falta de força de vontade! É mais complicado ainda achar quem te mostra como fazer no passo-a-passo. Com isso a gente vai ficando cada vez mais

Se você puder, se não for pedir demais... mostra o código pra eu?

De toda forma, agradeço de coração.

Olá galera!

A coisa tá preta! Preciso fazer um algoritmo que receba uma frase e forneca como saída as palavras da frase separadas por linha como no exemplo a seguir:

Frase: Eu adoro estudar algoritmo

1ª palavra: Eu

2ª palavra: Adoro

3ª palavra: Estudar

4ª palavra: Algoritmo

Já tô ficando e não consigo fazer o código. Alguém pelo amor de Deus pode me dar uma força???

Consegui somente fazer o código para contar as palavras, mas mostrar separadamente, não sai de jeito nenhum.

program separa_palavra;
uses crt;
var
frase:string[30];
letra: string;
qtd, x: integer;
begin
clrscr;
frase:='';letra:='';qtd:=0;x:=0;
writeln('Digite uma frase: ');
readln(frase);
while frase='' do
begin
writeln('Informacao incorreta! Redigite: ');
readln(frase);
end;
for x:= 1 to length(frase)do
begin
letra :=frase[x];
if letra = ' ' then
qtd:= qtd+1;
end;
qtd:=qtd+1;
writeln('Quantidade de palavras da frase = ',qtd);
readkey;
end.

Desde já agradeço!

Bjus