Sum of a series: Difference between revisions
Sum of a series en True BASIC
(Sum of a series en BASIC256) |
(Sum of a series en True BASIC) |
||
Line 308:
NEXT
PRINT sum</lang>
==={{header|True BASIC}}===
{{works with|BASIC256}}
<lang qbasic>
FUNCTION sumSeries(n)
IF n = 0 then
LET sumSeries = 0
END IF
LET sum = 0
FOR k = 1 to n
LET sum = sum + 1 / k ^ 2
NEXT k
LET sumSeries = sum
END FUNCTION
PRINT "s(1000) = "; sumSeries(1000)
PRINT "zeta(2) = "; pi * pi / 6
END
</lang>
=={{header|bc}}==
| |||