22 lines
328 B
Text
22 lines
328 B
Text
for i = 0 to 15
|
|
print fiboR(i),fiboI(i)
|
|
next i
|
|
|
|
function fiboR(n)
|
|
if n <= 1 then
|
|
fiboR = n
|
|
else
|
|
fiboR = fiboR(n-1) + fiboR(n-2)
|
|
end if
|
|
end function
|
|
|
|
function fiboI(n)
|
|
a = 0
|
|
b = 1
|
|
for i = 1 to n
|
|
temp = a + b
|
|
a = b
|
|
b = temp
|
|
next i
|
|
fiboI = a
|
|
end function
|