jo12345

Boa noite. Estava tentando traduzir para VisualG uma estrutura que foi apresentada numa aula, porém não consigo concluir a execução do algoritmo. Quando executado, se a condição do primeiro SE for atendida, o prompt encerra com sucesso, porém caso sejam as condições 2 ou 3, eles até tão as devidas atribuições, mas acusam a falta de um então na próxima linha, mesmo a próxima já apresentando o então. Código abaixo: algoritmo "teste" var nome, saudacao: caractere hora: inteiro inicio escreval ("Insira seu nome: ") leia(nome) escreval ("Que horas são? sem minutos, ") leia (hora) se (hora > 0) e (hora < 12) então saudacao <- "Bom dia, " escreval (saudacao, nome) senao se (hora => 13) e (hora < 18) então saudacao <- "Boa tarde, " escreval(saudacao, nome) senao se (hora => 19) e (hora < 24) então saudacao <- "Boa noite, " escreval (saudacao, nome) fimse fimse fimse fimalgoritmo

@kgin aaaah sim, como pude deixar um detalhe tão bobo passar, agradeço pela ajuda. inclusive seu método parece mais clean e prático que o meu, vou tentar coisas por fora da aula porque parece que o professor gosta de ficar enfeitando sem necessidade

Perdão, realmente tenho dificuldade as vezes, por mais que me concentre, fui montando o código de acordo com as instruções da aula, mas ao fim não consigo concluir um loop, no ultimo bloco o programa acusa ATE sem REPITA na linha 60 "ate opcaoMenu = "3"" algoritmo "Exercicios" var gabarito: vetor [1..10] de literal opcaoMenu: literal notaFinal: inteiro procedimento mostrarMenu() inicio Escreval("1 - cadastrar gabarito") escreval("2 - cadastrar prova") escreval("3 - sair") fimprocedimento procedimento cadastrarGabarito () var i: inteiro inicio para i de 1 ate 10 faca escreval ("informe a reposta da questão ",i) leia(gabarito[i]) fimpara fimprocedimento procedimento verificarSituacao(nota: inteiro): literal inicio se nota >= 7 retorne "Aprovado" senao retorna "Reprovado" fimse fimse fimprocedimento procedimento notaFinal inicio para i de 1 ate 10 faca escreval ("informe a resposta da questão ", i) leia(resposta) se resposta = gabarito[i] então nota <-nota +1 fimse retorne nota fimprocedimento inicio repita mostrarMenu() escolha OpcaoMenu caso "1" cadastrarGabarito() caso "2" notaFinal <- cadastrarProva() escreval (verificarSituacao(notaFinal)) outrocaso escreval("opção invalida") ate opcaoMenu = "3" fimalgoritmo