1. Информатика
  2. Дано натуральное число n получить

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

sasha322322 sasha322322    3   22.05.2019 16:45    6

Ответы
dogs91 dogs91  18.06.2020 07:29

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
naaaaaayli naaaaaayli  08.07.2021 19:35
ДЗ, со строками. garden = В нашем саду растут 20 яблонь и 15 груш. 1. Поменять местами яблонь и груш , используя split и join. 2. В переменную мы получаем наше предложение garden....
НастЮхАforever НастЮхАforever  09.06.2019 00:50
При работе с электронной таблицей в ячейке a1 записана формула = d1-$d2. какой вид приобретет формула, после того как ячейку a1 скопируют в ячейку b1?...
Anna128376373 Anna128376373  09.06.2019 00:50
Записать в элемент массива [4,6] значение произведения индексов...
igoryk2002 igoryk2002  09.06.2019 00:50
Составить блок-схему и написать на vba процедуру ввода с клавиатуры 10 целых чисел и нахождения среднего арифметического этих чисел....
Anna06111 Anna06111  09.06.2019 00:50
Составить блок-схему и написать на vba процедуру распечатки на рабочем листе слова, вводимого с клавиатуры, и его «пиратского шифра»: в слово после каждой пары букв вставляется...
anna16191 anna16191  12.08.2019 19:10
Перечислите не менее пяти известных вам устройств внешней памяти мне что такое винчестер,стриммер...
netznanie netznanie  12.08.2019 19:10
Определите значение переменной z после выполнения следующего фрагмента программы: x: =23; у: =12; у: =3*х-4*у; if x y then : =3*х+у else z: =2+х*у;...
KarinochkaShiну KarinochkaShiну  20.05.2019 09:30
Графический редактор - 1.устройство для создания и редактирования рисунков 2.программа для создания и редактирования текстовых документов 3.устройство для печати рисунков на бумаге...
serega1808s serega1808s  20.05.2019 09:30
Склавиатуры вводятся 3 числа. найти количество и сумму четных чисел среди них. если среди введенных четных нет, то вывести соответствующее сообщение....
jokerlytvinenkо jokerlytvinenkо  20.05.2019 09:30
Мне придумать талисман для тц ярморка он должен быть оригинальным нужно )...

Популярные вопросы