Rekonstrukcja liczny z bitów

0

Załóżmy, że jest tablica bajtów (bit 0..1) lub logiczna (bit ustawiony lub nie). W jaki sposób złożyć z tych bitów dane?

Np. tablica(1, 0, 0) --> dane(4)

Ops, zapomniałem - w Delphi.

0

liczba:=0
for i:= ... to ... do
liczba:=liczba*2+dane[i]

0

Hm, dla 0..9 (0000..1001) daje dobry wynik, >= 10 (1010) już nie:

var
  I, X: Integer;

X := 0;
for I := 0 to High(D) do
  X := (X * 2) + D[I]
;

Caption := IntToStr(X);

:?

1 użytkowników online, w tym zalogowanych: 0, gości: 1