Подскажите, как перевести отрицательно число из десятичной в двоичную систему исчисления? Написал функцию для полож чисел. Какой алгоритм для отрицательных?
Функция DecToBin(Знач Десятичное)
   
   Перем Двоичное;
   Перем ДвоичноеТемп;
   
   Двоичное = "";      
   ДвоичноеТемп = "";
   
   Пока Десятичное >= 2 Цикл
       Остаток = Десятичное % 2;
       ДвоичноеТемп = ДвоичноеТемп + Строка(Остаток);  
       Десятичное = Цел(Десятичное / 2);
   КонецЦикла;    
   ДвоичноеТемп = ДвоичноеТемп + Строка(Цел(Десятичное));  
   
   // Инвертируем строку
   Пока СтрДлина(ДвоичноеТемп) > 0 Цикл
       Символ = Прав(ДвоичноеТемп, 1);
       Двоичное = Двоичное + Символ;
       ДвоичноеТемп = Лев(ДвоичноеТемп, СтрДлина(ДвоичноеТемп) - 1);    
   КонецЦикла;
   
   Возврат Двоичное;
   
КонецФункции // DecToBin()

Книга знаний: Математические вычисления в 1С