Вычислить сумму ряда - QBasic (27449)

s=3/2+5/4+7/5+...+n/n-2

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

DECLARE FUNCTION F!(N)
 
CLS
PRINT F(7)
 
FUNCTION F! (N) STATIC
  IF N < 3 THEN
    F = 0
  ELSE
    F = N / (N - 2) + F(N - 1)
 END IF
END FUNCTION

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

В этом коде:

DECLARE FUNCTION F!(N) - это объявление функции с именем F!, которая принимает один параметр N.
CLS - это команда очистки экрана.
PRINT F(7) - это вызов функции F(7), результат выводится на экран.
FUNCTION F! (N) STATIC - это определение функции F!, которая является статической (не использует переменные из окружающей области видимости).
IF N < 3 THEN - это проверка условия, если N меньше 3, то...
F = 0 - это присваивание переменной F значение 0.
ELSE - это продолжение условия, если предыдущее выражение (N < 3) не выполнено.
F = N / (N - 2) + F(N - 1) - это вычисление значения функции F!, используя формулу суммирования ряда.
END FUNCTION - это конец определения функции. Это базовый код для вычисления суммы ряда, используя формулу суммирования ряда.