Sum of a series: Difference between revisions
Sum of a series en BASIC256
(Added Dyalect) |
(Sum of a series en BASIC256) |
||
Line 286:
print sum(1, 1000)</lang>
==={{header|
{{works with|True BASIC}}
<lang BASIC256>
function sumSeries(n)
if n = 0 then sumSeries = 0
let sum = 0
for k = 1 to n
let sum = sum + 1 / k ^ 2
next k
sumSeries = sum
end function
print "s(1000) = "; sumSeries(1000)
print "zeta(2) = "; pi * pi / 6
end
</lang>
==={{header|BBC BASIC}}===
<lang bbcbasic> FOR i% = 1 TO 1000
sum += 1/i%^2
| |||