End Sub

Do

' Вычисляем значение текущего члена ряда

u = 1 / i ^ 2

s = s + u

i = i + 1

Loop Until Abs(u) < e

Pi = Sqr(s * 6)

MsgBox "Число Пи равно " & Pi & ", число итераций равно " & i - 1, , "Решение задачи"

Пример 21. Составить программу вычисления суммы бесконечного ряда

,

при x<1 с точностью до члена ряда, меньшего заданной точности e<<1.

Sub Demo_summa_ryada()

DimnAs Integer 'счетчик

Dim x As Single 'аргумент

Dim z As Double 'сумма

Dim u As Double 'член ряда

Dim e As Double 'точность вычислений

x = InputBox("Введите х < 1 - ", "Запрос аргумента ряда")

e = InputBox("Введите погрешность E<<1 -", "Запрос точности вычисления")

z = 0

n = 1