битовые операции, Pascal

[TOSAgrk]

используя только битовые операции написать функцию которая меняет местами соседние группы из четырех битов в заданном беззнаковом длинном целом числе.

вот что я набросал:


uses crt, math;
var Nfirst, Ntemp, Ntemp1, Nfirst1, Nfirst2:longint;
binary:string;
i,j,p,q,w,e,r:integer;


begin
clrscr;
writeln ('Vvedit''4uslo');
readln (Nfirst);
writeln;
writeln;
writeln ('Zadane 4uslo ', Nfirst);
Nfirst1:= Nfirst;
Nfirst2:= Nfirst;
for i:= 1 to 32 do
begin
Ntemp := Nfirst div 2;
j:= Nfirst mod 2;
Nfirst:= Ntemp;
write(j);
end;




for q:=1 to 4 do
begin
p:= Nfirst1 shl 4;
{begin
p:= Nfirst1 shr 4;
end;}
end;


for q:= 5 to 8 do
begin
p:= Nfirst1 shr 4;
end;

{ for q:=17 to 20 do
begin
p:= Nfirst1 shr 4;
end;

for q:=25 to 28 do
begin
p:= Nfirst1 shr 4;
end;

for q:=5 to 8 do
begin
p:=Nfirst2 shl 4;
end;

for q:=13 to 16 do
begin
p:=Nfirst2 shl 4;
end;

for q:=21 to 24 do
begin
p:=Nfirst2 shl 4;
end;

for q:=29 to 32 do
begin
p:=Nfirst2 shl 4;
end};

writeln;
writeln;
writeln ('P= ' ,p );
for e:=1 to 32 do
begin
Ntemp1:=p div 2;
r:= p mod 2;
p:= Ntemp1;
write (r );
end;
readln;
end.

что не так ???

[Arigato]

используя только битовые операции написать функцию которая меняет местами соседние группы из четырех битов в заданном беззнаковом длинном целом числе.

Честно, недопонял задание. Что есть беззнаковое длинное целое, LongWord? В Turbo Pascal такого типа нет.
Далее, допустим, мы имеет переменную LongWord, состоящую из 8 четвёрок бит:
B7B6 B5B4 B3B2 B1B0
Что значит поменять местами соседние группы из 4 бит? Получить такое:
B6B7 B4B5 B2B3 B0B1
Но ведь B2 и B1 тоже являются соседними.

[TOSAgrk]

http://forum.developing.ru/showthrea...4106#post64106

вот здесь мне уже решили задачку. можете глянуть.