Составьте алгоритм нахождения первого элемента последовательности, большего 1000 - QBasic

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

13°. Последовательность аn строится так: a1 = l, a2 = 3 и аn = аn-1 - 2an-2 для каждого n>2. Составьте для ВЫЧИСЛИТЕЛЯ следующие алгоритмы: а) алгоритм нахождения первого элемента последовательности, большего 1000; б) алгоритм нахождения суммы первых 15 членов этой последовательности; в) алгоритм нахождения первых десяти положительных членов этой последовательности; г) алгоритм нахождения наибольшего из первых 20 членов последовательности.

Решение задачи: «Составьте алгоритм нахождения первого элемента последовательности, большего 1000»

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

                            DECLARE FUNCTION f! (n!)
CLS
REM A
 
DO
   n = n + 1
LOOP UNTIL f(n) > 1000
PRINT "A) f("; n; ") = "; f(n)
 
REM B
 
FOR n = 1 TO 15
   SUM = SUM + f(n)
NEXT n
 
PRINT
PRINT "B) SUM ="; SUM
PRINT
 
REM C
 
k = 1
n = 1
PRINT "C) ";
DO
   IF f(n) > 0 THEN
      PRINT f(n);
      k = k + 1
   END IF
   n = n + 1
LOOP UNTIL k > 10
PRINT : PRINT
 
REM D
 
max = 1
FOR n = 1 TO 20
   IF max < f(n) THEN max = f(n)
NEXT n
PRINT "D) MAX ="; max
END
 
FUNCTION f (n)
   a1 = 1
   a2 = 3
   IF n = 1 THEN
      f = a1
   ELSEIF n = 2 THEN
      f = a2
   ELSE
      FOR i = 3 TO n
         a3 = a2 - 2 * a1
         a1 = a2
         a2 = a3
      NEXT i
      f = a3
   END IF
END FUNCTION
                        