Найти сумму чисел в системе, не вычисляя самих чисел. - QBasic

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

Пусть n натуральных чисел заданы своими цифрами в q-ичной системе счисления, хранящимся в строках матрицы K(m,n). Найти сумму этих чисел в той же системе, не вычисляя самих чисел (q <= 10)

Решение задачи: «Найти сумму чисел в системе, не вычисляя самих чисел.»

Листинг программы

INPUT "vvedite kolichestvo chisel M ", m
INPUT "vvedite kolichestvo cifr N ", n
DIM k(m, n), s(n + m)
INPUT "vvedite sistemu q ", q
FOR i = 1 TO m
PRINT "vvedite  cifry "; i; "-togo chisla:"
FOR j = 1 TO n
PRINT "cifra"; j; "=";
INPUT k(i, j)
NEXT
NEXT
PRINT "matrica "
FOR i = 1 TO m
FOR j = 1 TO n
PRINT k(i, j);
NEXT
PRINT
NEXT
FOR i = n TO 1 STEP -1
sum = 0
FOR j = 1 TO m
sum = sum + k(j, i)
NEXT
sum = sum + per
s(i) = sum MOD q
per = (sum - s(i)) / q
NEXT
DO WHILE per > 0
FOR i = n TO 1 STEP -1
s(i + 1) = s(i)
NEXT
n = n + 1
s(1) = per MOD q
per = (per - s(1)) / q
LOOP
PRINT "rezultat"
FOR i = 1 TO n
PRINT s(i);
NEXT

Объяснение кода листинга программы

Ввод количества чисел M и N, а также системы Q.
Создание матрицы k(m, n) и вектора s(n+m).
Ввод цифр системы Q.
Вывод матрицы k.
Ввод суммы всех чисел в системе Q на основе вектора s.
Вычисление суммы чисел в системе Q на основе вектора s.
Вывод результата.