EXEC5

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

algoritmo "MEDIA"
// Função :5. Escrever um algoritmo que leia o nome de um aluno e as notas
// das quatro provas que ele obteve no semestre.
// No final informar o nome do aluno e a sua média (aritmética).
// Autor : FRANCISCO LEANDRO VENCESLAU ALVES
// Data : 10/10/2013
// Seção de Declarações 
var
NOME:CARACTER
A,B,C,D,MED:REAL
inicio
ESCREVA("NOME DO ALUNO:")
LEIA(NOME)
LIMPATELA
ESCREVA("DIGITE A NOTA DA PRIMEIRA PROVA EQUIVALENTE AO 1ºBIMESTRE:")
LEIA(A)
LIMPATELA
ESCREVA("DIGITE A NOTA DA SEGUNDA PROVA EQUIVALENTE AO 1ºBIMESTRE:")
LEIA(B)
LIMPATELA
ESCREVA("DIGITE A NOTA DA TERCEIRA PROVA EQUIVALENTE AO 2ºBIMESTRE:")
LEIA(C)
LIMPATELA
ESCREVA("DIGITE A NOTA DA QUARTA PROVA EQUIVALENTE AO 2ºBIMESTRE:")
LEIA(D)
LIMPATELA
MED:= A+B+C+D/4
ESCREVAL("ALUNO:",NOME)
ESCREVAL("SUA MEDIA NESSE SEMESTRE E DE:",MED)
fimalgoritmo