12 lines
249 B
Text
12 lines
249 B
Text
' Fibonacci sequence - 31/07/2018
|
|
n = 139
|
|
f1 = 0
|
|
f2 = 1
|
|
TextWindow.WriteLine("fibo(0)="+f1)
|
|
TextWindow.WriteLine("fibo(1)="+f2)
|
|
For i = 2 To n
|
|
f3 = f1 + f2
|
|
TextWindow.WriteLine("fibo("+i+")="+f3)
|
|
f1 = f2
|
|
f2 = f3
|
|
EndFor
|