Sum of a series: Difference between revisions

==={{header|Gambas}}===

<syntaxhighlight lang="vbnet">Public Sub Main()

Print "s(1000) = "; sumSeries(1000)

Print "zeta(2) = "; Pi * Pi / 6

End

Function sumSeries(n As Integer) As Float

If n = 0 Then Return 0

Dim sum As Float = 0

For k As Integer = 1 To n

sum += 1.0 / (k * k)

Next

Return sum

End Function</syntaxhighlight>

==={{header|QBasic}}===

{{works with|QBasic|1.1}}

{{works with|QuickBasic|4.5}}

<syntaxhighlight lang="qbasic">FUNCTION sumSeries# (n)

IF n = 0 THEN sunSeries = 0

FOR k = 1 TO n

sum# = sum# + 1! / (k * k)

NEXT

sumSeries# = sum#

END FUNCTION

pi# = 4 * ATN(1)

PRINT "s(1000) = "; sumSeries#(1000)

PRINT "zeta(2) = "; pi# * pi# / 6

END</syntaxhighlight>

==={{header|XBasic}}===

{{works with|Windows XBasic}}

<syntaxhighlight lang="qbasic">PROGRAM "SumOfASeries"

VERSION "0.0000"

DECLARE FUNCTION Entry ()

DECLARE FUNCTION sumSeries#(n)

FUNCTION Entry ()

pi# = 3.1415926535896

PRINT "s(1000) = "; sumSeries#(1000)

PRINT "zeta(2) = "; pi# * pi# / 6

END FUNCTION

FUNCTION sumSeries#(n)

IF n = 0 THEN RETURN 0

sum# = 0

FOR k = 1 TO n

sum# = sum# + 1.0/(k * k)

NEXT

RETURN sum#

END FUNCTION

END PROGRAM</syntaxhighlight>