18 lines
272 B
Text
18 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
|