18 lines
584 B
Text
18 lines
584 B
Text
PRINT "First 10 terms of Q = " ;
|
|
FOR i% = 1 TO 10 : PRINT ;FNq(i%, c%) " "; : NEXT : PRINT
|
|
PRINT "1000th term = " ; FNq(1000, c%)
|
|
PRINT "100000th term = " ; FNq(100000, c%)
|
|
PRINT "Term is less than preceding term " ; c% " times"
|
|
END
|
|
|
|
DEF FNq(n%, RETURN c%)
|
|
LOCAL i%,q%()
|
|
IF n% < 3 THEN = 1 ELSE IF n% = 3 THEN = 2
|
|
DIM q%(n%)
|
|
q%(1) = 1 : q%(2) = 1 : q%(3) = 2
|
|
c% = 0
|
|
FOR i% = 3 TO n%
|
|
q%(i%) = q%(i% - q%(i%-1)) + q%(i% - q%(i%-2))
|
|
IF q%(i%) < q%(i%-1) THEN c% += 1
|
|
NEXT
|
|
= q%(n%)
|