Найти сумму ряда с заданной точностью - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
