Найти сумму ряда с заданной точностью - VB (61533)

Формулировка задачи:

Помогите, пожалуйста, составить программку на Visual Basic. Надо найти сумму ряда с заданной точностью

Решение задачи: «Найти сумму ряда с заданной точностью»

textual
                            Листинг программы 
                        

                            Function SumSeq(eps as double) As Double
      S#=0
      n#=1
      Do 
          a#=(n#+1)/(n#^2)
          S#=S#+a#
          If (a# < eps) then exit do
          n#=n#+1
      Loop
      SumSeq=S#
End Function
                        

Оцени полезность:

6 голосов , оценка 3.5 из 5

Похожие ответы