Código Promedio

PROMEDIO
Este programa calcula la suma, el promedio, la equivalencia en letras, y el resultado si aprueba o no la materia. Con tres notas, segun la siguiente tabla 10 sobresaliente,9-8 muy buena,7 buena, 6-1 insuficiente.
Para esto utilizamos dos modulos el principal (MMain) y otro Module1.

MODULO Mmain
PUBLIC SUB Main()
DIM cal1, cal2, cal3 AS Integer
PRINT "INGRESE NOTA 1:..."
INPUT cal1
PRINT " INGRESE NOTA 2:..."
INPUT cal2
PRINT " INGRESE NOTA 3:..."
INPUT cal3
PRINT "<<<>>>", Module1.SUM(cal1, cal2, cal3)
PRINT "<<<>>>", Module1.PROM(cal1, cal2, cal3)
PRINT "<<<>>>", Module1.EQUIVAL(cal1, cal2, cal3)
PRINT "RESULTADO", Module1.RESULTADO(cal1, cal2, cal3)
END
MODULE 1
PUBLIC FUNCTION SUM(p1 AS Integer, p2 AS Integer, p3 AS Integer) AS Integer
DIM s AS Integer
s = p1 + p2 + p3
RETURN s
END
PUBLIC FUNCTION PROM(p1 AS Integer, p2 AS Integer, p3 AS Integer) AS Integer
DIM prom AS Integer
prom = (p1 + p2 + p3) DIV 3
RETURN prom
END
PUBLIC FUNCTION EQUIVAL(p1 AS Integer, p2 AS Integer, p3 AS Integer) AS String
DIM equi AS Integer
DIM e AS String
equi = (p1 + p2 + p3) DIV 3
IF (equi <>
e = "insuificiente"
ELSE IF (equi = 7) THEN
e = "bueno"
ELSE IF (equi <>
e = "muy bueno"
ELSE
e = "sobresaliente"
END IF
RETURN e
END
PUBLIC FUNCTION RESULTADO(p1 AS Integer, p2 AS Integer, p3 AS Integer) AS String
DIM equi AS Integer
DIM e AS String
equi = (p1 + p2 + p3) DIV 3
IF (equi <>
e = "REPRUEBA"
ELSE IF (equi <>
e = "RECUPERACION"
ELSE
e = "APRUEBA"
END IF
RETURN e
END