Предмет: Информатика,
автор: grigorievd2000
Дано натуральное число n получить наибольшее число вида 4^k меньшее n.
Нужна программа на Visual Basic
grigorievd2000:
Вот программа в паскале
uses crt;
var i,n,s: integer;
begin
write('Введите n: ');
read(n);
i:=1;
repeat
s:=4*i;
if s>=n then break;
if suntil s>=n;
write(4*(i-1));
end.
var i,n,s: integer;
begin
write('Введите n: ');
read(n);
i:=1;
repeat
s:=4*i;
if s>=n then break;
if suntil s>=n;
write(4*(i-1));
end.
Нужно перевести в VBA
Ответы
Автор ответа:
0
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
Похожие вопросы
Предмет: Литература,
автор: sm8459391
Предмет: Информатика,
автор: mdubinina20
Предмет: Математика,
автор: bnabiullin61
Предмет: Алгебра,
автор: Полька09
Предмет: Математика,
автор: даша2428