Media do aluno

[fdantas]

/* ESCREVA UM ALGORITMO QUE LEIA 3 NÚMEROS DE UM ALUNO E SUAS TRÊS NOTAS. CALCULE A MÉDIA PONDERADA DO ALUNO,
CONSIDERANDO QUE O PESO PARA A MAIOR NOTA SEJA 4 E PARA AS DUAS RESTANTES, 3. MOSTRE O CÓDIGO DO ALUNO, SUAS TRÊS NOTAS,
A MÉDIA CAUCULADA E UMA MENSAGEM "APROVADO" SE A MÉDIA OU IGUAL A 5 E " REPROVADO " SE A MÉDIA FOR MENOR QUE 5. */


DEF VAR N1 AS DEC NO-UNDO.
DEF VAR N2 AS DEC NO-UNDO.
DEF VAR N3 AS DEC NO-UNDO.
DEF VAR MED AS DEC NO-UNDO.
DEF VAR COD AS INT NO-UNDO.


DISP 'ENTRE COM CÓDIGO DO ALUNO' LABEL '' format "x(40)" .
UPDATE COD LABEL ''.

DISP 'ENTRE COM A PRIMEIRA NOTA' LABEL '' format "x(40)" .
UPDATE N1 LABEL ''.

DISP 'ENTRE COM A SEGUNDA NOTA' LABEL '' format "x(40)" .
UPDATE N2 LABEL ''.

DISP 'ENTRE COM A TERCEIRA NOTA' LABEL '' format "x(40)" .
UPDATE N3 LABEL 'NOTAS'.

ASSIGN N1 = (N1 * 50) / 100
N2 = (N2 * 30) / 100
N3 = (N3 * 20) / 100
MED = N1 + N2 + N3 .



DISP ' A MÉDIA DO ALUNO É: '.
DISP MED LABEL ''.

IF MED >= 5 THEN
DISP ' APROVADO'.
ELSE DISP ' REPROVADO '.