Media aprovado e reprovado

[fdantas]

/* FAÇA UM ALGORITMO QUE LEIA 3 NOTAAS DE UM ALUNO E MOSTRE, ALEM DO VALOR DA MÉDIA UMA MENSAGEM DE "APROVADO",
CASO A MÉDIA SEJA IGUAL OU SUPERIOR A 6 OU A MENSAGEM DE "REPROVADO" CASO CONTRÁRIO. */


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 F AS DEC NO-UNDO.
FORM F AT ROW 1 COLUMN 12 COLON-ALIGNED
WITH FRAME F-GUI
TITLE "MÉDIA"
THREE-D SIDE-LABELS VIEW-AS DIALOG-BOX
SIZE 70 BY 6.


DISP 'ENTRE COM A PRIMEIRA NOTA' LABEL '' format "x(40)" AT ROW 1 COLUMN 2 WITH FRAME F-GUI.
UPDATE N1 AT ROW 1 COLUMN 39 WITH FRAME F-GUI.

DISP 'ENTRE COM A SEGUNDA NOTA' LABEL '' format "x(40)" AT ROW 2 COLUMN 2 WITH FRAME F-GUI.
UPDATE N2 AT ROW 2 COLUMN 39 WITH FRAME F-GUI.

DISP 'ENTRE COM A TERCEIRA NOTA' LABEL '' format "x(40)" AT ROW 3 COLUMN 2 WITH FRAME F-GUI.
UPDATE N3 AT ROW 3 COLUMN 39 WITH FRAME F-GUI.

ASSIGN
MED = (N1 + N2 + N3) / 3.

DISP ' A MÉDIA DO ALUNO É: ' AT ROW 4 COLUMN 2 WITH FRAME F-GUI.
DISP MED AT ROW 4 COLUMN 39 WITH FRAME F-GUI.

IF MED >= 6 THEN
MESSAGE 'O ALUNO FOI APROVADO ' VIEW-AS ALERT-BOX.
ELSE
MESSAGE 'O ALUNO FOI REPROVADO ' VIEW-AS ALERT-BOX.


.