Esse projeto visa cadastrar uma prova com 5 questões e 3 alunos. Os alunos realizam as provas e no final é exibido a nota de cada aluno e a média da turma. É um estudo para praticar vetores e o conceito. Gostaria da opinião de vocês sobre. Se ficou legal e tal. Estou voltando aos estudos e estou animado. Desde já, agradeço.
Algoritmo "Prova"
Var
m: real
c, i, nota, soma : inteiro
q: vetor [1..5] de caractere
a: vetor [1..3] de caractere
r: vetor [1..5] de caractere
media: vetor [1..3] de inteiro
procedimento gabarito()
inicio
escreval("--------------------------------")
escreval
escreval(" PASSO 1 - CADASTRO DE GABARITO ")
escreval
escreval("--------------------------------")
escreval
fimprocedimento
procedimento cadastraAluno()
inicio
escreval ("--------------------------------")
escreval (" ALUNO ")
escreval ("--------------------------------")
fimprocedimento
procedimento turmaNota()
inicio
escreval ("--------------------------------")
escreval (" NOTA DA TURMA ")
escreval ("--------------------------------")
fimprocedimento
procedimento fim()
inicio
escreval ("--------------------------------")
escreval (" MEDIA DA TURMA ")
escreval ("--------------------------------")
fimprocedimento
Inicio
gabarito ()
para c <-1 ate 5 faca
escreva("Questão ",c," ")
leia(q[c])
fimpara
limpatela
para c <-1 ate 3 faca
cadastraAluno()
nota <- 0
escreva("ALUNO ",c,":")
leia(a[c])
escreval ("RESPOSTA")
escreval
para i <- 1 ate 5 faca
escreva("Questão ",i,": ")
leia(r[i])
se r[i] = q[c] então
nota <- nota + 2
senao
fimse
fimpara
limpatela
media[c] <- nota
fimpara
limpatela
turmaNota()
para i<- 1 ate 3 faca
escreval(a[i],": ",media[i])
fimpara
fim()
para i<- 1 ate 3 faca
soma <- media[i] + soma
fimpara
m <- soma/3
escreva("A Média da Turma é: ",m:2)
Fimalgoritmo