Leonardo numbers: Difference between revisions
Leonardo numbers en FreeBASIC
(Leonardo numbers en BASIC256) |
(Leonardo numbers en FreeBASIC) |
||
Line 804:
The first 25 numbers in the Leonardo sequence defined by L(0) = 0 and L(1) = 1 with L(n) = L(n - 1) + L(n - 2) + 0
0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946, 17711, 28657, 46368,
</pre>
=={{header|FreeBASIC}}==
<lang freebasic>
Sub leonardo(L0 As Integer, L1 As Integer, suma As Integer, texto As String)
Dim As Integer i, tmp
Print "Numeros de " &texto &" (" &L0 &"," &L1 &"," &suma &"):"
For i = 1 To 25
If i = 1 Then
Print L0;
Elseif i = 2 Then
Print L1;
Else
Print L0 + L1 + suma;
tmp = L0
L0 = L1
L1 = tmp + L1 + suma
End If
Next i
Print Chr(10)
End Sub
'--- Programa Principal ---
leonardo(1,1,1,"Leonardo")
leonardo(0,1,0,"Fibonacci")
End
</lang>
{{out}}
<pre>
Numeros de Leonardo (1,1,1):
1 1 3 5 9 15 25 41 67 109 177 287 465 753 1219 1973 3193 5167 8361 13529 21891 35421 57313 92735 150049
Numeros de Fibonacci (0,1,0):
0 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946 17711 28657 46368
</pre>
| |||