Найти сумму рациональных чисел (2) - QBasic

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

Вычислить сумму 1000/1000 + 999/1001 + ... + 1/1999 (ответ: 386.7945)

REM
REM 1000/1000 + 999/1001 + ... + 1/1999
REM
REM  SUMMA = 386.7945
REM
 
DECLARE SUB sum (a!, b!, S!)
 
CLS
CLEAR , , 25000
CONST n = 1000
CALL sum(n, n, S)
PRINT S
END
 
SUB sum (a, b, S)
   IF a = 0 THEN EXIT SUB
   S = S + a / b
   CALL sum(a - 1, b + 1, S)
END SUB

Решение задачи: «Найти сумму рациональных чисел (2)»

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

DIM i AS LONG, s AS DOUBLE
FOR i = 0 TO 999
    s = s + (1000 - i) / (1000 + i)
NEXT i
PRINT s

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

В этом коде:

Переменная i типа LONG (целое число со знаком) инициализируется значением 0.
Переменная s типа DOUBLE (число с плавающей точкой) инициализируется значением 0.
Цикл FOR проходит по всем целым числам от 0 до 999 (включительно).
Внутри цикла значение переменной s увеличивается на (1000 - i) / (1000 + i).
После окончания цикла выводится значение переменной s. Сумма рациональных чисел (2) будет равна 1.