2.
mctsimco
12.06.09 12:27
Сейчас в теме
гых... Бином, панимаишь, ньютона...
//=======================
Функция глИз10ВЛюбую(Знач Значение = 0, Нотация = 36) Экспорт
Если Нотация <= 0 Тогда
Возврат("");
КонецЕсли;
Значение=Число(Значение);
Если Значение <= 0 Тогда
Возврат("0");
КонецЕсли;
Значение = Цел(Значение);
Результат = "";
Пока Значение > 0 Цикл
Результат = Сред("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", Значение%Нотация + 1, 1) + Результат;
Значение=Цел(Значение / Нотация) ;
КонецЦикла;
Возврат Результат;
КонецФункции
//=======================
Функция глИзЛюбойВ10(Знач Значение="0", Нотация=36) Экспорт
Если Нотация <= 0 Тогда
Возврат(0);
КонецЕсли;
Значение=Врег(СокрЛП(Значение));
Если (Значение = "0") или (СтрДлина(Значение) = 0) Тогда
Возврат(0);
КонецЕсли;
Результат=0;
Длина = СтрДлина(Значение);
Для Х = 1 По Длина Цикл
М = 1;
Для У = 1 По Длина - Х Цикл
М = М * Нотация;
КонецЦикла;
Результат = Результат + (Найти("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", Сред(Значение, Х, 1)) -1) * М;
КонецЦикла;
Возврат Окр(Результат);
КонецФункции
//=======================