Developing.ru

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

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