|
|
|
| А как записать в коде
Корень_квадратный (12)
Sqr(12) | |
|
| |
|
|
|
|
|
| На заметку...
Корень любой степени:
Function SqrN(anyValue As Variant, n As Double) As Double
'Вычисляет корень n степени для значения anyValue
'anyValue должно быть больше 0, иначе функция возвращает 0.
If Not IsNumeric(anyValue) Then
SqrN = 0
Exit Function
End If
If anyValue <= 0 Then
SqrN = 0
Exit Function
End If
SqrN = Exp(1 / n * Log(CDec(anyValue)))
End Function
|
| |
|
| |
|
|