19 lines
272 B
Text
19 lines
272 B
Text
|
for i = 0 to 10
|
||
|
|
print i;" ";fibR(i);" ";fibI(i)
|
||
|
|
next i
|
||
|
|
end
|
||
|
|
|
||
|
|
function fibR(n)
|
||
|
|
if n < 2 then fibR = n else fibR = fibR(n-1) + fibR(n-2)
|
||
|
|
end function
|
||
|
|
|
||
|
|
function fibI(n)
|
||
|
|
b = 1
|
||
|
|
for i = 1 to n
|
||
|
|
t = a + b
|
||
|
|
a = b
|
||
|
|
b = t
|
||
|
|
next i
|
||
|
|
fibI = a
|
||
|
|
end function
|