17 lines
435 B
Text
17 lines
435 B
Text
10 REM Leonardo numbers
|
|
20 LIMIT = 25
|
|
30 L0 = 1: L1 = 1: SUMA = 1
|
|
40 PRINT "Numeros de Leonardo (";L0;",";L1;",";SUMA;"):"
|
|
50 GOSUB 100
|
|
60 L0 = 0: L1 = 1: SUMA = 0
|
|
70 PRINT "Numeros de Fibonacci (";L0;",";L1;",";SUMA;"):"
|
|
80 GOSUB 100
|
|
90 END
|
|
100 IF LIMIT >= 1 THEN PRINT L0;
|
|
110 IF LIMIT >= 2 THEN PRINT L1;
|
|
120 FOR I = 3 TO LIMIT
|
|
130 PRINT L0 + L1 + SUMA;
|
|
140 TMP = L0: L0 = L1: L1 = TMP + L1 + SUMA
|
|
150 NEXT I
|
|
160 PRINT
|
|
170 RETURN
|