Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Из десятичной в двоичную 
:(
    Опции темы
Georg4
Дата 28.1.2004, 17:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 961
Регистрация: 2.11.2002

Репутация: 0
Всего: 10
Как число перегнать? из десятичной в двоичную!
Я сделал алгоритм месяц назад, но потом стер его и немогу востановить.
Идиотская ситуация, склероз, блин,
Помогите!
ТОлько не от склероза smile.gif!


--------------------
Никто и никогда не должен решать одну проблему дважды
PM MAIL ICQ   Вверх
Fedor
Дата 28.1.2004, 19:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Днепрянин
****


Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32
Дык... Все элементарно...
В цикле находишь остатки числа от деления на два, а потом делиш его (число на это самое 2).
Потом эти остатки выстраиваешь в обратном порядке. Вот и будет ответ.

З.Ы. Если надо подробнее, могу код написать.


--------------------
Мы - Днепряне. Мы всех сильней.
PM ICQ   Вверх
p0s0l
Дата 28.1.2004, 19:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112
Типа этого:
Код
function IntToBin (Value : cardinal; Digits : integer = 0) : string;
begin
 Result := '';
 while Value <> 0 do
 begin
   Result := Char(48 + (Value and 1)) + Result;
   Value := Value shr 1;
 end;
 while Digits > Length(Result) do Result := '0' + Result;
end;





--------------------
С уважением, г-н Посол.
PM   Вверх
Fedor
Дата 28.1.2004, 22:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Днепрянин
****


Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32
Ну, типа этого...
p0s0l Расслабляешь ты их... smile.gif


--------------------
Мы - Днепряне. Мы всех сильней.
PM ICQ   Вверх
Georg4
Дата 29.1.2004, 01:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 961
Регистрация: 2.11.2002

Репутация: 0
Всего: 10
Morpheus Это ты в каком смысле?


--------------------
Никто и никогда не должен решать одну проблему дважды
PM MAIL ICQ   Вверх
Georg4
Дата 29.1.2004, 19:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 961
Регистрация: 2.11.2002

Репутация: 0
Всего: 10
Код работает!
И самое страшное что я делал почти так же! я вдруг вспомнил.
И как водится фигня которыя была тогда осталась и сейчас.
У меня слово: 11111111
И если оно выглядит так: 00111111
То преображается оно в: 111111.
Как бы это нулями заполнить? в конце! чтоб был формат из 8-ми бит!

Это сообщение отредактировал(а) Georg4 - 29.1.2004, 19:01


--------------------
Никто и никогда не должен решать одну проблему дважды
PM MAIL ICQ   Вверх
Illusion Dolphin
Дата 29.1.2004, 20:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63
А если просто сделать так:
Код

for i:=1 to 8-length(result) do
result:='0'+result;




--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
p0s0l
Дата 30.1.2004, 19:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112
Цитата
И как водится фигня которыя была тогда осталась и сейчас.
У меня слово: 11111111
И если оно выглядит так: 00111111
То преображается оно в: 111111.
Как бы это нулями заполнить? в конце! чтоб был формат из 8-ми бит!

А так не работает что-ли? IntToBin(63, 8);



--------------------
С уважением, г-н Посол.
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0460 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.