20 lines
495 B
Plaintext
20 lines
495 B
Plaintext
10 ' SAVE"FIBINF", A
|
|
20 ' Secuencia de Fibonacci mediante la fórmula de Binet
|
|
30 ' Var
|
|
40 DEFDBL D
|
|
50 IMAXFIBO% = 77
|
|
60 DSQR5 = SQR(5)
|
|
70 DPIV1 = (1 + DSQR5) / 2
|
|
80 DPIV2 = (1 - DSQR5) / 2
|
|
90 DNUM1 = DPIV1: DNUM2 = DPIV2
|
|
100 CLS
|
|
110 PRINT "Este programa calcula la serie de Fibonacci."
|
|
120 FOR I% = 1 TO IMAXFIBO%
|
|
130 DNUM1 = DNUM1 * DPIV1
|
|
140 DNUM2 = DNUM2 * DPIV2
|
|
150 PRINT FIX(((DNUM1 - DNUM2) / DSQR5)+.5);
|
|
160 NEXT I%
|
|
170 PRINT
|
|
180 PRINT "Fin de la ejecución del programa."
|
|
190 END
|