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

Узнай цену своей работы

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

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

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

textual
Листинг программы
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

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

В этом коде:

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

Оцени полезность:

15   голосов , оценка 4.067 из 5
Похожие ответы