ALGORITMO QUE CALCULA A MEDIA TOTAL

Este foi um algoritmo elaborado nas aulas simples mas bonito :


algoritmo "media total"
// Função : Calcular a media
// Autor : Tiago e Ricardo
// Data : 12/10/2010
// Seção de Declarações
var
x1, x2, x3, x4, x5, x6, x7, x8, x9, x10 : Real
// Seção de Comandos
cronometro on
Escreval(" Este programa vai calcular a media das tuas disciplinas")
Escreval("MateMatica ")
Leia(x1)
Escreval("FQ")
Leia(x2)
Escreval("INGLES")
Leia(x3)
Escreval("PORTUGUES")
Leia(x4)
Escreval("Filosofia")
Leia(x5)
Escreval("EDFisica")
Leia(x6)
Escreval("TA")
Leia(x7)
Escreval("EAD")
Leia(x8)
Escreval("GD")
Leia(x9)
x10<-(x1+x2+x3+x4+x5+x6+x7+x8+x9)/9
limpatela
Escreval("A Tua Media é esta")
Escreval(x10)
se (x10>13.5) entao
Escreval("")
Escreval("Podes entrar na faculdade mas Atencao! Tens que melhorar")
Escreval("")
fimse
se (x10>15) entao
Escreval("")
Escreval("Tens Uma boa media continua Assim!")
Escreval("")
fimse