Нужно в 7.7 преобразовать число в шестнадцатеричную систему. Как ловчее?

http://www.sinor.ru/~my1c/knowhow/uni_conv.html

Функция ПреобразоватьВ16(Цифра)
Если Цифра = 10 Тогда
Возврат "A";
ИначеЕсли Цифра = 11 Тогда
Возврат "B";
ИначеЕсли Цифра = 12 Тогда
Возврат "С";
ИначеЕсли Цифра = 13 Тогда
Возврат "D";
ИначеЕсли Цифра = 14 Тогда
Возврат "E";
ИначеЕсли Цифра = 15 Тогда
Возврат "F";
Иначе
Возврат Строка(Цифра);
КонецЕсли;
КонецФункции

Процедура ПеревестиВШестнадцатеричное(ДесятичноеЧисло)
Цифра = ДесятичноеЧисло % 16;
Цифра16 = ПреобразоватьВ16(Цифра);
ПолучаемоеЧисло = Цифра16 + ПолучаемоеЧисло;
Если ДесятичноеЧисло > 16 Тогда
Кусок = Цел(ДесятичноеЧисло / 16);
ПеревестиВШестнадцатеричное(Кусок);
КонецЕсли;

КонецПроцедуры
Процедура ДесятичноеЧислоПриИзменении(Элемент)
ЭлементыФормы.ШеснадцатеричноеЧисло.Значение = "";
ПеревестиВШестнадцатеричное(ДесятичноеЧисло);
ЭлементыФормы.ШеснадцатеричноеЧисло.Значение = ПолучаемоеЧисло;
КонецПроцедуры

Спасибо, сейчас попробую

емае, и этот человек щитает себя программистом :(

(4) Не просто программистом, а настоящим программистом, который ни в жисть не будет писать то, что уже написано :)

(2) цифры 10 не бывает )

(5)то есть ничего

(2) Мощно! Тут и рекурсия, и глобальные переменные,и индийский код. Я-то, наивный, думал, что одной функцией можно обойтись:)

(8) обходись

(8) Взято отсюда:
http://209.85.129.132/search?q=cache:pM4cjLZuckAJ:https://rusfaq.ru/info/question/86521+ПреобразоватьВ16&hl=ru&ct=clnk&cd=1&gl=ru&client=firefox-a

(8) легко

Функция То16(чсл)
 Если 0 = чсл Тогда
   Возврат "0";
 КонецЕсли;
 результат = "";
 Пока 0 < чсл Цикл
   остаток = чсл % 16;
   Если 10 <= остаток Тогда
     результат = Симв(КодСимв("A") + остаток - 10) + результат;
   Иначе                                      
     результат = строка(остаток) + результат;
   КонецЕсли;
   чсл = цел(чсл / 16);    
 КонецЦикла;
 Возврат результат;
КонецФункции

(8)сделай ... без рекурсии ...


зы: варианты типа этого:


олеСкрипт = создатьобъект("MSScriptControl.ScriptControl");
олеСкрипт.Language = "VBScript";
стрКод =
"function intDecToHex(intValue)
|  intDecToHex = hex(intValue)
|end function";
олеСкрипт.AddCode(стрКод);
сообщить(олеСкрипт.Run("intDecToHex", 10));

не предлагать

(10) Я рад, что это не твоё творение :)

а чем цикл отличается в данном случает от рекурсии

(14) цикл от отличается от рекурсии тем что он лучше. у рекурсии вложенность ограничена.

(14) а чем вообще цикл отличается от рекурсии???

(15)и какой же максимальный уровень вложенности рекурсии для 1С

(16)рекурсии стек использует ... это считается одним из самых существенных отличий

(18) ну вот как раз размер стека ограничивает вложенность рекурсии

А можно внешнюю компоненту написать на С / С++ ?

Мне почему-то кажется, что этот код (DEC -> HEX. Как? и (DEC -> HEX. Как? не будет совсем работать с дробной частью. А в задании не было задано целое оно или действительное.

Извините, за корявость оформления ссылок на сообщения :(

Вот ни разу не писал преобразований из одной системы счисления в другую.. Глупости это. Все написано до нас..

(19)боюсь в таком случае, для оного это не существенно

В догонку. Не зря ведь проходили, что такой "прямой" перевод можно делать лишь из двоичной СС, так что только 10ное число -> 2чное -> 16чное будет правильным. То есть, может некоторые числа и получится так "перевести", но это исключение. А вообще надо почитать мат.часть.

Гефест объясни зачем это надо? Просто интересно...

(24) а ты часом не индиец, раз тебе переполнение стека несущественно?

(27)тогда не индиец скажи ответ на вопрос заданный вам в 17 ... только в конкретных цифрах... а не так вы отмазались в (19)

(26) Есть список номеров пропусков в десятеричном виде. Для новой системы нужны шестнадцатеричные номера

Проход цикла это один джамп  в начало цикла, а рекурсивная функция - это 2 джампа - вход в неё и выход обратно.

(15), (19) Вот это да... Вложенность циклов тоже ограничена, если ты не знаешь.
Как упражение, можешь попробовать использовать циклы с неограниченной вложенностью. А цикл лучше рекурсии тем, что потребляет меньше ресурсов в частность оперативной памяти (рекурсия жрет много памяти, которая занимается под стек, который растет при каждом рекурсивном вызове и свертывается в самом конце).
А лучше-хуже смотреть нужно именно на конкретной задаче, используется это как подзадача в другой задаче и сколько времени выделено на ее выполнение или на разработку.
Все относительно. Разговоры на тему вообще к конкретным выводам не приведут.

(28) точных цифр не знаю. если интересно - советую обратиться к специализированной литературе. а вообще (31)

(29) кто такую муть предложил в ТЗ ?
Не проще было бы формировать  типа АБС-123 из двух строк.

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


подумайте...

хватит ли 5000 ротаций для решения данной задачи ... выдержит ли 1С 5000 вложений рекрусии

(29) Предлагаю вообще не париться со старыми номерами. Просто считайте их шстандцатиричными, а новые выдавайте по новым правилам. А чтобы вообще запутаться переходите на запись номеров пропусков в римской системе счисления, как нумерация серий в мексиканском сериале.

(25)
>> В догонку. Не зря ведь проходили, что такой "прямой" перевод можно делать
>> лишь из двоичной СС, так что только 10ное число -> 2чное -> 16чное будет
>> правильным. То есть, может некоторые числа и получится так "перевести", но
>> это исключение. А вообще надо почитать мат.часть.

такой бред можно только в среде 1Цэшнигов услышать.
еще один "программист"

именно поэтому программист и "программист 1С" совершенно разные понятия

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

(36) да ладно тебе. эт одинеска на самом деле корявая неправильно считает при преобразовании. и руки тут совсем не причем.

2 Чупа:
Обоснуйте, пожалуйста, слово "бред"? Что "бред"? То, что в школе и универе мы не переводили делением из 10ной в 16ную (а предлагаемый код - тупо деление на 16 с отображением результата в цифры 16 СС), и прямо говорилось, что так делать не верно? + Не будучи полностью уверенным в памяти написал "А вообще надо почитать мат.часть.".

А вот "такой бред можно только в среде 1Цэшнигов услышать.
еще один "программист" и "именно поэтому программист и "программист 1С" совершенно разные понятия" точно бред. Относительно меня - тем более, что вы не имеете понятия, о том, что я реализовывал и с чем работал кроме области 1С.

Функция ЦифраВСимвол(Val С)
return Mid("0123456789ABCDEF",C+1,1);
КонецФункции

Функция ЧислоВСтрокуШест(Val Ч)
if ValueTypeStr(Ч)<>"Число" then return "!";endif;
if Int(Ч)<>Ч then Ч=Int(Ч);endif;// дробную часть отбрасываем
if Ч=0 then return "0";endif;
if Ч<0 then Ч=-Ч;Зн=1;else Зн=0;endif;// для отрицательного выводим знак
Стр="";
while Ч>0 do
 Стр=ЦифраВСимвол(Ч % 16)+Стр;
 Ч=Int(Ч/16);
enddo;
if Зн=1 then Стр="-"+Стр;endif;
return Стр;
КонецФункции

Что касается дробной части, то надо понимать, что в 1С дробная часть используется частично (во всех элементах хранения данных мы задаём смещение для точки) - поэтому, проще всего рассматривать все числа как целые, но не забывать про смещение точки.

(40)
Ну вот, поучись у тупых адинэсников тому, что вам в универе не показали :)
И там не "тупо деление на 16", смотри внимательнее.

2 Orefkov:
Высказывание о "тупых адинэсниках" идет из 36го сообщения, а отнюдь не из моего.
Смотри внимательнее. ;)