VisualG Erro "Esperava uma expressão do tipo REAL"

[Leonardo Gross]

Alguém sabe me dizer o que fiz de errado?

 

algoritmo "AproveitamentoAluno"
var
   N1, N2, N3, M: Real
 
inicio
 
   Escreva ("Primeira Nota: ")
   Leia (N1)
   Escreva ("Segunda Nota: ")
   Leia (N2)
   Escreva ("Terceira Nota: ")
   Leia (N3)
   Escreval ("------------------")
   M <- (N1+N2+N3)/3
   Escreval ("Média: ", M:2:1)
   Escolha M
   Caso (M >=0) e (M <=5)
      Escreval ("APROVEITAMENTO: A")
   Caso M >= 6 ou M < 7
fimalgoritmo

 

[JorgeGus]

As mensagens de erro do VisualG muitas vezes são confusas.

 

Nesse caso o problema é que a estrutura Caso precisa de valores fixos e não aceita esse tipo expressão.

 

Use a estrutura Se, Entao, Senao e Fimse no lugar, e se necessário use estruturas encadeadas em sequência.

[Simon Viegas]

Segue um exemplo de esboço:

 

algoritmo "Aproveitamento do Aluno"
var
   n1, n2, n3, m: Real
inicio
   escreva ("Primeira Nota: ")
   leia(n1)
   escreva ("Segunda Nota: ")
   leia(n2)
   escreva ("Terceira Nota: ")
   leia(n3)
   escreval("------------------")

   m <- (n1+n2+n3)/3
   escreval ("Média: ", M:2:1)
   
   se ((m >= 0) E (M <6)) entao
      escreval ("APROVEITAMENTO: A")
   senao
      se ((m >= 6) E (M < 8)) entao
         escreval ("APROVEITAMENTO: X")
      fimSe
      
   fimSe
fimAlgoritmo