-
Conteúdo Similar
-
-
Por Imguvoss
Pessoal, eu fiz esse algoritmo que o objetivo principal é apresentar as vogais e consoantes de uma palavra, após vários testes descobri um erro e que não estou conseguindo solucionar, queria pedir a ajuda de vocês para eu consiga concluir.
O algoritmo:
Algoritmo "Obter palavra e apresentar vogais e consoantes usando função" Var nOpcao1, nOpcao2, nOpcao3, nLetra, nVogais, I: INTEIRO cPalavra, cVogal1, cVogal2, cVogal3, cVogal4, cVogal5: CARACTERE Inicio Escreval("----------------") Escreval("|1- Ler palavra|") Escreval("|2- Sair |") Escreval("----------------") Escreva("Digite uma opção: ") Leia(nOpcao1) Se nOpcao1 = 1 Entao Escreval("----------------------") Escreval("|1- Contar vogais |") Escreval("|2- Contar consoantes|") Escreval("----------------------") Escreva("Digite uma opção: ") Leia(nOpcao2) Escreva("Digite uma palavra: ") Leia(cPalavra) Se nOpcao2 = 1 Entao cVogal1 <- "a" cVogal2 <- "e" cVogal3 <- "i" cVogal4 <- "o" cVogal5 <- "u" nLetra <- Compr(cPalavra) Para I De 1 Ate nLetra Passo 1 Faca Se Copia(cPalavra,I,1) = cVogal1 Entao nVogais <- nVogais + 1 FimSe Se Copia(cPalavra,I,1)= cVogal2 Entao nVogais <- nVogais + 1 FimSe Se Copia(cPalavra,I,1)= cVogal3 Entao nVogais <- nVogais + 1 FimSe Se Copia(cPalavra,I,1)= cVogal4 Entao nVogais <- nVogais + 1 FimSe Se Copia(cPalavra,I,1)= cVogal5 Entao nVogais <- nVogais + 1 Fimse Fimpara Escreval("No nome tem: ",nVogais," vogais.") Se nOpcao2 = 2 Entao cConsoante1 <- "b" cConsoante2 <- "c" cConsoante3 <- "d" cConsoante4 <- "f" cConsoante5 <- "g" cConsoante6 <- "h" cConsoante7 <- "j" cConsoante8 <- "k" cConsoante9 <- "l" cConsoante10 <- "m" cConsoante11 <- "n" cConsoante12 <- "p" cConsoante13 <- "q" cConsoante14 <- "r" cConsoante15 <- "s" cConsoante16 <- "t" cConsoante17 <- "v" cConsoante18 <- "w" cConsoante19 <- "x" cConsoante20 <- "y" cConsoante21 <- "z" nLetra <- Compr(cPalavra) Para I De 1 Ate nLetra Passo 1 Faca Se Copia(cPalavra,I,1) = cConsoante1 Entao nConsoantes <- nConsoantes + 1 FimSe Se Copia(cPalavra,I,1)= cConsoante2 Entao nConsoantes <- nConsoantes + 1 FimSe Se Copia(cPalavra,I,1)= cConsoante3 Entao nConsoates <- nConsoantes + 1 FimSe Se Copia(cPalavra,I,1)= cConsoante4 Entao nConsoantes <- nConsoantes + 1 FimSe Se Copia(cPalavra,I,1)= cConsoante5 Entao nConsoantes <- nConsoantes + 1 Fimse Se Copia(cPalavra,I,1)= cConsoante6 Entao nConsoantes <- nConsoantes + 1 Fimse Se Copia(cPalavra,I,1)= cConsoante7 Entao nConsoantes <- nConsoantes + 1 Fimse Se Copia(cPalavra,I,1)= cConsoante8 Entao nConsoantes <- nConsoantes + 1 Fimse Se Copia(cPalavra,I,1)= cConsoante9 Entao nConsoantes <- nConsoantes + 1 Fimse Se Copia(cPalavra,I,1)= cConsoante10 Entao nConsoantes <- nConsoantes + 1 Fimse Se Copia(cPalavra,I,1)= cConsoante11 Entao nConsoantes <- nConsoantes + 1 Fimse Se Copia(cPalavra,I,1)= cConsoante12 Entao nConsoantes <- nConsoantes + 1 Fimse Se Copia(cPalavra,I,1)= cConsoante13 Entao nConsoantes <- nConsoantes + 1 Fimse Se Copia(cPalavra,I,1)= cConsoante14 Entao nConsoantes <- nConsoantes + 1 Fimse Se Copia(cPalavra,I,1)= cConsoante15 Entao nConsoantes <- nConsoantes + 1 Fimse Se Copia(cPalavra,I,1)= cConsoante16 Entao nConsoantes <- nConsoantes + 1 Fimse Se Copia(cPalavra,I,1)= cConsoante17 Entao nConsoantes <- nConsoantes + 1 Fimse Se Copia(cPalavra,I,1)= cConsoante18 Entao nConsoantes <- nConsoantes + 1 Fimse Se Copia(cPalavra,I,1)= cConsoante19 Entao nConsoantes <- nConsoantes + 1 Fimse Se Copia(cPalavra,I,1)= cConsoante20 Entao nConsoantes <- nConsoantes + 1 Fimse Se Copia(cPalavra,I,1)= cConsoante21 Entao nConsoantes <- nConsoantes + 1 Fimse Fimpara Escreval("No nome tem: ",nConsoantes," consoantes.") Se nOpcao1 = 2 Entao Fimse Fimse Escreval("--------------") Escreval("|1- Novamente|") Escreval("|2- Terminar |") Escreval("--------------") Escreval("Digite uma opção: ") Leia(nOpcao3) Enquanto nOpcao3 = 1 Faca Escreval("----------------") Escreval("|1- Ler palavra|") Escreval("|2- Sair |") Escreval("----------------") Escreva("Digite uma opção: ") Leia(nOpcao1) Se nOpcao1 = 1 Entao Escreval("----------------------") Escreval("|1- Contar vogais |") Escreval("|2- Contar consoantes|") Escreval("----------------------") Escreva("Digite uma opção: ") Leia(nOpcao2) Escreva("Digite uma palavra: ") Leia(cPalavra) Se nOpcao2 = 1 Entao cVogal1 <- "a" cVogal2 <- "e" cVogal3 <- "i" cVogal4 <- "o" cVogal5 <- "u" nLetra <- Compr(cPalavra) Para I De 1 Ate nLetra Passo 1 Faca Se Copia(cPalavra,I,1) = cVogal1 Entao nVogais <- nVogais + 1 FimSe Se Copia(cPalavra,I,1)= cVogal2 Entao nVogais <- nVogais + 1 FimSe Se Copia(cPalavra,I,1)= cVogal3 Entao nVogais <- nVogais + 1 FimSe Se Copia(cPalavra,I,1)= cVogal4 Entao nVogais <- nVogais + 1 FimSe Se Copia(cPalavra,I,1)= cVogal5 Entao nVogais <- nVogais + 1 Fimse Fimpara Escreval("No nome tem: ",nVogais," vogais.") Se nOpcao2 = 2 Entao Fimse Fimse Se nOpcao1 = 2 Entao Fimse Fimse Escreval("--------------") Escreval("|1- Novamente|") Escreval("|2- Terminar |") Escreval("--------------") Escreval("Digite uma opção: ") Leia(nOpcao3) Fimenquanto Fimalgoritmo Parâmetros para simular o erro:
F9(Executar) -> 1 -> 1 -> (Qualquer palavra) -> 2
De acordo com o VisuAlg, esse erro é um erro de sinaxe que diz: "Esperava contrar FIMSE". Mesmo que todos os "SE" que eu abri, eu fechei. Não sei também se não é algum erro na função "Enquanto" mesmo que eu tenha feito certo ao meu ponto de vista. Preciso da ajuda de vocês
-
