1С 8.x : Перевод из Десятичного в Двоичное и обратно

 Функция ДесятичноеВДвоичное(Знач ИсхЧисло) Экспорт

    

    ДвоичныйКод = "";

    Пока ИсхЧисло <> 0 Цикл

        ДвоичныйКод = "" + ИсхЧисло%2 + ДвоичныйКод ;

        ИсхЧисло = Цел(ИсхЧисло/2);

	КонецЦикла;

	

    Возврат ДвоичныйКод;

    

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



Функция ДвоичноеВДесятичное(Знач Стр2) Экспорт

	

	Стр = СокрЛП(Стр2);

	Рез=0;

	

	Для н=1 по СтрДлина(Стр) Цикл

		Рез=Рез*2+Число(Сред(Стр,н,1));

	КонецЦикла;

	

	Возврат Рез;

	

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