Составить алгоритм и программу на языке QBasic вложенной циклической структуры (массивы)

Информация будет храниться в массиве размером 12×3.
Составим алгоритм программы (рис. 12).
Рис. 12. Алгоритм задачи
Составим программу по приведенному алгоритму:
CLS
DIM a(12, 3) AS SINGLE
DIM S(3) AS SINGLE
FOR i = 1 TO 12
PRINT "Vvedite zarplatu "; i; "-go rabotnika:"
FOR j = 1 TO 3
PRINT " za "; j; "-yi mesiac: ";
INPUT a(i, j)
NEXT
PRINT
NEXT
PRINT "-------------------------------------------------------"
PRINT "| Rabotnik | Mesiac 1 | Mesiac 2 | Measiac 3| Summa |"
PRINT "-------------------------------------------------------"
FOR i = 1 TO 12
PRINT "| "; USING "########"; i;
FOR j = 1 TO 3
PRINT " | "; USING "########"; a(i, j);
S(j) = S(j) + a(i, j)
NEXT
PRINT " | ";
PRINT USING "#######"; a(i, 1) + a(i, 2) + a(i, 3);
PRINT " |"
NEXT
PRINT "-------------------------------------------------------"
PRINT "| Itogo";
FOR j = 1 TO 3
PRINT " | "; USING "########"; S(j);
NEXT
PRINT " | ";
PRINT USING "#######"; S(1) + S(2) + S(3);
PRINT " |"
PRINT "-------------------------------------------------------"
PRINT
PRINT "Summa za kvartal: "; S(1) + S(2) + S(3)
Проверим работу программы (рис . 13, 14).
Рис. 13. Ввод данных
Рис. 14. Тестирование программы
Проведем вычисления вручную:
Работники Месяц Сумма
1 2 3
1 1 2 3 1 + 2 + 3 = 6
2 4 5 6 4 + 5 + 6 = 15
3 7 8 9 7 + 8 + 9 = 24
4 10 11 12 10 + 11 + 12 = 33
5 13 14 15 13 + 14 + 15 = 42
6 16 17 18 16 + 17 + 18 = 51
7 19 20 21 19 + 20 + 21 = 60
8 22 23 24 22 + 23 + 24 = 69
9 25 26 27 25 + 26 + 27 = 78
10 28 29 30 28 + 29 + 30 = 87
11 31 32 33 31 + 32 + 33 = 96
12 34 35 36 34 + 35 + 36 = 105
Итого 210 222 234 210 + 222 + 234 = 666
Программа работает верно.
Заключение
В результате выполнения работы было изучено понятие «информация»