Média ponderada com conceitos de A,B,C e D

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

algoritmo "semnome"
// Função : Calcular a Média Ponderada
// Autor :
// Data : 19/06/2015
// Seção de Declarações 
var
 mp, n1, n2, n3: real
 p1, p2, p3: inteiro
inicio
// Seção de Comandos
escreval("Digite a nota:")
 leia (n1)
 leia (n2)
 leia (n3)
escreval ("Digite o peso da prova:")
 leia (p1)
 leia (p2)
 leia (p3)
 
 mp<- ((n1*p1)+(n2*p2)+(n3*p3))/(p1+p2+p3)
 
 escreva ("")
 escreva ("A media ponderada eh:", mp)
 
 se (mp>=0) e (mp<=10) entao
 se (mp>=8) e (mp<=10) entao
 escreval ("Conceito A")
 senao
 se (mp>=7) e (mp<8) entao
 escreval ("Conceito B")
 senao
 se (mp>=6) e (mp<7) entao
 escreval ("Conceito C")
 senao
 se (mp>=0) entao
 escreval ("Conceito D")
 
 fimse
 fimse
 fimse
fimse
 senao
 escreval ("Média Inválida")
 fimse
 
 
fimalgoritmo