Как скопировать биты от k до n?

← →
NikNet © (2005-08-21 14:48) [0]

Есть число 9834989832 мне надо из определенной позиций
скопировать до определенной. Например от 3 до 8
а также в обратную сторону. Например от 8 до 3.

Помогите реализовать такие ф-ций? Я не умею работать с битами :(

← →
Alexander Panov © (2005-08-21 15:04) [1]

Наыерное надо учебники почитать?

← →
Alexander Panov © (2005-08-21 15:05) [2]

Удалено модератором

← →
Alexander Panov © (2005-08-21 15:06) [3]

Удалено модератором

← →
Alexander Panov © (2005-08-21 15:06) [4]

Удалено модератором

← →
Alexander Panov © (2005-08-21 15:07) [5]

Удалено модератором

← →
Джо © (2005-08-21 15:36) [6]

Автомодератор вернулся? ;)

> NikNet © (21.08.05 14:48)

Битовые операции основаны на логической (булевой) арифметике. Вот ее основные правила (буква b означает любое значение бита, хоть 0, хоть 1).

b and 0 = 0
b and 1 = b

b or 0 = b
b or 1 = 1

not 0 = 1
not 1 = 0

b xor b = 0
b xor (not b) = 1

Эти правила надо знать наизусть. Еще надо знать, что биты нумеруются от 0 и начиная с младшего.

Итак, нам надо выделить из числа X биты с 3-го по 8-й. Сразу видим, что число X должно занимать не менее 2-х байт, иначе никакого 8-го бита в нем просто не будет. ОК, тогда составим двухбайтовое двоичное число (так называемую маску), в котором биты с 3-го по 8-й равны единице (установлены), а остальные равны нулю (сброшены). Получим 0000000111111000 (а в шестнадцатиричном виде это будет $01F8).

Пусть значение X равно bbbbbbbbbbbbbbbb. Что будет, если произвести операцию AND между этим числом и нашей маской? Давайте посмотрим:

bbbbbbbbbbbbbbbb
and
0000000111111000
=
0000000bbbbbb000

Как видим, в результате мы выделили из числа X биты с 3-го по 8-й - что и требовалось.

>>Как видим, в результате мы выделили из числа X биты с 3-го по 8-й - что и требовалось.
Функция установлен ли бит (номер бита с конца)
Function IsBitSet(value:cardinal; bitno:byte):boolean; begin result:=odd(value shr bitno); end;

перефазировка на номер бита от начала делается так
BitFirst:=SizeOF(cardinal)-bitno;

Как скопировать биты от k до n? Найти похожие ветки