27 lines
409 B
Text
27 lines
409 B
Text
10 REM Leonardo numbers
|
|
20 N=21
|
|
30 K=1
|
|
40 L=1
|
|
50 S=1
|
|
60 PRINT "Leonardo numbers (";K;", ";L;", ";S;"):"
|
|
70 GOSUB 140
|
|
80 K=0
|
|
90 L=1
|
|
100 S=0
|
|
110 PRINT "Fibonacci numbers (";K;", ";L;", ";S;"):"
|
|
120 GOSUB 140
|
|
130 END
|
|
140 IF N<1 GOTO 260
|
|
150 PRINT K;" ";
|
|
160 IF N<2 GOTO 260
|
|
170 PRINT L;" ";
|
|
180 I=3
|
|
190 IF I>N GOTO 260
|
|
200 PRINT K+L+S;" ";
|
|
210 T=K
|
|
220 K=L
|
|
230 L=T+L+S
|
|
240 I=I+1
|
|
250 GOTO 190
|
|
260 PRINT
|
|
270 RETURN
|