Jensen's Device: Difference between revisions
m
Fix pascal version to run in delphi
(Add Rust implementation) |
MaiconSoft (talk | contribs) m (Fix pascal version to run in delphi) |
||
Line 1,137:
=={{header|Pascal}}==
<lang pascal>
{$IFDEF FPC}
{$MODE objFPC}
{$ENDIF}
type
tTerm = function(i: integer): real;
function term(i: integer): real;
begin
term := 1 / i;
end;
function sum(var i: LongInt; lo, hi: integer; term: tTerm): real;
begin
result := 0;
i := lo;
while i <= hi do
begin
result := result + term(i);
inc(i);
end;
var
i
begin
writeln(sum(i, 1, 100, @term));
{$IFNDEF UNIX} readln; {$ENDIF}
end.</lang>
Out
<pre> 5.1873775176396206E+000</pre>
| |||