Jensen's Device: Difference between revisions

=={{header|Nimrod}}==

<lang nimrod>var i: int

proc harmonicSum(i: var int, lo, hi, term): float =

i = lo

while i <= hi:

result += term()

inc i

echo harmonicSum(i, 1, 100, proc: float = 1.0 / float(i))</lang>

Output:

<pre>5.1873775176396206e+00</pre>