PORCENTAJE DE PRODUCTOS DE EXPORTACION

ESTE EJERCICIO PERMITE VISUALIZAR EL TOTAL DE QUINTALES INGRESADOS ENTRE CAFE, CACAO Y MAIZ ADEMAS EL PORCENTAJE DE CADA UNO DE ELLOS

' El Ecuador Exporta cafe, cacao y maiz en qq, Encontrar el Total de Quintales Exportados y el
porcentaje de cada producto exportado
PUBLIC SUB Main()
DIM c, cc, m, s, p1, p2, p3 AS Integer
PRINT "Ingrese Quintales de Cafe ..... :", c
INPUT c
PRINT "Ingrese Quintales de Cacao .... :", cc
INPUT cc
PRINT "Ingrese Quintales de Maiz ..... :", m
INPUT m

'INPUT c, cc, m
s = c + cc + m
p1 = (c * 100) / s
p2 = (cc * 100) / s
p3 = (m * 100) / s
PRINT "El total de quintales es ... : " & Str(s) & " entre cafe, cacao y maiz"
PRINT "El porcentaje de cafe es .... : " & Str(p1) & ""
PRINT "El porcentaje de cacao es ... : " & Str(p2) & ""
PRINT "El porcentaje de Maiz es .... : " & Str(p3) & ""
END