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()

Dim n As 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

Дата добавления: 2014-01-04