@Simon Viegas E ae, quanto tempo? Então, eu refiz o algoritmo usando outra coisa que agora não me vem agora a cabeça. Sobre o vetor vet, no algoritmo original ele está como vet em toda a função, no entanto nem reparei que copiei errado, pois eu copiei todo o algoritmo "a mão".
algoritmo "semnome"
var
Gab:vetor[1..5] de caractere
An:vetor[1..3] de caractere
QA1:vetor[1..5] de caractere
QA2:VETOR[1..5] de caractere
QA3:vetor[1..5] de caractere
TotalA:vetor[1..3] de inteiro
C:inteiro
Funcao Verificador(V:caractere):inteiro
var R,A:inteiro
inicio
Se (V = Gab[C]) então
R<-R+1
FimSe
retorne R
FimFuncao
inicio
ESCREVAL("=======================")
ESCREVAL("ANALISADOR DE GABARITOS")
ESCREVAL("=======================")
ESCREVAl("Gabarito")
Para C<-1 ate 5 faca
Escreva("QUESTÃO ",C,": ")
LEIA(Gab[C])
Fimpara
Limpatela
ESCREVA("Aluno 1:")
LEIA(An[1])
Limpatela
ESCREVAL("Aluno ",An[1])
Para C <- 1 ate 5 faca
ESCREVA("Resposta questão nº",C" ")
LEIA(QA1[C])
Fimpara
Limpatela
ESCREVA("Aluno 2:")
LEIA(An[2])
Limpatela
ESCREVAL("Aluno ",An[2])
Para C <- 1 ate 5 faca
ESCREVA("Resposta questão nº",C)
LEIA(QA2[C])
Fimpara
Limpatela
ESCREVA("Aluno 3:")
LEIA(An[3])
Limpatela
ESCREVAL("Aluno ",An[3])
Para C <- 1 ate 5 faca
ESCREVA("Resposta questão nº",C)
LEIA(QA3[C])
Fimpara
Para C<- 1 ATE 5 faca
TotalA[1]<-TotalA[1]+Verificador(QA1[C])
Fimpara
Para C<- 1 ATE 5 faca
TotalA[2]<-TotalA[2]+Verificador(QA2[C])
Fimpara
Para C<- 1 ATE 5 faca
TotalA[3]<-TotalA[3]+Verificador(QA3[C])
Fimpara
lIMPATELA
ESCREVAL("Resultado: ")
ESCREVAL("Aluno ",An[1],",nota",TotalA[1]*2)
ESCREVAL("Aluno ",An[2],",nota",TotalA[2]*2)
ESCREVAL("Aluno ",An[3],",nota",TotalA[3]*2)
fimalgoritmo