Определить сумму и произведение цифр заданного числа - QBasic

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

Составить программу, определяющую сумму и произведение цифр заданного числа. Число вводится пользователем

Решение задачи: «Определить сумму и произведение цифр заданного числа»

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

DECLARE FUNCTION M! (k!)
CLS
DIM SHARED x AS STRING
 
INPUT "X = "; x
S = 0
P = 1
 
FOR i = 1 TO LEN(x)
   S = S + M(i)
   P = P * M(i)
NEXT i
 
PRINT "S ="; S
PRINT "P ="; P
END
 
FUNCTION M (k)
   M = VAL(MID$(x, k, 1))
END FUNCTION

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

В этом коде:

Делоеть функция M! (k!) - Это определение пользовательской функции с именем M, которая принимает один параметр k.
CLS - Очищает экран перед выводом.
DIM SHARED x AS STRING - Объявляет переменную x как строку с возможностью общего доступа (SHARED).
INPUT X =; x - Запрашивает у пользователя ввод числа в переменную x.
S = 0 - Инициализирует переменную S (сумма цифр) значением 0.
P = 1 - Инициализирует переменную P (произведение цифр) значением 1.
FOR i = 1 TO LEN(x) - Запускает цикл от 1 до длины строки x.
S = S + M(i) - Прибавляет значение функции M для каждого символа в строке x к переменной S.
*P = P M(i)** - Умножает значение функции M для каждого символа в строке x на переменную P.
NEXT i - Переходит к следующему шагу цикла.
PRINT S =; S - Выводит значение переменной S.
PRINT P =; P - Выводит значение переменной P.
END - Конец программы.
FUNCTION M (k) - Определение функции M.
M = VAL(MID$(x, k, 1)) - Функция M возвращает значение первого символа в строке x, начиная с позиции k. Следует отметить, что код не проверяет входные данные и может вызвать ошибку, если введенная строка не является числом.