Código Productos

PRODUCTOS
En este programa calculamos el total de quintales, y el porcentaje de cada uno, para ello ingresamos cantidad de café, cacao, maíz. Solo utilizamos un modulo (MMain)

MODULO Mmain

PUBLIC SUB Main()
DIM A, B, C, S, PC, PC1, PM AS Integer
PRINT "<>>"
PRINT "Ingrese cantidad de cafe"
INPUT A
PRINT "Ingrese cantidad de cacao"
INPUT B
PRINT "Ingrese cantidad de maiz"
INPUT C
PRINT "El total de cafe es...", A
PRINT "El total de cacao es...", B
PRINT "El total de maiz es...", C
S = A + B + C
PRINT "El total de quintales es...", S
PRINT "EL PORCENTAJE DE CADA PRODUCTO ES"
PC = (S * A) / 100
PC1 = (S * B) / 100
PM = (S * C) / 100
PRINT "El porcentaje de cafe es...%", PC
PRINT "El porcentaje de cacao es...%", PC1
PRINT "El porcentaje de maiz es...%", PM
END