25 lines
411 B
ObjectPascal
25 lines
411 B
ObjectPascal
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;
|