Ir ao conteúdo
  • Cadastre-se

Paula Minaré

Membro Júnior
  • Posts

    8
  • Cadastrado em

  • Última visita

Reputação

0
  1. 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.
  2. 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
  3. 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?!
  4. 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
  5. 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.
  6. 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

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...