Primeira página
/
Tecnologia
/
3/5 - Elabore um algoritmo que leia uma frase e conte quantas palavras aparecem no texto. Considere que as palavras são sepa radas apenas por espaços em branco. ALGORITMO VAR TEXTO: CA RACTER E I, QPAI AVRA IS: INTEIRO SETE XTO<>"ENT Áo QPAL AVRAS K1 FIMSE PARA IDE 1 ATÉ CO MPR(TE XTO) FA CA s ENQUAN ITO CO PIA(T EXTO ,I,1)=""EK =COMP R(TEXTO) FACA FIMSE FIMPA RA ESCR EVA OP ALAVRA s FIMALG ORITM 10 ALGO RITM 10 VAR OPALAV RASE 1 FIMS E PARA I DE 1 ATÉ C OMPR (TEX TO) F ACA QPAL AVRAS KOPA LAVRA S+1 ESCR EVA QPA LAVR AS FIMALG ORITM o ALGOR ITMO VAR TEXT O: CAR ACTER E I, QPALA VRAS: IN ITEIRO LEIAT EXTO SETE XTO<>"ENT OPALA VRAS k1 FIMSE PARA IDE 1 ATÉ CO MPRC TEXT 0) FAC A SECO PIA(TE XTO,I,1)="E NTÃO ENQUAN ITO CO PIA(T EXTO,I,1)="E k=C OMPR (TEXT 0) FAC A QPALA VRAS FOPAI LAVRAS +1 FIMEN QUAN TO FIMSE FIMP ARA ESCR EVA QP ALAVRA s FIMALG ORITM 10 ALGOR ITMO VAR TEXT O: CAR ACTE RE I, QPA LAVRA S: INTE IRO LEIA T EXTO PARA I DE 1 ATE C OMPR(T EXTO ) FAC A SE COP IACTEXT O,I,1)-"E NTÃO ENQUAN ITO CO PIA(TE XTO,I,1)="EIK COMP R(TEX TO) FACA ItIt 1 FIMEN QUAN mo SEK =COMP R (TEX (TO) EN ITÃO QPALA VRASE QPALA VRAS+1 FIMSE FIMSE FIMPAR A ESCR EVA QP ALAVRA s FIMALG ORITM io ALGOR ITMO VAR TEXTO : CARA CTER E I, QPAL AVRA S: INTE EIRO LEIA T EXTO SETE XTO<>"ENT ÁO QPALAV RASE 1 FIMSE PARA I DE 1 A TẾ COM IPR(T EXTO)FACA SE COP LA(TEXTO ,I,1)m "ENT ENQUA NTO CO PIA(TE XTO,I,1) -"EI<m COMP R(TEXT O) FA CA FIMEN QUAN ITO SE K -COM PRITEX (TO) E NTÃO QPALAVRAS +-OPALAVRASHI FIMSE FIMSE ARA ESCR EVA QP ALAVR AS FIMALG ORITMO

Pergunta

3/5 - Elabore um algoritmo que leia uma frase e conte quantas palavras aparecem no texto. Considere que as palavras são sepa radas apenas por espaços em branco. ALGORITMO VAR TEXTO: CA RACTER E I, QPAI AVRA IS: INTEIRO SETE XTO<>"ENT Áo QPAL AVRAS K1 FIMSE PARA IDE 1 ATÉ CO MPR(TE XTO) FA CA s ENQUAN ITO CO PIA(T EXTO ,I,1)=""EK =COMP R(TEXTO) FACA FIMSE FIMPA RA ESCR EVA OP ALAVRA s FIMALG ORITM 10 ALGO RITM 10 VAR OPALAV RASE 1 FIMS E PARA I DE 1 ATÉ C OMPR (TEX TO) F ACA QPAL AVRAS KOPA LAVRA S+1 ESCR EVA QPA LAVR AS FIMALG ORITM o ALGOR ITMO VAR TEXT O: CAR ACTER E I, QPALA VRAS: IN ITEIRO LEIAT EXTO SETE XTO<>"ENT OPALA VRAS k1 FIMSE PARA IDE 1 ATÉ CO MPRC TEXT 0) FAC A SECO PIA(TE XTO,I,1)="E NTÃO ENQUAN ITO CO PIA(T EXTO,I,1)="E k=C OMPR (TEXT 0) FAC A QPALA VRAS FOPAI LAVRAS +1 FIMEN QUAN TO FIMSE FIMP ARA ESCR EVA QP ALAVRA s FIMALG ORITM 10 ALGOR ITMO VAR TEXT O: CAR ACTE RE I, QPA LAVRA S: INTE IRO LEIA T EXTO PARA I DE 1 ATE C OMPR(T EXTO ) FAC A SE COP IACTEXT O,I,1)-"E NTÃO ENQUAN ITO CO PIA(TE XTO,I,1)="EIK COMP R(TEX TO) FACA ItIt 1 FIMEN QUAN mo SEK =COMP R (TEX (TO) EN ITÃO QPALA VRASE QPALA VRAS+1 FIMSE FIMSE FIMPAR A ESCR EVA QP ALAVRA s FIMALG ORITM io ALGOR ITMO VAR TEXTO : CARA CTER E I, QPAL AVRA S: INTE EIRO LEIA T EXTO SETE XTO<>"ENT ÁO QPALAV RASE 1 FIMSE PARA I DE 1 A TẾ COM IPR(T EXTO)FACA SE COP LA(TEXTO ,I,1)m "ENT ENQUA NTO CO PIA(TE XTO,I,1) -"EI<m COMP R(TEXT O) FA CA FIMEN QUAN ITO SE K -COM PRITEX (TO) E NTÃO QPALAVRAS +-OPALAVRASHI FIMSE FIMSE ARA ESCR EVA QP ALAVR AS FIMALG ORITMO

3/5 - Elabore um algoritmo que leia uma frase e conte quantas palavras aparecem no texto. Considere que as palavras são sepa radas apenas por espaços em branco. ALGORITMO VAR TEXTO: CA RACTER E I, QPAI AVRA IS: INTEIRO SETE XTO<>"ENT Áo QPAL AVRAS K1 FIMSE PARA IDE 1 ATÉ CO MPR(TE XTO) FA CA s ENQUAN ITO CO PIA(T EXTO ,I,1)=""EK =COMP R(TEXTO) FACA FIMSE FIMPA RA ESCR EVA OP ALAVRA s FIMALG ORITM 10 ALGO RITM 10 VAR OPALAV RASE 1 FIMS E PARA I DE 1 ATÉ C OMPR (TEX TO) F ACA QPAL AVRAS KOPA LAVRA S+1 ESCR EVA QPA LAVR AS FIMALG ORITM o ALGOR ITMO VAR TEXT O: CAR ACTER E I, QPALA VRAS: IN ITEIRO LEIAT EXTO SETE XTO<>"ENT OPALA VRAS k1 FIMSE PARA IDE 1 ATÉ CO MPRC TEXT 0) FAC A SECO PIA(TE XTO,I,1)="E NTÃO ENQUAN ITO CO PIA(T EXTO,I,1)="E k=C OMPR (TEXT 0) FAC A QPALA VRAS FOPAI LAVRAS +1 FIMEN QUAN TO FIMSE FIMP ARA ESCR EVA QP ALAVRA s FIMALG ORITM 10 ALGOR ITMO VAR TEXT O: CAR ACTE RE I, QPA LAVRA S: INTE IRO LEIA T EXTO PARA I DE 1 ATE C OMPR(T EXTO ) FAC A SE COP IACTEXT O,I,1)-"E NTÃO ENQUAN ITO CO PIA(TE XTO,I,1)="EIK COMP R(TEX TO) FACA ItIt 1 FIMEN QUAN mo SEK =COMP R (TEX (TO) EN ITÃO QPALA VRASE QPALA VRAS+1 FIMSE FIMSE FIMPAR A ESCR EVA QP ALAVRA s FIMALG ORITM io ALGOR ITMO VAR TEXTO : CARA CTER E I, QPAL AVRA S: INTE EIRO LEIA T EXTO SETE XTO<>"ENT ÁO QPALAV RASE 1 FIMSE PARA I DE 1 A TẾ COM IPR(T EXTO)FACA SE COP LA(TEXTO ,I,1)m "ENT ENQUA NTO CO PIA(TE XTO,I,1) -"EI<m COMP R(TEXT O) FA CA FIMEN QUAN ITO SE K -COM PRITEX (TO) E NTÃO QPALAVRAS +-OPALAVRASHI FIMSE FIMSE ARA ESCR EVA QP ALAVR AS FIMALG ORITMO

Solução

expert verifiedVerification of experts
4.7212 Voting
avatar
BeckyMestre · Tutor por 5 anos

Responder

qui está uma versão corrigida do algoritmo em português:<br /><br />```plaintext<br />ALGORITMO<br />VAR<br /> TEXTO: CARACTERE<br /> I, QPALAVRAS: INTEIRO<br />SETE<br /> TEXTO <> "ENT QPALAVRAS := 1<br />FIMSE<br />PARA<br /> I := 1 ATÉ COMPR(TEXTO) FAÇA<br />SE<br /> COPIA(TEXTO, I, 1) = "ENTÃO"<br /> ENQUANTO<br /> I < COMPR(TEXTO) FAÇA<br /> COPIA(TEXTO, I, 1) = "E"<br /> QPALAVRAS := QPALAVRAS + 1<br />FIMSE<br />FIMPARA<br />ESCREVA QPALAVRAS<br />FIMALGORITMO<br />```<br /><br />Este algoritmo lê uma frase, conta quantas palavras aparecem no texto e escreve o resultado. Ele considera que as palavras são separadas apenas por espaços em branco.
Clique para avaliar: