Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];
Вниз
Как организовать зеркальную замену битов в байте? Найти похожие ветки
← →
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 не имеет соотв.маш.инструкций ...
← →
Anatoly Podgoretsky © (2004-05-11 16:41) [7]BillyJeans © (11.05.04 15:10) [2]
Про переносы забыть, если без перехода на ассемблерные команды
← →
WebErr © (2004-05-11 16:44) [8]
> если без перехода на ассемблерные команды
Чем Вам Асм не угодил? ;)
← →
Anatoly Podgoretsky © (2004-05-11 16:46) [9]Мне угодил, но вот проблема будет с переходом на Д8, а для решения данной задачи ассемблерный уровень не требуется!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.038 c
