Вычисление суммы необычного ряда (2) - QBasic

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

Дана последовательность чисел sin1, sin2, ... , sin1000 Между этими числами поставлены знаки операций умножения и сложения. Знаки ставятся перед числом (То есть число sin1 не участвует в определении операции) Как определяется операция? если в числе sin(i) первая цифра после десятичной запятой Нечетная, то перед этим числом ставится знак умножения, в противном случае - сложение Надо суммировать полученный ряд. .... Эта программа выдала ответ: 29.91009 С учетом погрешности вычислений последние три цифры можно отбросить Вопросы 1. Можно ли применить здесь рекурсию? 2. Какой уровень сложности этой задачи? 3. Как решить задачу иначе?

REM
REM  OTBET: 29.91
REM
 
CLS
n = 1000
DIM M(1 TO n)
 
FOR i = 1 TO n
   M(i) = SIN(i)
NEXT
 
FOR i = 2 TO n
   k = FIX(10 * ABS(M(i)))
   IF k MOD 2 THEN
      M(i) = M(i) * M(i - 1)
      M(i - 1) = 0
   END IF
NEXT
 
FOR i = 1 TO n
   SUM = SUM + M(i)
NEXT
 
PRINT SUM
END

Решение задачи: «Вычисление суммы необычного ряда (2)»

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

DIM i AS LONG, a AS DOUBLE, b AS DOUBLE, s AS DOUBLE
b = SIN(1)
FOR i = 2 TO 1000
    a = SIN(i)
    IF INT(ABS(a) * 10) MOD 2 THEN b = b * a ELSE s = s + b: b = a
NEXT i
s = s + b
PRINT s

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

Объявляются четыре переменные: i, a, b, s типа LONG и DOUBLE соответственно.
Значение переменной b присваивается функции SIN(1).
Запускается цикл от 2 до 1000, в котором: 3.1. Значение переменной a присваивается функции SIN(i). 3.2. С помощью условного оператора проверяется, является ли i четным числом (с помощью функции INT(ABS(a) * 10) MOD 2). 3.3. Если условие в пункте 3.2 выполняется, то значение переменной b умножается на значение переменной a. 3.4. Если условие в пункте 3.2 не выполняется, то значение переменной b присваивается переменной s, а значение переменной b присваивается значению переменной a.
После завершения цикла значение переменной s присваивается сумме значений переменной s и переменной b.
Выводится значение переменной s.