Условный цикл

[Vovan1111]

Вычислить значение у. Подсчет вести до тех пор, пока очередной член ряда по модулю < e. Значение x, e задавать с клавиатуры


y=-x+(x^3/3^3)-(x^5/5^5)+(x^7/7^7)-...


не получается прописать
помогите...

[EducatedFool]

не получается прописать

что конкретно не получается?

хоть что-нибудь да получилось?
хоть названием макроса написать самостоятельно можете?

[doober]

Возможно это поможет

[shanemac51]

Sub m101229_2016()  ''shanemac 
'y=-x+(x^3/3^3)-(x^5/5^5)+(x^7/7^7)-...
Dim x, x1, x2, y, n, m, e
'''''''''''''''''''''заменить на inputbox'''
x = CDbl(2)
x2 = 2 * x

e = 0.005

''''''''''''''''''''''''
y = -x
'''''''''''''''''''
n = 1  '''степень
m = 1  '''перемена знака
'''''''''''''''''''''''''
Do While n < 1000    '''выход, если ряд не сходится
n = n + 2

x1 = m * (x ^ n) / (n ^ n)
y = y + x1
Debug.Print n, x, Format(x2 - x1, "0.000000"), x1, y
If Abs(x2 - x1) < e Then
Exit Do
End If
x2 = x1

m = m * (-1)
Loop
результат
'' 3             2            3,703704       0,296296296296296          -1,7037037037037
'' 5             2            0,306536      -0,01024                    -1,7139437037037
'' 7             2            -0,010395      1,55426006899458E-04       -1,7137882776968
'' 9             2            0,000157      -1,32156149335716E-06       -1,7137895992583

End Sub

[Vovan1111]

Спасибо большое!
разобрался

[IgorGO]

или формулой:

=СУММ((х/СТРОКА(ДВССЫЛ("1:" & н)))^СТРОКА(ДВССЫЛ("1:" & н))*(ОСТАТ(СТРОКА(ДВССЫЛ("1:" & н));2)=1))

где
х - ячейка с значением х
н - номер максимального элемента ряда, который больше заданной точности е, определяется формулой

=МАКС((((Лист1!B1/СТРОКА(ДВССЫЛ("1:" & ЦЕЛОЕ(х+3*ABS(LOG10(е))))))^СТРОКА(ДВССЫЛ("1:" & ЦЕЛОЕ(х+3*ABS(LOG10(е))))))>е)*СТРОКА(ДВССЫЛ("1:" & ЦЕЛОЕ(х+3*ABS(LOG10(е))))))

где
е - ячейка задающая точностью вычисления ряда

обе формулы массива.