Дано выражение и нужно определить его значение с точностью до члена ряда - VB
Формулировка задачи:
Дано выражение и нужно определить его значение с точностью до члена ряда, меньшего невнятного чего-то. Всё подробно в теме
Помогите пожалуйста. Нежели разбирать мои записи, проще посмотреть на фото:
Решение задачи: «Дано выражение и нужно определить его значение с точностью до члена ряда»
textual
Листинг программы
Dim x!, y!, z!, i&, e!
x = Val(InputBox("x"))
e = Val(InputBox("e"))
y = 0: i = 1: z = x
Do While Abs(z) > e
z = (-1) ^ i * x ^ (2 * i - 1) / (2 * i - 1)
y = y - z
i = i + 1
DoEvents
Loop
MsgBox y