VisualG VISUALG - o que está errado?

[heitor54322]

exercício: Elaborar programa que lê uma disciplina e respectiva nota (de 0 a 10, com uma casa
decimal), e informa se o aluno passou na disciplina, repetindo o ciclo até que a nota
lida seja zero. O aluno passa quando tira 7 ou mais.

 

código:

Algoritmo "q5"
Var
// Seção de Declarações das variáveis 
opcao,quant,abaixo5:inteiro
nota,soma,media:real

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc... 
repita
 escreval("1-Digitar Nota")
 escreval("2-Resultados")
 leia(opcao)
 limpatela
 escolha(opcao)
 caso 1
  ((quant) <- ((quant) + 1))
  escreval("Digite sua nota")
  leia(nota)
  limpatela
 (soma <- (soma+nota))
  se (nota < 5) então
   (abaixo5 <- (abaixo5+1))
  fimse
  se(nota > 10) ou (nota < 0) então
   escreval("ERRO")

 caso 2
  ((media) <- (soma/quant))
  escreval("Media: ", media)
  escreval("Quantidade de notas: ", quant)
  escreval("Notas abaixo de 5: ", abaixo5)
 outrocaso
  escreval("ERRO")
  fimalgoritmo

 fimescolha
ate (nota>10)
Fimalgoritmo

por algum motivo tá dando erro e já tentei ajustar de várias formas, ainda estou aprendendo, podem me ajudar??

adicionado 32 minutos depois

já consegui

não encontrei como apagar o tópico (não sei se dá)

[Simon Viegas]

@heitor54322, poste seu código para analisarmos.

 

Em relação ao código original, poderia ficar mais ou menos assim:

algoritmo "q5"
var
   // Seção de Declarações das variáveis
   opcao,quant,abaixo5:inteiro
   nota,soma,media:real

inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
repita
   escreval("1-Digitar Nota")
   escreval("2-Resultados")
   leia(opcao)
   limpatela
   escolha(opcao)
   caso 1
      //((quant) <- ((quant) + 1))
      quant <- quant+1
      escreval("Digite sua nota")
      leia(nota)
      limpatela
      //(soma <- (soma+nota))
      soma <- soma+nota
      se (nota < 5) ENTÃO
         abaixo5 <- abaixo5+1
         //fimse
      senao
         se (nota > 10) ou (nota < 0) ENTÃO
            escreval("ERRO")
         fimSe
      fimSe
   caso 2
      media <- soma/quant
      escreval("Media: ", media)
      escreval("Quantidade de notas: ", quant)
      escreval("Notas abaixo de 5: ", abaixo5)
   outrocaso
      escreval("ERRO")
      //fimalgoritmo
   fimEscolha
ate (nota>10)
fimAlgoritmo

 

Alguns pontos:

1- Está verificando a nota após tratá-la, ou seja, está contabilizando na soma e na quantidade, mas não deveria;

2- A condição de para "maior que 10" também não está interessante... por ai vai

 

Além do código completo, poste o enunciado para revisarmos.

 

No aguardo.