Question

VBA.Разработать макро функцию с одним параметром n, который рассчитываться по указному ниже выражению(n > = 1). В функции нельзя использовать оператор if
Составе пожалуйста код и если можно алгоритм ( блок-схему )

Answer 1

Function f(n As Integer) As Double
    Dim p As Double, i As Integer
    p = 2 / 3
    For i = 2 To n
        p = p * 2 * i / (2 * i + 1)
    Next i
    f = p
End Function