Циклы с неизвестным количеством повторений.

@программист · Регистрация: 03.12.2009

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

Помогите, пожалуйста, очень нужно решить задачу.
Даны действительные числа x,E(0<x<=1, E>0) . Вычислить с точностью E:
Сумма от k=0 до бесконечности
(-1)^k*x^(4k+1)/(2k)!*(4k+1)
Считать, что требуемая точность достигнута, если очередное слагаемое оказалось по модулю меньше, чем E, - это и все последующие слагаемые можно уже не учитывать.

@Toxa33rus · 19.03.2010, 00:09

Найти сумму ряда с заданной точностью
Найти сумму числового ряда через Do Loop

@YuraAAA · 19.03.2010, 00:24

Visual Basic

Private Sub Command1_Click()
Dim x As Single, E As Single, y As Single, ySum As Single
Dim k
x = Text1
E = Text2
If E <= 0 Or x > 1 Or x <= 0 Then
MsgBox ("Ïîâòîðèòå ââîä!")
Exit Sub
End If
y = (-1) ^ 0 * x ^ (4 * 0 + 1) / fact(2 * 0) * (4 * k + 1)
Do While Abs(y) >= E
y = (-1) ^ 0 * x ^ (4 * 0 + 1) / fact(2 * 0) * (4 * k + 1)
ySum = ySum + y
k = k + 1
Loop
MsgBox ySum & " " & y
End Sub
 
Private Function fact(c As Single) As Single
If c < 1 Then
fact = 1
Else
fact = c * fact(c - 1)
End If

End Function

@программист 1 / 1 / 0 Регистрация: 03.12.2009 Сообщений: 28
		1
	Циклы с неизвестным количеством повторений. 18.03.2010, 23:19. Показов 1418. Ответов 2 Метки нет (Все метки) Помогите, пожалуйста, очень нужно решить задачу. Даны действительные числа x,E(0<x<=1, E>0) . Вычислить с точностью E: Сумма от k=0 до бесконечности (-1)^kx^(4k+1)/(2k)!(4k+1) Считать, что требуемая точность достигнута, если очередное слагаемое оказалось по модулю меньше, чем E, - это и все последующие слагаемые можно уже не учитывать. 0

@Toxa33rus 3896 / 899 / 122 Регистрация: 16.04.2009 Сообщений: 1,825
	19.03.2010, 00:09	2
	Найти сумму ряда с заданной точностью Найти сумму числового ряда через Do Loop 1

	19.03.2010, 00:24