Index vom x-tem gesetztem Bit

[calibra301]

Hallo,

hab irgendwie Gehirnblockade...

Ich habe hier einen Binärwert von z.B. 00101010

Möchte nun die Position des z.B. 3. gesetzten Bit ermitteln.
Wäre in diesem Fall der Wert 32

Kann aber auch sein das ich das 5. gesetzte Bit suche, also von rechts nach links durchschauen
und dann rechts wieder anfangen. Wäre dann also der Wert 8.

Kriege das aber schleifentechnisch irgendwie nicht "schön" verpackt.
Nach XX Stunden glotzen auf den eigenen Code Blödsinn schaltet dann auch das Hirn ab

Gruss
Calli

[himitsu]

Was ist an der Schleife so schwer?

schauen ob LSB gesetzt ist (Odd)
wenn nicht, dann Shift rechts und erneut nachsehen. (dabei mitzählen wie oft)

Wenn Durchläufe größer Bitanzahl, dann abbrechen. Ober besser schon vorher nachsehn ob Wert<>0 (mindestens ein Bit vorhanden).

[Andreas13]

Zitat von himitsu:

Was ist an der Schleife so schwer?
... schauen ob ÖSB gesetzt ist (Odd)

Sorry Himitsu, aber was meinst Du mit ÖSB?
Gruß, Andreas

[arnold mueller]

Er meint LSB und hat das L nicht getroffen.

LSB ist das niederwertigste Bit, also das ganz rechts.

[Aviator]

LSB bedeutet übrigens Least Significant Bit.

So in der Art könntest du das evtl. umsetzen. Der Code ist ungetestet. Hoffentlich tut er trotzdem was er soll oder gibt dir zumindest einen Anstoß wie du es lösen kannst. Die Funktion gibt -1 zurück wenn das Bit mit der gesuchten Position nicht gefunden wurde.

Delphi-Quellcode:

function CheckBit(const Value: Integer; BitNumber: Integer) : Integer;
var
  i: Integer;
begin
  Result := -1;
  i := 0;
  
  while (Value > 0) do begin
    if (Value and $01) then begin
      if (i = BitNumber) then begin
        Result := i;
        Break;
      end;
      Inc(i);
    end;
  end;
end;

[samso]

Den Vorschlag von Aviator aufgenommen und erweitert:

Delphi-Quellcode:

program Project5;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

function CheckBit(const Value, BitNumber: Integer): Integer;
var
  i: Integer;
  Mask: Integer;
begin
  if (Value <> 0) then
  begin
    i := 0;
    Mask := 0;
    while true do
    begin
      if Mask = 0 then
        Mask := 1;
      if (Value and Mask) <> 0 then
      begin
        Inc(i);
        if (i = BitNumber) then
        begin
          Result := Mask;
          Break;
        end;
      end;
      Mask := Mask shl 1;
    end;
  end
  else
    Result := -1;
end;

begin
  try
    if CheckBit($2A, 3) = 32 then
      writeln('Test 1 - ok');
    if CheckBit($2A, 5) = 8 then
      writeln('Test 2 - ok');
    readln;
  except
    on E: Exception do
      writeln(E.ClassName, ': ', E.Message);
  end;
end.