|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.04.2008, 15:55 | #1 |
Регистрация: 12.04.2008
Сообщений: 3
|
Преобразование десятичного числа в двоичное.
Как преобразовать десятичного числа в двоичное?
|
12.04.2008, 15:57 | #2 |
Пользователь
Регистрация: 09.01.2008
Сообщений: 30
|
function IntToBin(Value:LongInt; Size:Integer):string;
var i:integer; begin Result:=''; for i:=Size downto 0 do begin if Value and (1 shl i)<>0 then Result:=Result+'1' else Result:=Result+'0'; end; end; |
12.04.2008, 15:59 | #3 |
Регистрация: 12.04.2008
Сообщений: 3
|
Спасибо, хорошо придумано!
|
12.04.2008, 16:07 | #4 |
Регистрация: 12.04.2008
Сообщений: 3
|
А как сделать наоборот? (BinToInt)
|
12.04.2008, 16:09 | #5 |
Пользователь
Регистрация: 09.01.2008
Сообщений: 30
|
Все даже легче!
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Преобразование числа в строку | )Игнат( | Общие вопросы Delphi | 6 | 06.07.2008 09:32 |
Преобразование числа с плавающей точкой в строку | Sibedir | Общие вопросы Delphi | 14 | 09.03.2008 21:48 |
C++. Перевод десятичного числа в двоичное | Panterka | Помощь студентам | 15 | 12.12.2007 15:04 |
информатика-дополнительный код десятичного числа | Artem1987 | Помощь студентам | 3 | 18.11.2007 14:32 |
Преобразование числа real к машинному виду | Roman999 | Общие вопросы Delphi | 3 | 01.05.2007 22:36 |