Média Aritmética 03 #algoritmo

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Algoritmo "Med-Arit-03"
// Disciplina : Lógica de Programação e Algoritmos
// Professor :
// Autor(a) : Vinicius
// Data atual : 27/09/2016
//------------------------------------------------------------------------+
// Descrição : Algoritmo recebe 4 notas bimestrais (nota1, nota2, nota3
// e nota4) fornecidas por um aluno.
//
// Efetua o cálculo da Média Aritmética destas notas.
//
// Exibe o cálculo e o resultado da Média Aritmética.
//
// Exibe um conceito para a Média Aritmética, considerando
// o seguinte critério:
//
// - se for maior igual a 7 , conceito será -> "APROVADO".
// - senão , conceito será -> "REPROVADO".
//------------------------------------------------------------------------+
Var
// Seção de Declarações das variáveis
media , nota1 , nota2 , nota3 , nota4 : real
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
//------------------------------------------------------------------------+
// Passando valores iniciais para as variáveis
//------------------------------------------------------------------------+
media <- 0
nota1 <- 0
nota2 <- 0
nota3 <- 0
nota4 <- 0
//------------------------------------------------------------------------+
// Apresentação
//------------------------------------------------------------------------+
escreval ("")
escreval (" Software recebe 4 notas bimestrais (nota1, nota2, nota3 e nota4).")
escreval ("")
escreval (" Exibe o cálculo e o resultado da Média Aritmética e um conceito para esta.")
escreval ("")
escreval ("")
//------------------------------------------------------------------------+
// Entrada de dados
//------------------------------------------------------------------------+
escreva (" 01 Nota -> ")
leia (nota1)
escreval ("")
escreva (" 02 Nota -> ")
leia (nota2)
escreval ("")
escreva (" 03 Nota -> ")
leia (nota3)
escreval ("")
escreva (" 04 Nota -> ")
leia (nota4)
escreval ("")
escreval ("")
//------------------------------------------------------------------------+
// Exibindo CÁLCULO que será efetuado
//------------------------------------------------------------------------+
escreval (" MA = ((", nota1," +", nota2," +", nota3," +", nota4," ) / 4)")
escreval ("")
//------------------------------------------------------------------------+
// Efetuando CÁLCULOS
//------------------------------------------------------------------------+
media <- ( (nota1 + nota2 + nota3 + nota4) / 4 )
//------------------------------------------------------------------------+
// Saída de dados
//------------------------------------------------------------------------+
escreva (" MA =", media)
escreval ("")
escreval ("")
escreval ("")
//------------------------------------------------------------------------+
// Verificando media e definindo conceito
//------------------------------------------------------------------------+
se (media >= 7) entao
 escreval (" Conceito -> Aprovado")
senao
 escreval (" Conceito -> Reprovado")
fimse
escreval ("")
FimAlgoritmo