langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Jensens-Device/PureBasic/jensens-device.purebasic
+++ b/Task/Jensens-Device/PureBasic/jensens-device.purebasic
@ -0,0 +1,17 @@
+Prototype.d func()
+
+Global i
+
+Procedure.d Sum(*i.Integer, lo, hi, *term.func)
+  Protected Temp.d
+  For i=lo To hi
+    temp + *term()
+  Next
+  ProcedureReturn Temp
+EndProcedure
+
+Procedure.d term_func()
+  ProcedureReturn 1/i
+EndProcedure
+
+Answer.d = Sum(@i, 1, 100, @term_func())