Jensen's Device: Difference between revisions
no edit summary
(→Haskell: Use `do` instead of operators, so it's not _completely_ inaccessible for outsiders) |
No edit summary |
||
Line 651:
NUMBER 5.1873775176
</pre>
=={{header|Delphi}}==
{{works with|Delphi|6.0}}
{{libheader|SysUtils,StdCtrls}}
<syntaxhighlight lang="Delphi">
type TTerm = function(i: integer): real;
function Term(I: integer): double;
begin
Term := 1 / I;
end;
function Sum(var I: integer; Lo, Hi: integer; Term: TTerm): double;
begin
Result := 0;
I := Lo;
while I <= Hi do
begin
Result := Result + Term(I);
Inc(I);
end;
end;
procedure ShowJensenDevice(Memo: TMemo);
var I: LongInt;
begin
Memo.Lines.Add(FloatToStrF(Sum(I, 1, 100, @Term), ffFixed,18,15));
end;
</syntaxhighlight>
{{out}}
<pre>
5.187377517639621
Elapsed Time: 1.037 ms.
</pre>
=={{header|F_Sharp|F#}}==
| |||