Дано выражение и нужно определить его значение с точностью до члена ряда - VB

Формулировка задачи:

Дано выражение и нужно определить его значение с точностью до члена ряда, меньшего невнятного чего-то. Всё подробно в теме Помогите пожалуйста. Нежели разбирать мои записи, проще посмотреть на фото:

Код к задаче: «Дано выражение и нужно определить его значение с точностью до члена ряда - 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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ