Sylvester's sequence: Difference between revisions
Sylvester's sequence en PureBasic
(Sylvester's sequence en BASIC256) |
(Sylvester's sequence en PureBasic) |
||
Line 157:
Suma de sus recíprocos: 0.9999999999999999
</pre>
==={{header|PureBasic}}===
{{trans|FreeBASIC}}
<lang PureBasic>
OpenConsole()
PrintN("10 primeros términos de la sucesión de Sylvester:")
suma.d = 0
For i.i = 1 To 10
If i = 1
sylvester.d = 2
Else
sylvester.d = sylvester*sylvester-sylvester+1
EndIf
PrintN(Str(i) + ": " + StrD(sylvester))
suma = suma + 1 / sylvester
Next i
Print(#CRLF$ + "Suma de sus recíprocos: " + StrD(suma))
Input()
CloseConsole()
End
</lang>
=={{header|C++}}==
| |||