Помогите пожалуйста. Может кто сталкивался?
Нужно из целого числа выделить флаги.
Суть процедуры, надо разложить число на биты и потом смотреть в каком бите 1, это означает что у прибора есть что-то ... что определим потом в
Если тогда ...
Нужно что то вроде ... подсовываешь число в функцию, а она тебе возвращает массив битов.

(0) А 1С умеет работать с битами?

ч%2 - первый бит, (ч-(ч%2))%4 - второй бит

(0) v8: Как преобразовать десятичное число в двоичное в 1С ?
В гугле забанили?

Олеся999, тебе бы не 1С программировать с такой то внешностью... :-*

(2) ((ч-(ч%2))%4)/2. ну плюс-минус

(3) Хах да уж )

Там суть функции, сравниваем со степенью 2, если число больше, то вычитаем и т.д. пока не станет 0.
Суть что надо начинать вычитать с большей возможной степени 2
и потом проверять хватает остатка на след. меньшую на 1 степень, если нет ещё уменьшаем степень ...

(6) сама всё знаешь

Что такая девушка делает в 1С ? Да ещё и пробует судя по всему работать с оборудованием. Вам эту задачу для чего нужно - то ? всё оборудование работает через драйвера. Надо просто поработать с драйвером.

(8) бородатого мужика охмуряет

(9) "у прибора есть что-то " - что за прибор - то такой ?

(8)
По этому числу надо определять какие входы у прибора.

(9) зачем меня в суе вспоминать, бородатый и вроде муж :)

2 в стенени 0 = 1
2 в стенени 1 = 2
2 в стенени 2 = 4

3начит если  число 5, то это
2 в стенени 0 = 1 и (прибавить)
2 в стенени 2 = 4
т.е. первый бит и третий

примерно так:

мЧисло = ТвоеЧисло % 256;

Бит8 = (мЧисло - (мЧисло % 128)) > 0
мЧисло = мЧисло % 128;

Бит7 = (мЧисло - (мЧисло % 64)) > 0
мЧисло = мЧисло % 64;

Бит6 = (мЧисло - (мЧисло % 32)) > 0
мЧисло = мЧисло % 32;

во, больше нуля ;)

Что-то в этом роде

Функция Выделить_флаги(ЦелоеЧисло)
    Если ЦелоеЧисло = 0 Тогда
        Мас = Новый Массив;
        Возврат Мас;
    Иначе
        Мас = Выделить_флаги(Цел(ЦелоеЧисло / 2));
        Мас.Добавить(ЦелоеЧисло % 2);
        Возврат Мас;
    КонецЕсли;
КонецФункции

Процедура КнопкаВыполнитьНажатие(Кнопка)
    ЦелоеЧисло = 324578723845;
    Мас = Выделить_флаги(ЦелоеЧисло);
    с = "";
    Для каждого ф Из Мас Цикл
        с = с + ф;
    КонецЦикла;
    Сообщить(ЦелоеЧисло);
    Сообщить(с);
КонецПроцедуры




324 578 723 845
100101110010010011001100100100000000101


Если биты нужны в обратном порядке, то вместо добавить в массив можно сделать вставить.

(17) Спасибо сейчас потестю

(17) Массив то зачем в функции? Сразу в символы в строку и постобработка лишняя.

(19) массив просили

(4) В Казахстане то среди казахов?

(20) Sorry, был не прав :)

Функция ДвоичноеЧисло(Х)
    Возврат ?(Х<2,""+Х,ДвоичноеЧисло(Цел(Х/2))+?(Х%2,"1","0"));
КонецФункции

Процедура КнопкаВыполнитьНажатие(Кнопка)
    Сообщить(ДвоичноеЧисло(324578723845));
    Возврат;
КонецПроцедуры