20 lines
462 B
Plaintext
20 lines
462 B
Plaintext
sqliteconnect #mem, ":memory:"
|
|
#mem execute("CREATE TABLE lno (name,L0,L1,ad)")
|
|
#mem execute("INSERT INTO lno VALUES('Leonardo',1,1,1),('Fibonacci',0,1,0);")
|
|
#mem execute("SELECT * FROM lno")
|
|
for j = 1 to 2
|
|
#row = #mem #nextrow()
|
|
name$ = #row name$()
|
|
L0 = #row L0()
|
|
L1 = #row L1()
|
|
ad = #row ad()
|
|
print :print name$;" add=";ad :print" ";L0;" ";L1;" ";
|
|
for i = 3 to 25
|
|
temp = L1
|
|
L1 = L0 + L1 + ad
|
|
L0 = temp
|
|
print L1;" ";
|
|
next i
|
|
next j
|
|
end
|