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

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

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

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

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

В этом коде:

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