12 lines
271 B
Text
12 lines
271 B
Text
100 PROGRAM "QSequen.bas"
|
|
110 LET LIMIT=1000
|
|
120 NUMERIC Q(1 TO LIMIT)
|
|
130 LET Q(1),Q(2)=1
|
|
140 FOR I=3 TO LIMIT
|
|
150 LET Q(I)=Q(I-Q(I-1))+Q(I-Q(I-2))
|
|
160 NEXT
|
|
170 PRINT "First 10 terms:"
|
|
180 FOR I=1 TO 10
|
|
190 PRINT Q(I);
|
|
200 NEXT
|
|
210 PRINT :PRINT "Term 1000:";Q(1000)
|