Например как из 32 получить 00100000 ?

позор

(1) +1

8 класс, основы информатики

(0) зачем?

(1) а еще человек программистом работает

(3)У нас не было еще информатики

в 1С это не возможно.

(8) +100500))))

+(9) она не справится с такой нагрузкой

Ликбез
wiki:Двоичная_система_счисления

(0)вы спрашиваете есть ли функция которая это делает или какой использовать алгоритм?

(12)Да, я знаю что такое двоичная система.

(13) близица пятницо

(13) внимательнее читай.

(12) + (13) Мрак :)))

(0) Перевести отрицательное число в двоичную систему исчисления

Функция ПреобразоватьДесятичноеВДвоичноеДробное(Значение)
   ЗаданнаяТочность=0.01;
   ЦелаяЧасть=Цел(Значение);
   ДробнаяЧасть=Значение-ЦелаяЧасть;
   Частное=ЦелаяЧасть;
   СтруктураВозврата=Новый Структура;
   Результат=Новый Массив;
   Пока Частное>0 Цикл
       Остаток=Частное%2;
       Частное=(Частное-Остаток)/2;
       Результат.Вставить(0,Остаток);
   КонецЦикла;
   СтруктураВозврата.Вставить("ЦелаяЧасть",Результат);
   Результат=Новый Массив;
   
   Пока ДробнаяЧасть>ЗаданнаяТочность Цикл
       ДробнаяЧасть=ДробнаяЧасть*2;
       ЦелаяЧасть=Цел(ДробнаяЧасть);
       ДробнаяЧасть=ДробнаяЧасть-ЦелаяЧасть;
       Результат.Добавить(ЦелаяЧасть);
   КонецЦикла;
   СтруктураВозврата.Вставить("ДробнаяЧасть",Результат);

   Возврат СтруктураВозврата;
КонецФункции

(17) Там лишний инвертор, полагаю

функция ДвоичноеПредставление(знач Ч) экспорт
перем Рез;
Рез="";
пока Ч>0 цикл
 Рез=Строка(Ч%2)+Рез;
 Ч=Цел(Ч/2);
конеццикла;
возврат "0"+Рез;
конецфункции


ИсхЧисло = 255;
ДвоичныйКод = "";
Пока 1=1 Цикл
   Если ИсхЧисло/2 < 1 Тогда
       ДвоичныйКод = "1" + ДвоичныйКод;
       Прервать;
   КонецЕсли;
   ДвоичныйКод = ?(Окр(ИсхЧисло/2)=ИсхЧисло/2, "0", "1") + ДвоичныйКод;
   ИсхЧисло = Цел(ИсхЧисло/2);
КонецЦикла;

Сообщить(ДвоичныйКод);

т.е. форматом, или чем либо другим кроме цикла не получится, спасибо.

(21) типа оправдался))

о я тоже хочу )

ДвоичныйКод    = "";
Результат      = Цел(ИсходноеЧисло)/2;
ОстатокДеления = ИсходноеЧисло%2;
ДвоичныйКод    = "" + ОстатокДеления;

Пока Результат <> 1 Цикл
    ЦелРезультат   = Цел(Результат/2);
    ОстатокДеления = Результат%2;  
    ДвоичныйКод    = ДвоичныйКод + ОстатокДеления;
    Результат      = ЦелРезультат;
КонецЦикла;

ДвоичныйКод = Число("1" + ДвоичныйКод);


(23) о, епт, я про использование % забыл как-то, точняк!!

+(23) эх, если исходное 0 не учел.

Только у тебя косяк, надо слева добавлять

(22)Я когда то работал с ассемблером и для меня системы счисления не новость, просто я подумал что можно как то без циклов обойтись.

(26) ась? Именно справа. Чтобы потом справа налево не читать.
Только вначале всего этого добавить контрольку на 0 и все.
(27) забей - это миста. Обычай здесь такой.

ИсхЧисло = 32;
ДвоичныйКод = "";
Пока ИсхЧисло>1 Цикл
   ДвоичныйКод = Строка(ИсхЧисло%2) + ДвоичныйКод;
   ИсхЧисло = Цел(ИсхЧисло/2);
КонецЦикла;
ДвоичныйКод = "1" + ДвоичныйКод;
Сообщить(ДвоичныйКод);

(27)скажи какая команда ассемблера преобразует данные в двоичный, восмеричный и т.д. ... формат

а, ну и да, для нуля не учел))

(30)Где ты видел в ассемблере такие команды ?
B дв. D дес. H шест.

(30) bcd, aaX etc


ХТМЛ=Новый COMОбъект("htmlfile");
ХТМЛ.Write("<script>ВДвоичное=function(x){return x.toString(2)}</script>");
Это=ХТМЛ.documentElement.document.script;
Сообщить(Это.ВДвоичное(234234));


(33) правдо ?

(28) а не - туплю наверное с право и лево то)

(35) Я гарантирую это. Инфа 100%.

(32)читая твой (27)можно сделать такой вывод ... ведь как-то ты там без циклов обходился

Давай те теперь я скажу для чего мне это нужно, может что попроще придумаем, есть 10 строк таблицы и надо сосчитать сумму у этих строк, т.е. Таб.Получить(N) как бы возвращает число.
Сумма1 = Таб.Получить(1);
Сумма2 = Таб.Получить(2);
Сумма3 = Таб.Получить(2) + Таб.Получить(1);
Сумма4 = Таб.Получить(3);
Сумма5 = Таб.Получить(3) + Таб.Получить(1);
Сумма6 = Таб.Получить(3) + Таб.Получить(2);
Сумма7 = Таб.Получить(3) + Таб.Получить(2) + Таб.Получить(1);
и т.д.

(38)Mov A,1001B
Mov A,09H
Mov A,9

(39) Держите меня семеро...
"Таб.Итог" не рассматривался?

(39) ппц. Что за 10 строк? Как расположены в таблице?

(41) не - ты чо без другой системы счисления здесь никак не обойтись!

(8) Убило :) Надо запомнить этот универсальный ответ на все хотелки, когда лень что - либо делать :)

(39) интересно. А что за задача то такая?

Допустим так:
Таб(1) = 10;
Таб(2) = 20;
Таб(3) = 30;
Таб(4) = 40;
Таб(5) = 50;
Таб(6) = 60;
Таб(7) = 70;
...

(45)v8: Нужна программа для автоподбора файлов.
Ну не получается у меня с этим "рюкзаком"

(39) плять..матрица...

Добавляю в таблицу колонку метку и ставлю либо 0, либо 1 и где 1 считаю.

е мое. То есть нужна чисто сумма по отмеченным строкам? И из за этого родилась данная тема? Я фигею без рояля.

(50)Нее, ну тема нормально, если такое надо будет можно от сюда скопипастить.

(50) да нормальная тема.

(40) а теперь как получить десятичноый результат ?

пятницо здесь?

ну дык.

Как сумму то размеров файлов перебрать ?

перебором

отсортировал и вперед.

с алгоритмами вообще фигово?

(57)Как перебором ? Все равно пропускаются некоторые строки.

(60)Если я правильно телепатирую что тебе надо то где то так:


тФайлы=Новый ТаблицаЗначений;
тФайлы.Колонки.Добавить("Размер");
тФайлы.Колонки.Добавить("Имя");
Для н=1 по 10000 Цикл
   нов=тФайлы.Добавить();
   нов.Размер=н;
   нов.Имя="Файл размером "+н;
Конеццикла;
МаксимальныйобщийРазмер=1000;
УжеЕсть=0;
тФайлы.Сортировать("Размер Убыв");
тОтобрано=Новый ТаблицаЗначений;
тОтобрано.Колонки.Добавить("Строка");
Для каждого Стр Из тФайлы Цикл
   Если Стр.Размер<=МаксимальныйобщийРазмер-УжеЕсть Тогда
       тОтобрано.Добавить();
       тОтобрано.Строка=Стр);
       УжеЕсть=УжеЕсть+Стр.Размер;
   КонецЕсли;    
Конеццикла;    



(61)Ща попробую

+ правда так он тебе один запихает только, когда до 1000 дойдет:-)

но тут важет принцип

*важен

Нее, мне надо все возможное из файлов.

А тут только один

перебором еще

Госпади:-)  на разных размерах не с шагом 1 будет несколько файлов, не понятног разве?
в(61) просто пример

(67)Как в (39) не получается

А что все замолчали ?
Столько кода вверху написали, а как до дела дошло все сразу молчат.

Осталось причесать:
Функция ПреобразованиеЧисла(Знач ИсхЧисло)
   
   ДвоичныйКод = "";
   Пока ИсхЧисло <> 0 Цикл
       ДвоичныйКод = "" + ИсхЧисло%2 + ДвоичныйКод ;
       ИсхЧисло = Цел(ИсхЧисло/2);
   КонецЦикла;
   Возврат ДвоичныйКод;
   
КонецФункции

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
   
   ОчиститьСообщения();
   Длина = 600;
   МинимальнаяДлина = 400;
   ТаблицаФайлов = Новый ТаблицаЗначений;
   ТаблицаФайлов.Колонки.Добавить("Имя");
   ТаблицаФайлов.Колонки.Добавить("Размер");
   НовСтр = ТаблицаФайлов.Добавить();
   НовСтр.Имя = "Первый";
   НовСтр.Размер = 100;
   НовСтр = ТаблицаФайлов.Добавить();
   НовСтр.Имя = "Второй";
   НовСтр.Размер = 200;
   НовСтр = ТаблицаФайлов.Добавить();
   НовСтр.Имя = "Третий";
   НовСтр.Размер = 300;
   НовСтр = ТаблицаФайлов.Добавить();
   НовСтр.Имя = "Четвертый";
   НовСтр.Размер = 400;
   НовСтр = ТаблицаФайлов.Добавить();
   НовСтр.Имя = "Пятый";
   НовСтр.Размер = 500;
   НовСтр = ТаблицаФайлов.Добавить();
   НовСтр.Имя = "Шестой";
   НовСтр.Размер = 600;
   ВремТаблица = Новый ТаблицаЗначений;
   ВремТаблица.Колонки.Добавить("Имя");
   ВремТаблица.Колонки.Добавить("Размер");
   ТаблицаРезультата = Новый ТаблицаЗначений;
   ТаблицаРезультата.Колонки.Добавить("Имя");
   ТаблицаРезультата.Колонки.Добавить("Размер");
   Кон = 1;
   Для Аа = 1 по ТаблицаФайлов.Количество() Цикл
       Кон = Кон * 2;    
   КонецЦикла;
   Для Аа = 1 По Кон - 1 Цикл
       Результат = 0;
       Стр = ПреобразованиеЧисла(Аа);
       СтрДл = СтрДлина(Стр);
       Для Аб = 0 по СтрДл - 1 Цикл
           Если Сред(Стр, СтрДл - Аб, 1) = "1" Тогда
               СтрТаб = ТаблицаФайлов.Получить(Аб);
               НовСтр = ВремТаблица.Добавить();
               НовСтр.Имя = СтрТаб.Имя;
               НовСтр.Размер = СтрТаб.Размер;
               Результат = Результат + СтрТаб.Размер;
           КонецЕсли;
       КонецЦикла;
       Если Результат <= Длина И Результат >= МинимальнаяДлина Тогда
           Для Каждого Стр Из ВремТаблица Цикл
               НовСтр = ТаблицаРезультата.Добавить();
               НовСтр.Имя = Стр.Имя;
               НовСтр.Размер = Стр.Размер;
           КонецЦикла;
           НовСтр = ТаблицаРезультата.Добавить();
           НовСтр.Имя = "-" + Результат + "-";
       КонецЕсли;
       ВремТаблица.Очистить();
   КонецЦикла;
   Для Каждого Стр Из ТаблицаРезультата Цикл
       Сообщить(Стр.Имя + " " + Стр.Размер);
   КонецЦикла;
   Отказ = 1;
   
КонецПроцедуры

не - седни точно пятница. Ваш код ПреобразованиеЧисла 8 ку преобразует в 000.

или это замануха такая, чтобы кто-нибудь готовое решение полностью выложил?

(73) У меня нормально, 8 = 1000

(74) откуда там 1 берется?

если там добавляется только остаток?

а сек - ща одну вещь проверю.

(75)Хз, это вовсе не мой код, я его сверху взял.(29)

а не - все норм, это я туплю.

(79)Не подскажете как сократить ?
   Кон = 1;
   Для Аа = 1 по ТаблицаФайлов.Количество() Цикл
       Кон = Кон * 2;    
   КонецЦикла;
   Для Аа = 1 По Кон - 1 Цикл

Функция Из_10_В_Любую(Знач Значение=0,Нотация=36) Экспорт
    Если Нотация<=0 Тогда Возврат("") КонецЕсли;
    Значение=Число(Значение);
    Если Значение<=0 Тогда Возврат("0") КонецЕсли;
    Значение=Цел(Значение);
    Результат="";
    Пока Значение>0 Цикл
         Результат=Сред("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",Значение%Нотация+1,1)+Результат;
         Значение=Цел(Значение/Нотация) ;
    КонецЦикла;
    Возврат Результат;
КонецФункции

(78) ага - код прям копия (29).
(80)

Кон = Pow(2, ТаблицаФайлов.Количество());


(81) оригинально однако.

(82)Сп. за (80)

(83) баян с синьёры однако

(83) и обратно

Функция Из_Любой_В_10(Знач Значение="0",Нотация=36) Экспорт
    Если Нотация<=0 Тогда Возврат(0) КонецЕсли;
    Значение=СокрЛП(Значение);
    Если Значение="0" Тогда Возврат(0) КонецЕсли;
    Результат=0;
    Длина=СтрДлина(Значение);
    Для Х=1 По Длина Цикл
         М=1;
         Для У=1 По Длина-Х Цикл М=М*Нотация КонецЦикла;
         Результат=Результат+(Найти("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",Сред(Значение,Х,1))-1)*М;
    КонецЦикла;
    Возврат Окр(Результат);
КонецФункции

+85
http://my1c-archive.narod.ru/knowhow/uni_conv.html

+87 причем, Рупора..

(85)я не так часто в 1С ине занимаюсь преобразованием в различные системы счисления )

а вообще да - было, причем еще в 7 - ке. За мою практику таких задач не возникало ни разу.

Я избавился от цикла с преобразованием см. (47)

Для чего нужна формула n^n-1

(92)Количество вариантов, для суммы.

У меня очень много инсталяшек игр на компе, вот решил их по дискам раскидать, руками не очень то удобно файлы выбирать для диска, вот и решил найти прогу (47), т.к. ни чего не нашел, решил ее в 1с-ке сделать.

(93) для суммы чего?

(39)СуммаНОМЕРВАРИАНТА = ...