Question

Дано натуральное число n получить наибольшее число вида 4^k меньшее n.
Нужна программа на Visual Basic

Answer 1

Function fixlog(n As Integer) As Integer

Dim l As Double, i, j, k As Integer

l = log(n) / log(4#)

i = l - Fix(l)

j = Sgn(Fix(l) - l) + 1

k = Fix(l - i) - j

fixlog = 4^ ^ k

End Function

Excel VBA