Вывести выполнение плана завода за год по стоимости прозведенных изделий - QBasic

Формулировка задачи:

Дана таблица выпуска заводом N типов изделий по месяцам года;список плановых заданий по каждому изделию помесячно;стоимость единицы каждого изделия.Вывести результаты выполнения плана (в %) по каждому изделию помесячно,поквартально и за год.Вывести также выполнение плана за год по стоимости прозведенных изделий.Исходная информация вводится с клавиатуры Помогите,пожалуйста,если можно,то с пояснениеями.Спасибо заранее

Решение задачи: «Вывести выполнение плана завода за год по стоимости прозведенных изделий»

textual
                            Листинг программы 
                        
 
                            
                        
CLS
RANDOMIZE TIMER
INPUT "n"; n
DIM a(12, n)
DIM b(12, n)
FOR j = 1 TO n
    INPUT "p(j)"; p(j)
    FOR i = 1 TO 12
        REM  INPUT "a(i,j),b(i,j)"; a(i, j), b(i, j)
        a(i, j) = FIX(RND(1) * 50)
        b(i, j) = FIX(RND(1) * 50 + 50)
    NEXT i
NEXT j
FOR j = 1 TO n
    PRINT
    FOR i = 1 TO 12
        c = a(i, j)
        d = b(i, j)
        e = (c / d) * 100
        c1 = a(1, j) + a(2, j) + a(3, j)
        d1 = b(1, j) + b(2, j) + b(3, j)
        e1 = (c1 / d1) * 100
        c2 = a(4, j) + a(5, j) + a(6, j)
        d2 = b(4, j) + b(5, j) + b(6, j)
        e2 = (c2 / d2) * 100
        c3 = a(7, j) + a(8, j) + a(9, j)
        d3 = b(7, j) + b(8, j) + b(9, j)
        e3 = (c3 / d3) * 100
        c4 = a(10, j) + a(11, j) + a(12, j)
        d4 = b(10, j) + b(11, j) + b(12, j)
        e4 = (c4 / d4) * 100
        PRINT e, e1, e2, e3, e4
    NEXT i
NEXT j
FOR j = 1 TO n
    FOR i = 1 TO 12
        g = g + a(i, j)
        h = h + b(i, j)
        m = (g / h) * 100
    NEXT i
    PRINT m
NEXT j
s = 1
FOR j = 1 TO n
    FOR i = 1 TO 12
        k = k + a(i, j)
        s = k * p(j)
    NEXT i
    PRINT s
NEXT j