Korpas писал(а) 24. Мая 2006 :: 15:36:Интересует, есть ли функции по переводу десятичного числа в двоичное и обратно? Заранее спасибо.
Функция Из_10_В_Любую(Знач Значение=0,Нотация=36) Экспорт
Если Нотация<=0 Тогда Возврат("") КонецЕсли;
Значение=Число(Значение);
Если Значение<=0 Тогда Возврат("0") КонецЕсли;
Значение=Цел(Значение);
Результат="";
Пока Значение>0 Цикл
льтат;
Значение=Цел(Значение/Нотация) ;
КонецЦикла;
Возврат Результат;
КонецФункции
//_________________________________________________________
Функция Из_Любой_В_10(Знач Значение="0",Нотация=36) Экспорт
Если Нотация<=0 Тогда Возврат(0) КонецЕсли;
Значение=СокрЛП(Значение);
Если Значение="0" Тогда Возврат(0) КонецЕсли;
Результат=0;
Длина=СтрДлина(Значение);
Для Х=1 По Длина Цикл
М=1;
Для У=1 По Длина-Х Цикл М=М*Нотация КонецЦикла;
Х,1))-1)*М;
КонецЦикла;
Возврат Окр(Результат);
КонецФункции
Процедура Сформировать()
К=Из_10_В_Любую(255,9);
Сообщить(к);
Сообщить(Из_Любой_В_10(К,9));
КонецПроцедуры