Вычислить последовательность - QBasic

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

Пусть а0=1; а^k=k*a^(k-1)+1/k, k=1,2,... Дано натуральное число n.Получите а^n. Указание. При составлении программы последующий и предыдущий члены последовательности обозначайте одинаково буквой a.

Решение задачи: «Вычислить последовательность»

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

REM  Первые члены последовательности
REM  1,  2,  4.5,  13.83333,  55.58333,  278.1167, ...
REM
 
CLS
DIM n AS INTEGER
DIM k AS INTEGER
INPUT "N = "; n
 
a = 1
 
FOR k = 1 TO n
   a = k * a + 1 / k
NEXT k
PRINT "A ="; a
 
END

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

Переменные:
- n (целое число), количество членов последовательности
- k (целое число), используется в цикле
- a (число), результат вычислений
Ввод данных:
- Запрос на ввод количества членов последовательности с помощью команды INPUT N =; n
Вычисления:
- Инициализация переменной a значением 1
- Цикл FOR для вычисления каждого члена последовательности
- a = k * a + 1 / k, формула для вычисления члена последовательности
Вывод результатов:
- Команда PRINT A =; a, для вывода значения переменной a