Как вычислить n-факториал - QBasic

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

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

Как вычислить n-факториал ?

Решение задачи: «Как вычислить n-факториал»

textual
Листинг программы
DECLARE FUNCTION f! (n!)
CLS
INPUT "N = "; n
PRINT "N! ="; f(n)
END
 
FUNCTION f (n)
   IF n = 0 THEN f = 1 ELSE f = n * f(n - 1)
END FUNCTION

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

В этом коде:

  1. DECLARE FUNCTION f(n)! - объявление функции с именем f, которая принимает один параметр n.
  2. CLS - очистка экрана перед выводом.
  3. INPUTN = ; n - запрос ввода значения переменной n.
  4. PRINTN! =; f(n) - вывод значения функции f(n) на экран.
  5. END - завершение подпрограммы.
  6. FUNCTION f(n) - начало определения функции f.
  7. IF n = 0 THEN f = 1 ELSE f = n * f(n - 1) - определение алгоритма вычисления факториала.
  8. END FUNCTION - завершение определения функции. Функция f вычисляет факториал числа n. Если n равно 0, то возвращается 1, иначе результат вычисления факториала n-1 умножается на n. Этот код на языке QBasic вычисляет факториал числа, введенного пользователем.

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

11   голосов , оценка 3.818 из 5