35 lines
699 B
Text
35 lines
699 B
Text
DECLARE SUB fib (a() AS INTEGER)
|
|
|
|
CLS
|
|
PRINT " fibonacci =>";
|
|
DIM a(1 TO 2) AS INTEGER
|
|
a(1) = 1: a(2) = 1
|
|
CALL fib(a())
|
|
PRINT " tribonacci =>";
|
|
DIM b(1 TO 3) AS INTEGER
|
|
b(1) = 1: b(2) = 1: b(3) = 2
|
|
CALL fib(b())
|
|
PRINT " tetranacci =>";
|
|
DIM c(1 TO 4) AS INTEGER
|
|
c(1) = 1: c(2) = 1: c(3) = 2: c(4) = 4
|
|
CALL fib(c())
|
|
PRINT " lucas =>";
|
|
DIM d(1 TO 2) AS INTEGER
|
|
d(1) = 2: d(2) = 1
|
|
CALL fib(d())
|
|
END
|
|
|
|
SUB fib (a() AS INTEGER)
|
|
DIM f(24)
|
|
b = 0
|
|
FOR x = 1 TO UBOUND(a)
|
|
b = b + 1
|
|
f(x) = a(x)
|
|
NEXT x
|
|
FOR i = b TO 12 + b
|
|
PRINT USING "#### "; f(i - b + 1);
|
|
FOR j = (i - b + 1) TO i
|
|
f(i + 1) = f(i + 1) + f(j)
|
|
NEXT j
|
|
NEXT i
|
|
END SUB
|