Exemplo 11

=============================================================
Exemplo 11:
Escreva um programa que leia um vetor gabarito de 10 elementos.Cada elemento de gabarito contem um numero inteiro 1, 2, 3, 4 ou 5 correspondente as opções corretas de uma prova objetiva. Em seguida o programa deve ler um vetor resposta, também de 10 elementos inteiros, contendo as respostas de um aluno. O programa deve comparar os dois vetores e escrever o numero de acertos do aluno.

=============================================================

// Seção de Declarações

var

vetgab,vetresp: vetor[1..10] de inteiro  
quest,acertos:inteiro

// VETGAB é o vetor gabarito (possui as repostas certas) e VETRESP é o vetor com as respostas do aluno. QUEST é a variável que vai controlar os dois vetores onde ela tambem representa o numero da questao. E a variavel ACERTOS guarda o numero de respostas acertadas pelo aluno.

inicio

// Seção de Comandos

acertos<-0

// Instrução para preencher o vetor gabarito com as respostas certas.

para quest de 1 ate 10 faca 
     escreva("Gabarito Questão ",quest,": ")
     leia(vetgab[quest])
     limpatela    
fimpara

// Instrução para preencher o gabarito com as reposta do aluno.

para quest de 1 ate 10 faca
     escreva("Alternativa marcada na questão ",quest,": ")
     leia(vetresp[quest])


// Essa instrução está dentro do laço PARA e ela vai comparar a resposta marcada pelo aluno e
// e a resposta certa no gabarito. E cada vez que as respostas forem iguais, a variável ACERTOS é

// acrescentada de 1.

     se (vetresp[quest]=vetgab[quest])entao
        acertos<-acertos+1               
     fimse                               

     limpatela

fimpara

escreva("Nota: ",acertos)             // Mostra a nota. O numero de acertos.

fimalgoritmo
=============================================================