Sylvester's sequence: Difference between revisions
Content added Content deleted
m (added whitespace, split related tasks from "See also:".) |
(Sylvester's sequence en FreeBASIC) |
||
Line 97: | Line 97: | ||
Sum of the reciprocals of the first 10 items: |
Sum of the reciprocals of the first 10 items: |
||
1.0</pre> |
1.0</pre> |
||
=={{header|BASIC}}== |
|||
==={{header|FreeBASIC}}=== |
|||
'''precisión estándar''' |
|||
<lang freebasic> |
|||
Dim As Double sylvester, suma = 0 |
|||
Print "10 primeros t‚rminos de la sucesi¢n de Sylvester:" |
|||
For i As Byte = 1 To 10 |
|||
sylvester = Iif(i=1, 2, sylvester*sylvester-sylvester+1) |
|||
Print Using "##: &"; i; sylvester |
|||
suma += 1 / sylvester |
|||
Next i |
|||
Print !"\nSuma de sus rec¡procos:"; suma |
|||
Sleep |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
10 primeros términos de la sucesión de Sylvester: |
|||
1: 2 |
|||
2: 3 |
|||
3: 7 |
|||
4: 43 |
|||
5: 1807 |
|||
6: 3263443 |
|||
7: 10650056950807 |
|||
8: 1.134237130554218E+26 |
|||
9: 1.286493868327867E+52 |
|||
10: 1.6550664732452E+104 |
|||
Suma de sus recíprocos: 0.9999999999999999 |
|||
</pre> |
|||
=={{header|C++}}== |
=={{header|C++}}== |