Нифонт
5 год назад
VBA.Разработать макро функцию с одним параметром n, который рассчитываться по указному ниже выражению(n > = 1). В функции нельзя использовать оператор if
Составе пожалуйста код и если можно алгоритм ( блок-схему )
ОТВЕТЫ
Biel
Aug 9, 2019
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
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
279
