Вычислить сумму членов бесконечного ряда с точностью до члена ряда

@Evzen · Регистрация: 15.12.2012

Author24 — интернет-сервис помощи студентам

Вычислить сумму членов бесконечного ряда с точностью до члена ряда, меньшего заданного ξ для |z| ≤ 1
x=(z+2)^2/2! - (z+2)^3/3! + (z+2)^4/4! -...

Правильно ли объявлены переменные? и как будет выглядеть блок-схема программы?

Visual Basic

Sub eu()
Dim z As Single
Dim x As Integer
z = Cells(2, 2)
x = 0
ch = -(z + 2)
zn = 1
I = 2
   Do
   ch = ch * (z + 2) * (-1)
   zn = zn * I
   x = x + ch / zn
   I = I + 1
   Cells(I, 5) = ch
   Cells(I, 8) = zn
   Cells(I, 11) = ch / zn
   Cells(I, 14) = x
   Loop Until Abs(ch / zn) <= eps
End Sub

@~~Апострофф~~ · 27.12.2012, 10:46

1:

Visual Basic

1	Dim x As Single' а лучше Double

2: Не видно объявление eps

@Catstail · 27.12.2012, 11:10

А z - действительное или комплексное?

Добавлено через 55 секунд

Сообщение от Апострофф

eps

- у ТС использована дзета, а не эпсилон.

@Evzen · 27.12.2012, 12:50 **[ТС]**

z - действительное
а как лучше объявить эпсилон ?

@Catstail · 27.12.2012, 13:01

Visual Basic

Function eu(z as single, eps as single)
Dim x As Integer
z = Cells(2, 2)
x = 0
ch = -(z + 2)
zn = 1
I = 2
   Do
   ch = ch * (z + 2) * (-1)
   zn = zn * I
   x = x + ch / zn
   I = I + 1
   'Cells(I, 5) = ch
   'Cells(I, 8) = zn
   'Cells(I, 11) = ch / zn
   'Cells(I, 14) = x
   Loop Until Abs(ch / zn) <= eps
   eu=ch / zn
End Function

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,641 Записей в блоге: 13
	27.12.2012, 11:10	3
	А z - действительное или комплексное? Добавлено через 55 секунд Сообщение от Апострофф eps - у ТС использована дзета, а не эпсилон. 0

@Evzen 0 / 0 / 0 Регистрация: 15.12.2012 Сообщений: 9
	27.12.2012, 12:50 [ТС]	4
	z - действительное а как лучше объявить эпсилон ? 0

	27.12.2012, 13:01