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

Пример 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

Do

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

u = (-1) ^ n * x ^ (2 * n) / (2 * n)

z = z + u

n = n + 1

Loop While Abs(u) >= e

z = z + 1 'прибавляем к вычисленной сумме первый член ряда

MsgBox "Сумма ряда равна " & z, , "Решение задачи"