Sylvester's sequence: Difference between revisions
Sylvester's sequence en BASIC256
(Sylvester's sequence en FreeBASIC) |
(Sylvester's sequence en BASIC256) |
||
Line 100:
=={{header|BASIC}}==
==={{header|BASIC256}}===
{{works with|True BASIC}}
{{works with|Chipmunk Basic}}
{{trans|FreeBASIC}}
<lang qbasic>
PRINT "10 primeros términos de la sucesión de sylvester:"
PRINT
LET suma = 0
FOR i = 1 to 10
IF i = 1 then
LET sylvester = 2
ELSE
LET sylvester = sylvester*sylvester-sylvester+1
END IF
PRINT i; ": "; sylvester
LET suma = suma + 1 / sylvester
NEXT i
PRINT
PRINT "suma de sus recíprocos: "; suma
END
</lang>
==={{header|FreeBASIC}}===
'''precisión estándar'''
|