Текущий архив: 2004.10.17;
Скачать: CL | DM;
Вниз
Бинарные перестановки Найти похожие ветки
← →
nof (2004-10-03 23:02) [0]Задача Есть 2 бинарных числа: например
1)11001000
2) 110010
Как организовать перестановку из старшего разряда 1 числа в младший 2-ого типа должно получится:
3)1001000 - убрали старший бит
4)1100101 - поставили младший
← →
KilkennyCat © (2004-10-03 23:07) [1]Logical (bitwise) operators
← →
DrPass © (2004-10-03 23:13) [2]a:=11001000 shr 7
b:=(110010 shl 1) or a
← →
GuAV © (2004-10-03 23:45) [3]Типа так
procedure Z(var A, B: Byte); // можно Word или DWord - что требуется.
asm
RCL [A], 1
SHR [A], 1
RCL [B], 1
end;
← →
GuAV © (2004-10-03 23:52) [4]то есть что я написал неверно, и ваще я что-то зацикливатться на асм стал. Вот так надо:
B:=(B shl 1) or ord((A and $80)<>0);
A:=A and not $80;
если не Byte а Word или LongWord, то соотв маска $8000 или $80000000
Страницы: 1 вся ветка
Текущий архив: 2004.10.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.027 c
