algoritmo "missaoimpossivel02"
var
 prova: vetor [1..6] de Caractere
 test: vetor [1..6] de caractere
 z, t, c1, c2, c3, c4, c5:inteiro
 nome1, nome2, nome3, k, r: caractere
 mg: Real

inicio

     Escreval ("PASSO 1 - Cadastro de Gabarito")
     Escreval ("-------------------------------")

      Para z <- 1 ate 5 faca
           Escreva ("Questao ", z, ": ")
           Leia (test[z])
      FimPara
      LimpaTela
           Escreval ("--------------------")
           Escreval ("Aluno 01")
           Escreval ("--------------------")
           Escreva ("Nome do aluno: ")
           Leia (nome1)
           Escreval ("RESPOSTAS DADAS")
      Para t <- 1 ate 5 faca

           Escreva ("Questao ", t, ": ")
           Leia (prova[t])
      FimPara
      c1 <- 0
      Se (prova[1] = test[1]) Entao
         c1 <- c1 + 2
      FimSe
      Se (prova[2] = test[2]) Entao
         c1 <- c1 + 2
      FimSe
      Se (prova[3] = test[3]) Entao
         c1 <- c1 + 2
      FimSe
      Se (prova[4] = test[4]) Entao
         c1 <- c1 + 2
      FimSe
      Se (prova[5] = test[5]) Entao
         c1 <- c1 + 2
      FimSe

      LimpaTela

           Escreval ("--------------------")
           Escreval ("Aluno 02")
           Escreval ("--------------------")
           Escreva ("Nome do aluno: ")
           Leia (nome2)
           Escreval ("RESPOSTAS DADAS")
      Para t <- 1 ate 5 faca

           Escreva ("Questao ", t, ": ")
           Leia (prova[t])
      FimPara
      c2 <- 0
      Se (prova[1] = test[1]) Entao
         c2 <- c2 + 2
      FimSe
      Se (prova[2] = test[2]) Entao
         c2 <- c2 + 2
      FimSe
      Se (prova[3] = test[3]) Entao
         c2 <- c2 + 2
      FimSe
      Se (prova[4] = test[4]) Entao
         c2 <- c2 + 2
      FimSe
      Se (prova[5] = test[5]) Entao
         c2 <- c2 + 2
      FimSe
      LimpaTela

           Escreval ("--------------------")
           Escreval ("Aluno 03")
           Escreval ("--------------------")
           Escreva ("Nome do aluno: ")
           Leia (nome3)
           Escreval ("RESPOSTAS DADAS")
      Para t <- 1 ate 5 faca

           Escreva ("Questao ", t, ": ")
           Leia (prova[t])
      FimPara
      c3 <- 0
      Se (prova[1] = test[1]) Entao
         c3 <- c3 + 2
      FimSe
      Se (prova[2] = test[2]) Entao
         c3 <- c3 + 2
      FimSe
      Se (prova[3] = test[3]) Entao
         c3 <- c3 + 2
      FimSe
      Se (prova[4] = test[4]) Entao
         c3 <- c3 + 2
      FimSe
      Se (prova[5] = test[5]) Entao
         c3 <- c3 + 2
      FimSe
      mg <- (c1 + c2 + c3) / 3
      LimpaTela
      Escreval ("Total de pontos obtidos por aluno 01 foi de: ", c1)
      Escreval ("Total de pontos obtidos por aluno 02 foi de: ", c2)
      Escreval ("Total de pontos obtidos por aluno 03 foi de: ", c3)
      Escreval ("===============================================")
      Escreval ("NOTAS FINAIS ")
      Escreval ("-------------------------------")
      Escreval (nome1:10," - ", c1:01:01)
      Escreval (nome2:10," - ", c2:01:01)
      Escreval (nome3:10," - ", c3:01:01)
      Escreval ("-------------------------------")
      Escreval ("Media da turma: ", mg)



FimAlgoritmo