19 lines
390 B
Text
19 lines
390 B
Text
$ include "seed7_05.s7i";
|
|
include "float.s7i";
|
|
|
|
var integer: i is 0;
|
|
|
|
const func float: sum (inout integer: i, in integer: lo, in integer: hi,
|
|
ref func float: term) is func
|
|
result
|
|
var float: sum is 0.0
|
|
begin
|
|
for i range lo to hi do
|
|
sum +:= term;
|
|
end for;
|
|
end func;
|
|
|
|
const proc: main is func
|
|
begin
|
|
writeln(sum(i, 1, 100, 1.0/flt(i)) digits 6);
|
|
end func;
|