Как посчитать количество бит в байте? #449134

Есть число от 0 до 255. Соответственно влезает в один байт. Надо узнать сколько в нем выставлено битов. Мысли есть?

Есть число от 0 до 255. Соответственно влезает в один байт. Надо узнать сколько в нем выставлено битов. Мысли есть?

8???

8

преобразовать в двоичное и посчитать "1"?

По високосным и до 9 доходит.

Да нет. Есть определенное значение байта, надо узнать сколько бит для данного байта установлено.

ну эт редко

А как в двоичное преобразовать?

задай вопрос по-другому

где установлено?

телепатирую, что нужно посчитать количество одоек в строке типа "01100100"

Возьмем число 1. Это в двоичном представлении 1, т.е. выставлен один бит. Число 2 в двоичном представлении равно 10, тоже один бит выставленным получается.

функцией...

4 - 100 ...

сколько единичных (ненулевых) бит в нем?

У меня на входе Число на входе, а не строка

Угу

Понятно ) Но мне алгоритм интересен

Забыл сказать. Это должно работать быстро, т.к. такая функция будет вызываться очень много раз.

Блин, почему в 1С нету битовых операций? (

кури XOR  в Math Функция Расчет(Знач НачСумма,Сп)

Когда то на ВБ упаковывал 16 флажков в одно число. Все было настолько просто... помню, что в 7.7 такого функционала не было, в 8 тоже не нашли и забросили это дело. Упаковка через исключающее "или" и распаковка через "и" битовых операциях (или наоборот)

КонецФункции

Не вкурил. И как мне получить число битов для моего числа?

Мне не десятичное представление нужно, а количество единичек в числе

Не бинарное представление, хотел сказать

yahoo.eu

Уже вариант. Но кажется, что будет медленно, функция сто тыщ миллионов будет вызываться.

Хрень какая то. Бит это не только 1 но и 0. Всегда 8 бит.

8 раз дели на 2 и при этом считай сумму остатка от деления

В 1С есть оператор % который дает остаток (хвостик) от деления. Делить на два таким способом 8 раз и выводить на экран хвостик - получится двоичное число (начиная с младшей цифры). Тут можно и единицы посчитать, и само двоичное число получить.

Если нужно быстрее... Если числа только с 0 до 255, то запомни где-нибудь табличку соответствия Число-Кол-во 1.

Отлично! То что доктор прописал! Спасибо! )

То бишь у тебя получится таблица соответвия с колонками "Число" и "Количество единиц". Или еще лучше массив, где индекс элемента - это число, а значение массива - это кол-во единиц. Тогда тупо вызваешь Массив[15]:)

учи матчасть

Да, быстрее не придумаешь )

стопудов! а заполнять при начале работы с помощью

Открой военную тайну, зачем тебе это вообще надо?

мат=СоздатьОбъект("Математика"); Единиц=мат.bitand(арг,128)/128+мат.bitand(арг,64)/64+ мат.bitand(арг,32)/32+ мат.bitand(арг,16)/16+ мат.bitand(арг,8)/8+мат.bitand(арг,4)/4+мат.bitand(арг,2)/2+мат.bitand(арг,1);

Вот, писал для семерки. Как разложить в двоичный код:

Есть одна специфическая задачка...

которую конечно надо решить на 1Це

Ну, разные проблемы бывают. Приходится решать. В УПП вон системы линейных уравнений решают и ничего...

Блин, заинтриговал, раздраконил любопытство ...и свалил:)

СЛУ еще понять можно и то я бы само решение вынес бы во внешнюю компоненту. Мне понятно зачем решать СЛУ в УПП, зачем битовые операции в учетных задачах - непонятно

Тупо делить число на 128, остаток от деления на 64 и т.д. Результаты(целые, ес-но) сложить.

От одинэсники ушлые какие. В какой программе то? В бухгалтерии? На каком счету байты учитываете? Или к торговле партионный и складской учет байт налаживаешь?

например права хранятся в байте и при устаноке надо контролировать, что нельзя более 5 галок одновременно ставить... а вообще битовые операции в 1с - это нонсенс, так как в 1с НЕТУ битового типа, как и вообще числовового то-же нету (в нормальном понимании)

Контроль четности например

Для контроля четности достаточно контролировать один бит :-)

+1. Младший.

Или последнюю цифру числа.

жеееесть... У тебя права в 1С в "байте" хранятся? Че курил то?

ПОчему бы и нет? У меня правила миграции документа в двух байтах :-))

Контроль четности чего? Числа с 0 до 255? Тогда, если последнее число 0 или четное - тогда число четное. Только вот опять для чего?:) Еще и сто миллионов раз будет проверяться четность? Колитесь короче:)

Тоже занимался подсчетом еденичек в двоичном предсавлении байта?

"В отличие от" - я сначала думаю, а потом делаю... :-)

Ааааа, какой-то алгоритм связанный с шифровкой-дешифровкой... криптографией занимаемся в 1С?:)

Ну необязательно криптографией - может, контролем данных...

я где-то говорил про права 1с?????? я говорил просто про ПРАВА, которые могуб быть например переданы в ХП совершенно другой учетной системы (например интернет магазина). Я говорю, что ситуация возможна, но в рамках 1с абсурдна. зы всегда удивлялся как люди умеют искажать явно выраженое мнение...

у меня например есть такой код в моей программе

Да, лан, че ты завелся :-) Ну, давай, колись быстро, что ваяешь :-)))

хе

Уже нашли самый простой и самый быстрый вариант )

Сие тайна есть великая )

Тепло... )

Пример приведи

Ну а этим будешь инициализировать свою табличку.

Вариант в симпатичней.

Жесть

То, что доктор прописал )

Есть варианты быстрее?

И проще )))

На ассемблере

Поставьте плиз категорию "Юмор" ветке.

Эта реализация похоже для любых языков самая быстрая

Идея праильная ))) Только массив инициализируй перед вызовом своего криптоапи

+ в цикле

Массив при загрузке модуля будет инициализироваться

Т.е. ты всерьез будешь набивать 255 строк теста ? а если ошибешься где нить ?

сгенерировать в екселе и поставить в 1с

и не 255 строк, а 256 строк

И на "0" - тоже? :-)

1 - 1 бит в конце 2 - 2 бит разбивай число на составляющие.. >=128 - 8-й бит установлен число-128>=64 7-й бит установлен и т.д.

что это?

тормозной вариант, уже ведь обсудили.

Чило назови от 0 до 255

0

Самый быстрый будет вот этот вариант: .......   список имеет значения 128,64,32 .... Операции сравнения всегда работают быстрее арифметических

+ есть ошибка, но где-то в этом направлении

Один раз написать массив не проблема

, - это нерабочие варианты

ты проверь

Самым быстрым будет Если Арг=0 тогда 0 иначе БитВБайте[Арг]

Быстрее чем "Возврат БитыВБайте[Число]"? ;)