21 lines
391 B
Text
21 lines
391 B
Text
limit = 25
|
|
|
|
sub leonardo(L0, L1, suma, texto$)
|
|
local i
|
|
print "Numeros de " + texto$, " (", L0, ",", L1, ",", suma, "):"
|
|
for i = 1 to limit
|
|
if i = 1 then print L0, " ";
|
|
elsif i = 2 then print L1, " ";
|
|
else
|
|
print L0 + L1 + suma, " ";
|
|
tmp = L0
|
|
L0 = L1
|
|
L1 = tmp + L1 + suma
|
|
endif
|
|
next i
|
|
print chr$(10)
|
|
end sub
|
|
|
|
leonardo(1,1,1,"Leonardo")
|
|
leonardo(0,1,0,"Fibonacci")
|
|
end
|