|
|
Как в 1С77 число перевести в 2-чную систему счисления? |
☑ |
|
0
Stagor
10.06.10
✎
16:44
|
есть способ?
|
|
|
1
ДенисЧ
10.06.10
✎
16:45
|
Разумеется.
Только для него внешняя компонента нужна...
|
|
|
2
Aleksey_3
10.06.10
✎
16:45
|
Так же как и не в 1С
|
|
|
3
wason1
10.06.10
✎
16:48
|
123|2
1 66|2
0 33|2
1 16|2
0 8|2
0 4|2
0 2|2
0 1
123=10000101
|
|
|
4
Guk
10.06.10
✎
16:49
|
Функция Из_10_В_Любую(Знач Значение=0,Нотация=36) Экспорт
Если Нотация<=0 Тогда Возврат("") КонецЕсли;
Значение=Число(Значение);
Если Значение<=0 Тогда Возврат("0") КонецЕсли;
Значение=Цел(Значение);
Результат="";
Пока Значение>0 Цикл
Результат=Сред("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",Значение%Нотация+1,1)+Результат;
Значение=Цел(Значение/Нотация) ;
КонецЦикла;
Возврат Результат;
КонецФункции
//_________________________________________________________
Функция Из_Любой_В_10(Знач Значение="0",Нотация=36) Экспорт
Если Нотация<=0 Тогда Возврат(0) КонецЕсли;
Значение=СокрЛП(Значение);
Если Значение="0" Тогда Возврат(0) КонецЕсли;
Результат=0;
Длина=СтрДлина(Значение);
Для Х=1 По Длина Цикл
М=1;
Для У=1 По Длина-Х Цикл М=М*Нотация КонецЦикла;
Результат=Результат+(Найти("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",Сред(Значение,Х,1))-1)*М;
КонецЦикла;
Возврат Окр(Результат);
КонецФункции
автор avb...
|
|
|
5
Ковычки
10.06.10
✎
18:37
|
Рупор Голова !
|
|
|
6
Арчибальд
10.06.10
✎
18:40
|
|
|
|
7
Ковычки
10.06.10
✎
18:56
|
Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
Скрипт.language="javascript";
Стр=Скрипт.Eval("new Number(19753)");
Для Сч=2 По 36 Цикл
Сообщить(Стр.toString(Сч));
КонецЦикла;
|
|
|
8
zak555
10.06.10
✎
22:40
|
(6) так в типовых тис/комплексной есть
|
|
