Portugol exercício guanabara - corrigindo provas (curso algoritmo)

[Beatriz Dorin]

Exercício proposto: Cadastrar o gabarito da prova, em seguida cadastra as respostas de três alunos e calcula a nota de cada um, exibindo o resultado final com as notas e a média da turma.

 

Algoritmo "CorrigindoProvas"

Var

   respaluno: vetor[1..5] de Caractere
   resp: vetor[1..5] de Caractere
   media: Real
   cont, cont2: Inteiro
   aluno: vetor[1..3] de Caractere
   TotNota1: Real
   TotNota: vetor[1..3] de Real

Inicio


   EscrevaL ("      ÁREA DO PROFESSOR        ")
   EscrevaL ("-------------------------------")
   EscrevaL ("PASSO 01 - Cadastro de Gabarito")
   EscrevaL ("-------------------------------")

   Para cont <- 1 ate 5 faca
      Escreva ("Questão ",cont,": ")
      Leia (resp[cont])
   FimPara
   LimpaTela


   Para cont <- 1 ate 3 faca

      TotNota[cont] <- 0

      EscrevaL ("      ÁREA DO PROFESSOR        ")
      EscrevaL ("-------------------------------")
      EscrevaL ("PASSO 02 - Cadastro de Provas  ")
      EscrevaL ("-------------------------------")
      EscrevaL ("         ALUNO ", cont, "      ")
      EscrevaL ("-------------------------------")
      Escreva ("Nome do aluno: ")
      Leia (aluno[cont])
      Escreval ("RESPOSTAS DA PROVA DE ", aluno[cont])

      TotNota1 <- 0

      Para cont2 <- 1 ate 5 faca
         Escreva ("Questão ", cont2, ": ")
         Leia (respaluno[cont2])
         Se (respaluno[cont2] = resp[cont2]) então
            TotNota1 <- TotNota1 + 2
         FimSe
      FimPara
      TotNota[cont] <- TotNota1
      LimpaTela
   FimPara

   Escreval ("   NOTAS FINAIS   ")
   Escreval (" ---------------- ")
   Para cont <- 1 ate 3 faca
      Escreval (aluno[cont]:15, TotNota[cont])
      Escreval ("-------------------")
      media <- (TotNota[1] + TotNota[2] + TotNota[3]) / 3
   FimPara

   Escreval (" MÉDIA DA TURMA: ", media)

Fimalgoritmo