5.14 Faça um programa que receba o nome e duas notas de seis alunos e mostre o relatório a seguir. Relatório de notas

5.14 Faça um programa que receba o nome e duas notas de seis alunos e mostre o relatório a seguir. Relatório de notas

//ALUNO-- |1ªPROVA -|-2ªPROVA-|-MÉDIA-|-SITUAÇÃO
//CARLOS  |   8,0           |  9,0           |  8,5         | APROVADO
//PEDRO     |   4,0           |  5,0           |  4,5          | REPROVADO

//(Aluno em exame , média entre 5,0 e 7,0)

// Média da classe: ???
// Percentual de alunos reprovados: ?%
// Percentual de alunos de exame= ?%
// Percentual de alunos aprovados= ?%



Algoritmo "lista vetores questão 14"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 22/10/2016
Var
   // Seção de Declarações das variáveis
   NOMEVET,SITUACAOVET:VETOR[1..6] DE CARACTER
   NOTA1VET,NOTA2VET,MEDIAVET:VETOR[1..6]DE REAL
   I,CONTAPROVA,CONTREPROVA,CONTEXAME:INTEIRO
   SOMAMEDIACLASSE,MEDIACLASSE,PERCAPROVADOS,PERCREPROVADOS,PERCEXAME:REAL
Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   PARA I:=1 ATE 6 FACA
      ESCREVAL("DIGITE O NOME DO ",I,"º ALUNO")
      LEIA(NOMEVET[I])
      ESCREVAL("DIGITE A NOTA DA 1ª PROVA DO ALUNO")
      LEIA(NOTA1VET[I])
      ESCREVAL("DIGITE A NOTA DA 2ª PROVA DO ALUNO")
      LEIA(NOTA2VET[I])
      MEDIAVET[I]:=(NOTA1VET[I]+NOTA2VET[I])/2
      SE MEDIAVET[I]>=7 ENTAO
         SITUACAOVET[I]:="APROVADO"
         CONTAPROVA:=CONTAPROVA+1
      SENAO
         SE ((MEDIAVET[I]>5) E (MEDIAVET[I]<7)) ENTAO
            SITUACAOVET[I]:="EXAME"
            CONTEXAME:=CONTEXAME+1
         SENAO
            SITUACAOVET[I]:="REPROVADO"
            CONTREPROVA:=CONTREPROVA+1
         FIMSE
      FIMSE
      SOMAMEDIACLASSE:=SOMAMEDIACLASSE+MEDIAVET[I]
   FIMPARA
   MEDIACLASSE:= SOMAMEDIACLASSE/6
   PERCAPROVADOS:=CONTAPROVA/6*100
   PERCREPROVADOS:=CONTREPROVA/6*100
   PERCEXAME:=CONTEXAME/6*100
   LIMPATELA
   ESCREVAL("------------------------------------------------------------")
   ESCREVAL("|    NOME    | 1ª VALOR |  2ªVALOR |  MÉDIA   |  SITUACAO  |")
   ESCREVAL("____________________________________________________________")
   PARA I:=1 ATE 6 FACA
      ESCREVAL("|",NOMEVET[I]:10,"  |  ",NOTA1VET[I]:6:2,"  |  ",NOTA2VET[I]:6:2,"  |  ",MEDIAVET[I]:6:2,"  |  ",SITUACAOVET[I]:9," |")
   FIMPARA
      ESCREVAL
      ESCREVAL
      ESCREVAL("A MÉDIA DA CLASSE É: ",MEDIACLASSE:3:2,"%")
      ESCREVAL("O PERCENTUAL DE ALUNOS APROVADOS É: ",PERCAPROVADOS:3:2,"%")
      ESCREVAL("O PERCENTUAL DE ALUNOS REPROVADOS É: ",PERCREPROVADOS:3:2,"%")
      ESCREVAL("O PERCENTUAL DE ALUNOS EM EXAME É: ",PERCEXAME:3:2,"%")



Fimalgoritmo