Как организовать зеркальную замену битов в байте?

← →
Aleksandr © (2004-05-11 14:58) [0]

Ну, чтобы последний бит обменялся местами с первым, второй с предпоследним и т.д.?

← →
Digitman © (2004-05-11 15:06) [1]

операции сдвига знакомы ?

← →
BillyJeans © (2004-05-11 15:10) [2]

сдвига с переносом...

← →
Romkin © (2004-05-11 15:14) [3]

Вроде так пойдет:
function reverse (x: byte): byte; begin x := (x and $55) shl 1 or (x shr 1) and $55; x := (x and $33) shl 2 or (x shr 2) and $33; x := (x and $0F) shl 4 or (x shr 4) and $0F; Result := x; end;

← →
WebErr © (2004-05-11 15:49) [4]

Есть асмовая команда, что-то вроде sor ax, 2 ... не помню точно...

← →
Aleksandr © (2004-05-11 16:15) [5]

Спасибо, я надеялся на асмовское, но пойдет и сдвигами!

← →
Digitman © (2004-05-11 16:23) [6]

> Aleksandr © (11.05.04 16:15) [5]

здрасть ! можно подумать, что i80х86 не имеет соотв.маш.инструкций ...

> если без перехода на ассемблерные команды

Чем Вам Асм не угодил? ;)

Мне угодил, но вот проблема будет с переходом на Д8, а для решения данной задачи ассемблерный уровень не требуется!

Как организовать зеркальную замену битов в байте? Найти похожие ветки