написать программу

[миша_кол]

ПРошу.напишите прогу!!!
COS(X) = 1 – X2 / 2! + X4 / 4! – X6 / 6! …
Итерации организовать до достижения значения очереднего члена ряда меньше 0.001.
нужно чтобы следующий факториал вычислялся на основе предыдущего

[Дмит]

Код: Выделить всё

Public Sub Cosinus()
Dim x As Single, dx As Single, sum As Single, i As Long, Pi As Single
    x = Application.InputBox("Введите Х", Type:=1)
    Pi = Application.WorksheetFunction.Pi
    Do While Abs(x) > 2 * Pi
        x = x - Sgn(x) * 2 * Pi
    Loop
    sum = 1: dx = 1: i = 1
    Do While Abs(dx) > 0.001
        dx = -1 * dx * x * x / i / (i + 1)
        sum = sum + dx
        i = i + 2
    Loop
    MsgBox sum & vbTab & Cos(x)
End Sub