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