|
Платные хостинги
Раскрутка сайта
Книги по программированию
Из десятичной в двоичную
- Как число перегнать? из десятичной в двоичную!Я сделал алгоритм месяц назад, но потом стер его и немогу востановить.Идиотская ситуация, склероз, блин,Помогите!ТОлько не от склероза !
- Дык... Все элементарно...В цикле находишь остатки числа от деления на два, а потом делиш его (число на это самое 2).Потом эти остатки выстраиваешь в обратном порядке. Вот и будет ответ.З.Ы. Если надо подробнее, могу код написать.
- Типа этого:Код 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;highlightSyntax('delphimZWY=','delphi');
- Ну, типа этого...p0s0l Расслабляешь ты их...
- Morpheus Это ты в каком смысле?
- Код работает!И самое страшное что я делал почти так же! я вдруг вспомнил.И как водится фигня которыя была тогда осталась и сейчас.У меня слово: 11111111И если оно выглядит так: 00111111То преображается оно в: 111111.Как бы это нулями заполнить? в конце! чтоб был формат из 8-ми бит! Это сообщение отредактировал Georg4 - 29.1.2004, 19:01
- А если просто сделать так:Код for i:=1 to 8-length(result) doresult:='0'+result;highlightSyntax('delphiMjU5ZW','delphi');
- А так не работает что-ли? IntToBin(63, 8);
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
