Преобразование целого числа в набор битов

← →
Посторонний (2006-12-01 10:23) [0]

Привет всем ! Подкиньте функцию плиз.

← →
clickmaker © (2006-12-01 10:25) [1]

TBits имеется в виду?
Тогда в цикле со сдвигом и маской And

← →
MBo © (2006-12-01 10:25) [2]

Каждое целое (да и нецелое число) в компьютере и так уже является набором битов, так что вопрос переформулируй

← →
Посторонний (2006-12-01 10:28) [3]

Мне такое задание в колледже дали, учитель ничего не объяснил лишь билет дал где так и написано :( Затвра программа должна быть готова.

← →
Сергей М. © (2006-12-01 10:28) [4]

http://delphimaster.net/view/2-1164797653/

читать (особенно пост [15]) до полного просветления !

← →
from kz (2006-12-01 10:30) [5]

При операциях с битовыми значениям удобно обращаться к кажджому биту,
как к элементу строки, причём так, чтобы 1-й бит - был 1-й символ строки,
а не последний.

← →
Посторонний (2006-12-01 10:34) [6]

:( Для моего мозга это слишком тяжело.

← →
Сергей М. © (2006-12-01 10:38) [7]

> Для моего мозга это слишком тяжело

Что тяжело ? Уточнить формулировку задачи или где ?

← →
from kz (2006-12-01 10:39) [8]

function IntToRBin32(Value: Cardinal): string;
var
i: integer;
begin
SetLength(Result, 32);
for i := 1 to 32 do
if (Value shl (i - 1)) shr 31 = 0 then
Result[33 - i] := "0"
else
Result[33 - i] := "1";
end;

← →
from kz (2006-12-01 10:43) [9]

Да, чуть не забыл.

uses Windows, SysUtils, Math - кажись.

← →
clickmaker © (2006-12-01 10:48) [10]

а Math зачем?

← →
from kz (2006-12-01 10:52) [11]

> clickmaker © (01.12.06 10:48) [10]
> а Math зачем?

Ну хотябы для того, что обратно назад переобразовать.

Result := 0;
for i := 1 to Length(Value) do
if Value[i] = "1" then
Result := Result + Round(IntPower(2, i - 1));

← →
iXT (2006-12-01 10:56) [12]

> Что тяжело ? Уточнить формулировку задачи или где ?

Не ну чего тут непонятного, здавать надо, а знаний "0"

[8] - все равно будет "Для моего мозга это слишком тяжело."
Если нет, тогда не все потеряно и заберу слова обратно.

> [11] from kz (01.12.06 10:52)

"обратно назад" можно и без функций. Сдвиг + OR

← →
from kz (2006-12-01 11:04) [14]

2 clickmaker

Ну я не на столько умный как ты. Написал, что знал.

Преобразование целого числа в набор битов Найти похожие ветки