|
Вопрос # 2 452/ вопрос решён / |
|
Приветствую, уважаемые эксперты!
возник такой вопрос при написании алгоритма решения задачи на языке Delphi.
допустим дано натуральное число. КАК получить его запись в двоичном и других системах счисления? Заранее спасибо за ответ! P.S. скорее всего я не знаю какой то команды. Объясните пожалуйста.
 |
Вопрос задал: I{ () T (статус: Посетитель)
Вопрос отправлен: 24 февраля 2009, 19:24
Состояние вопроса: решён, ответов: 2.
|
Ответ #1. Отвечает эксперт: Ученый
Здравствуйте, I{ () T! вот примеры функций:
Приложение: Переключить в обычный режим-
-
- function dec2bin(value: dword): string;
- const
- bindigit = '01';
- begin
- while value <> 0 do
- begin
- result := bindigit[succ(value and 1)]+result;
- value := value shr 1;
- end;
- if result='' then result := '0';
- end;
-
- ****************************
-
-
-
- function dec2hex(value: dword): string;
- const
- hexdigit = '0123456789ABCDEF';
- begin
- while value <> 0 do
- begin
- result := hexdigit[succ(value and $F)]+result;
- value := value shr 4;
- end;
- if result='' then result := '0';
- end;
-
- **************************
-
-
-
- function dec2oct(value: dword): string;
- const
- octdigit = '012345678';
- begin
- while value <> 0 do
- begin
- result := octdigit[succ(value and 7)]+result;
- value := value shr 3;
- end;
- if result='' then result := '0';
- end;
 |
Ответ отправил: Ученый (статус: 8-ой класс)
Время отправки: 24 февраля 2009, 19:31
Оценка за ответ: 5
Комментарий к оценке: СПАСИБО БОЛЬШОЕ!!!!! ОЧЕНЬ ВЫРУЧИЛИ!!
|
Ответ #2. Отвечает эксперт: min@y™
В пакете RxLib есть модуль RxStrUtils.pas. В нём есть функция
function Dec2Numb(N: Longint; A, B: Byte): string;
Она пеобpазует целое число N в число по основанию B, дополняя слева нулями до длины A.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 25 февраля 2009, 09:55
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 0.
31 января 2011, 19:36: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
| 
