15 lines
311 B
Plaintext
15 lines
311 B
Plaintext
DIM F(80) AS DOUBLE 'FibRus.bas DANILIN
|
|
F(1) = 0: F(2) = 1
|
|
'OPEN "FibRus.txt" FOR OUTPUT AS #1
|
|
FOR i = 3 TO 80
|
|
F(i) = F(i-1)+F(i-2)
|
|
NEXT i
|
|
|
|
FOR i = 1 TO 80
|
|
f$ = STR$(F(i)): LF = 22 - LEN(f$)
|
|
n$ = ""
|
|
FOR j = 1 TO LF: n$ = " " + n$: NEXT
|
|
f$ = n$ + f$
|
|
PRINT i, f$: ' PRINT #1, i, f$
|
|
NEXT i
|