Вычислить сумму членов бесконечного ряда с точностью до члена ряда, меньшего заданного ξ для |z| ≤ 1

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

x=(z+2)^2/2! - (z+2)^3/3! - (z+2)^4/4!

@sco43 · 16.12.2012, 00:01

Visual Basic

Private Sub CommandButton8_Click()
Dim x!, z!, e!, r!, i!, f!, j!
z = InputBox("z")
If Abs(z) > 1 Then Exit Sub
e = InputBox("e")
r = (z + 2) ^ 2 / 2
x = x + r
i = 2
Do While r > e
 i = i + 1
 f = 1
 For j = 2 To i
  f = f * j
 Next j
 r = (z + 2) ^ i / f
 x = x - r
 Cells(i, 1) = r
 Cells(i, 2) = x
 DoEvents
Loop
MsgBox "x = " & x
 
End Sub

@Evzen 0 / 0 / 0 Регистрация: 15.12.2012 Сообщений: 9
		1
	Вычислить сумму членов бесконечного ряда с точностью до члена ряда, меньшего заданного ξ для \|z\| ≤ 1 15.12.2012, 22:11. Показов 3705. Ответов 1 Метки нет (Все метки) x=(z+2)^2/2! - (z+2)^3/3! - (z+2)^4/4! __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы