Sylvester's sequence: Difference between revisions
Content added Content deleted
(Sylvester's sequence en Yabasic) |
(Sylvester's sequence en Verilog) |
||
Line 819: | Line 819: | ||
0.99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999996349359079841301329356 |
0.99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999996349359079841301329356 |
||
</pre> |
</pre> |
||
=={{header|Verilog}}== |
|||
<lang Verilog> |
|||
module main; |
|||
integer i; |
|||
real suma, num; |
|||
initial begin |
|||
$display("10 primeros términos de la sucesión de sylvester:"); |
|||
$display(""); |
|||
suma = 0; |
|||
num = 0; |
|||
for(i=1; i<=10; i=i+1) begin |
|||
if (i==1) num = 2; |
|||
else num = num * num - num + 1; |
|||
$display(i, ": ", num); |
|||
suma = suma + 1 / num; |
|||
end |
|||
$display(""); |
|||
$display("suma de sus recíprocos: ", suma); |
|||
$finish ; |
|||
end |
|||
endmodule |
|||
</lang> |
|||
{{out}} |
|||
<pre>10 primeros términos de la sucesión de sylvester: |
|||
1: 2.00000 |
|||
2: 3.00000 |
|||
3: 7.00000 |
|||
4: 43.0000 |
|||
5: 1807.00 |
|||
6: 3.26344e+06 |
|||
7: 1.06501e+13 |
|||
8: 1.13424e+26 |
|||
9: 1.28649e+52 |
|||
10: 1.65507e+104 |
|||
suma de sus recíprocos: 1.00000</pre> |
|||
=={{header|Wren}}== |
=={{header|Wren}}== |