Выполнить в excel. Даны натуральное число n и действительное число x. Вычислить: S =...

Question

Выполнить в excel.
Даны натуральное число n и действительное число x. Вычислить:
S = cosx+coscosx+....+coscos...cosx.

Comments

Макрос. coscosx - это cos(cos(x)).

Answer 1

Sub aaa()
    n = CInt(InputBox("n="))
    x = CDbl(InputBox("x="))
    sx = Cos(x)
    s = sx
    For i = 2 To n
        sx = Cos(sx)
        s = s + sx
    Next i
    MsgBox s
End Sub