18 lines
389 B
Plaintext
18 lines
389 B
Plaintext
10 ' SAVE"FIBONA", A
|
|
20 ' Secuencia de Fibonacci
|
|
30 ' Var
|
|
40 DEFDBL D
|
|
50 IMAXFIBO% = 76
|
|
60 DNUM1 = 1: DNUM2 = DNUM1
|
|
70 CLS
|
|
80 PRINT "Este programa calcula la serie de Fibonacci."
|
|
90 PRINT DNUM1; DNUM2;
|
|
100 FOR I% = 1 TO IMAXFIBO%
|
|
110 DNUM3 = DNUM1 + DNUM2
|
|
120 PRINT DNUM3;
|
|
130 DNUM1 = DNUM2: DNUM2 = DNUM3
|
|
140 NEXT I%
|
|
150 PRINT
|
|
160 PRINT "Fin de la ejecución del programa."
|
|
170 END
|