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

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

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

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

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

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

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

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

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

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