18 lines
533 B
Text
18 lines
533 B
Text
100 REM Leonardo numbers
|
|
110 DECLARE EXTERNAL SUB PrintLeonardoNums
|
|
120 CALL PrintLeonardoNums(1, 1, 1, 25, "Leonardo numbers")
|
|
130 CALL PrintLeonardoNums(0, 1, 0, 25, "Fibonacci numbers")
|
|
140 END
|
|
150 REM **
|
|
160 EXTERNAL SUB PrintLeonardoNums(L0, L1, Sum, Lmt, What$)
|
|
170 PRINT What$; " ("; L0; ","; L1; ","; Sum; "):"
|
|
180 IF Lmt >= 1 THEN PRINT L0;
|
|
190 IF Lmt >= 2 THEN PRINT L1;
|
|
200 FOR I = 3 TO Lmt
|
|
210 PRINT L0 + L1 + Sum;
|
|
220 LET Tmp = L0
|
|
230 LET L0 = L1
|
|
240 LET L1 = Tmp + L1 + Sum
|
|
250 NEXT I
|
|
260 PRINT
|
|
270 END SUB
|