Найти сумму первых N членов знакочередующего ряда - QBasic

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

Тема 2. Числовые последовательности и ряды Найти сумму первых N членов знакочередующего ряда: Y = 1 - Х/(X+1) + Х3/(Х+1)2 – Х5/(Х+1)3 + …, где |Х|<1.

Решение задачи: «Найти сумму первых N членов знакочередующего ряда»

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

10 CLS
20 INPUT "INPUT N: "; N
30 INPUT "INPUT X: "; X
40 IF ABS(X) > 1 THEN
50 Y = 1
60 FOR I = 0 TO N - 1
70 Y = Y + ((-1)^(I+1))*((X*(2*I+1))/((X+1)*(I+1)))
80 NEXT I
90 PRINT "Y ="; Y
100 END IF
110 END

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

Запрос на ввод числа N, которое определяет количество элементов в ряде.
Запрос на ввод числа X, которое является первым членом ряда.
Проверка, что X не равно нулю.
Инициализация переменной Y единицей.
Суммирование ряда, используя формулу для суммы арифметической прогрессии.
Вывод результата на экран.