Вычислить натуральное n - QBasic

Решение задачи: «Вычислить натуральное n»

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

DIM r AS SINGLE, s0 AS SINGLE, s1 AS SINGLE
DIM i AS INTEGER, n AS INTEGER
DIM temp AS SINGLE
INPUT "", n
r = 1
s0 = 0
s1 = 0
FOR i = 1 TO n
    temp = i 
    ' temp = i * 0,0174  'в градусах
    s0 = s0 + COS(temp)
    s1 = s1 + SIN(temp)
    r = r * s0 / s1
NEXT
PRINT r

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

Код на языке QBasic вычисляет значение числа π (пи) с помощью формулы: π = 4 (1 / 2) (1 / 3) (1 / 4) ... * (1 / n) где n — натуральное число, которое вводится пользователем в цикле. В этом коде:

Объявляются переменные: r — для хранения результата; s0, s1 - для хранения промежуточных значений; i — для управления циклом; temp — для временного хранения значения i.
Вводится значение n.
Инициализируются начальные значения: r = 1; s0 = 0; s1 = 0.
В цикле вычисляется значение temp как произведение i на 0.0174 (для перевода градусов в радианы), затем прибавляется к s0 и s1, и обновляется значение r.
После завершения цикла выводится значение r.