Question

Помогите пожалуйста составить программу (желательно для LibreOffice, но подойдет и для VBA) :
Нужно составить программу S = pi - tg(pi/2) + tg(pi/4) - tg(pi/6) + tg(pi/8) - ... Расчет производить до тех пор, пока слагаемое по абсолютной величине не станет меньше заданной точности Е. Подсчитать число слагаемых. Значение Е задать вводом.

Answer 1

Sub Iter()
    Dim s As Double, pi As Double, e As Double, a As Double
    Dim i As Long, znak As Integer, k As Long
    e = InputBox("введите значение eps")
    pi = 4 * Atn(1)
    s = pi
    i = 2
    znak = 1
    k = 0
    a = Tan(pi / (2 * i))
    Do While a >= e
        s = s + znak * a
        i = i + 1
        a = Tan(pi / (2 * i))
        znak = -znak
        k = k + 1
    Loop
    MsgBox "Сумма равна " + Str(s) + ", количество слагаемых " + Str(k)
End Sub