Data commit

Task/Jensens-Device/Seed7/jensens-device.seed7

@@ -0,0 +1,19 @@
+$ 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;