Harmonic series: Difference between revisions
Added XPL0 example.
(Harmonic series en Verilog) |
(Added XPL0 example.) |
||
Line 1,892:
integer = 9 -> n = 4,550 -> harmonic number = 9.000208 (to 6dp)
integer = 10 -> n = 12,367 -> harmonic number = 10.000043 (to 6dp)
</pre>
=={{header|XPL0}}==
<lang XPL0>func real Harmonic(N); \Return Nth harmonic number
int N; real X;
[X:= 1.0;
while N >= 2 do
[X:= X + 1.0/float(N); N:= N-1];
return X;
];
int N, M;
[for N:= 1 to 20 do
[RlOut(0, Harmonic(N));
if rem(N/5) = 0 then CrLf(0);
];
for M:= 1 to 10 do
[N:= 1;
repeat N:= N+1 until Harmonic(N) > float(M);
IntOut(0, M);
Text(0, ": ");
IntOut(0, N);
CrLf(0);
];
]</lang>
{{out}}
<pre>
1.00000 1.50000 1.83333 2.08333 2.28333
2.45000 2.59286 2.71786 2.82897 2.92897
3.01988 3.10321 3.18013 3.25156 3.31823
3.38073 3.43955 3.49511 3.54774 3.59774
1: 2
2: 4
3: 11
4: 31
5: 83
6: 227
7: 616
8: 1674
9: 4550
10: 12367
</pre>
| |||