23 lines
454 B
Text
23 lines
454 B
Text
subroutine leonardo(L0, L1, suma, texto)
|
|
print "Numeros de " + texto + " (" + L0 + "," + L1 + "," + suma + "):"
|
|
for i = 1 to 25
|
|
if i = 1 then
|
|
print L0 + " ";
|
|
else
|
|
if i = 2 then
|
|
print L1 + " ";
|
|
else
|
|
print L0 + L1 + suma + " ";
|
|
tmp = L0
|
|
L0 = L1
|
|
L1 = tmp + L1 + suma
|
|
end if
|
|
end if
|
|
next i
|
|
print chr(10)
|
|
end subroutine
|
|
|
|
#--- Programa Principal ---
|
|
call leonardo(1,1,1,"Leonardo")
|
|
call leonardo(0,1,0,"Fibonacci")
|
|
end
|