выделить бит

[odi_noki]

Задача такая: нужно выделить бит в байте, то есть написать функцию, которая выдает значение истина, если n-ый бит (считая "справа" с 0) в байте равен 1, и ложь - если равен нулю.
function Bit1(bt,n:byte):boolean;
написала че-то на ассемблере, но как-то на удивление громоздко получилось, может кто подскажет как это сделать на паскале?

[AVer]

Function Bit1(Bt,N:Byte):Boolean;
Var S,S1:String;
    I:Integer;
Begin
S:='';
While Bt <> 1 Do
 Begin
 I:=Bt mod 2;
 Bt:=Bt div 2;
 Str(I,S1);
 S:=S1+S;
 End;
S:='1'+S;
While Length(S) < 8 Do
S:='0'+S;
S:=S[N];
If S = '1' Then Bit1:=True Else Bit1:=False;
End;

[odi_noki]

тоже не очень быстро, работа со строкой... а Str - это функция паскаля? мне б желательно чтобы процедурка быстро работала, п.ч. нужна для прорисовки графики, может с командами shr и shl кто че посоветует?

[Serge_Bliznykov]

а если так:

const
   NMask:array [0..7] of byte = (1,2,4,8,16,32,64,128);

Function Bit1(Bt,N:Byte):Boolean;
begin
  Bit1 := (Bt and NMask[N])<>0;
end;

[odi_noki]

о, вот это уже интереснее, кажется работает.. только есть проблемка с пониманием: and сравнивает побитово, как в асме? и что он дает в результате?

[Serge_Bliznykov]

гм. А мне казалось, что это очевидно...

в данном случае к одному байту производится операция логического И с другим байтом (сама операция разумеется битовая). В качестве байта второго берём маску (имя массива смотри :-)
(0-й бит - маска 1 : XXXXXXXX and 00000001
1-й бит - маска 2: XXXXXXXX and 00000010
и т.д.
7-й бит маска 128: XXXXXXXX and 10000000)
разумеется, маску можно получать сдвигом 1 влево на N-1 позиций... возможно, что это будет даже быстрее, чем брать маску из массива...

Полученное число (после логического И) сравниваем - если = 0 значит требуемый бит был нулевой, иначе, бит не нулевой.

[odi_noki]

Все ясно, просто не знала, что в паскале тоже есть побитовый and, в этом наверно и была проблема. Прописала сдвиг единицы вместо маски, теперь все отлично работает, как раз то, что нужно. Спасибо огромное.

[Somebody]

Сообщение от odi_noki

написала че-то на ассемблере, но как-то на удивление громоздко получилось

Не так уж и громоздко
Pascal + ассемблер

function BitSet(Number: Word; Bit: Byte): Boolean; assembler;
asm
mov ax, 1
mov cl, [Bit]
shl ax, cl
xor dx, dx
test [Number], ax
jz @end
inc dx
@end:
mov ax, dx
end;

Delphi + нормальный ассемблер

function BitSet(Number, Bit: Cardinal): Boolean;
asm
bt eax, edx
setc al
end;

[odi_noki]

Somebody,
Вот такая вещь shl ax, cl у меня не компилируется. Ну ее конечно циклом можно заменить. Или чето в настройках покрутить? Пускай уж будет на паскале в 3 строчки, не намного медленнее)
И еще - что такое нормальный ассемблер?

[Somebody]

Сообщение от odi_noki

Вот такая вещь shl ax, cl у меня не компилируется.

Странно, у меня компилируется. TP70

Сообщение от odi_noki

И еще - что такое нормальный ассемблер?

Я имел в виду ассемблер, который понимает инструкции не только 286-го процессора, но и более современных (в данном случае 386).