[Portugol]

[Júnior Nascimento 0]

Bom dia a todos!

 

To com essa seguinte questão para resolver alguem poderia me ajudar a a terminar?

 

9) Faça uma Programa que receba três notas de vários alunos, calcule e imprima a média entre essas

3 notas de cada aluno; Exiba uma mensagem de acordo com a tabela abaixo:

Média Mensagem

De 0 a 5.9 Reprovado

De 6.0 a 10 Aprovado

Ao final do cálculo da média de cada aluno, o programa deve perguntar se o usuário deseja calcular

a média de outro aluno (a resposta do usuário deve ser S ou N). Caso a resposta do usuário seja Não

(N) o programa deve exibir:

• total de alunos aprovados e o total de alunos reprovados;

• a média geral da Programa, isto é, a média entre as médias dos alunos.

 

Montei dessa maneira... Porem não conseguir montar o looping pra retorno a: resultado novamente e looping pra ele fazer +1 cálculo para aluno.

algoritmo "Sem Nome"
// Função :
var
i, z, med, n1, n2, n3, apv, rpv: inteiro
esc: logico
inicio
// Comandos
med <- (med + 5)
escreval ("[Verificador de: Média]")
escreval ("São quantos alunos?")
leia (z)
para i de 1 ate z faca
escreval ("Digite as 3 notas uma após a outra")
leia (n1,n2,n3)
se (n1 > 10) ou (n2 > 10) ou (n3 > 10) entao
interrompa
 fimse
se (n1 >= 6) ou (n2 >= 6) ou (n3 >= 6) entao
apv <- (apv + 1)
 fimse
se (n1 <= 5.9) ou (n2 <= 5.9) ou (n3 <= 5.9) entao
rpv <- (rpv + 1)
 fimse
se (n1 > med) entao
med <- n1
 fimse
se (n2 > med) entao
med <- n2
 fimse
se (n3 > med) entao
med <- n3
 fimse
  fimpara
   fimescolha
escreval ("")
escreval ("[Resultado]")
escreval ("Aprovados:", apv)
escreval ("Reprovados:", rpv)
escreval ("Média entre as médias dos alunos:", med)
escreval ("")
escreval ("Digite (S): Calcular a média de outro aluno, (N) Finalizar Cálculo")
leia (esc)
fimalgoritmo

[Binho Araujo 0]

Usa um comando de repetição!

 

fiz aqui usando o enquanto.

enquanto novoCal <> "N" faca
xxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxx
escreval ("Deseja calcular nova Media? (S/N)")
leia(novoCal)