Div 2 durch Subtraktion

[BlackJack]

das könnte man mit shifts machen:

Delphi-Quellcode:

var Zahl, ZahlDiv2: Integer;
begin
Zahl := 1024;
ZahlDiv2 := Zahl shr 1; //ZahlDiv2 = 512
end;

oder allgemein

Code:

Zahl div 2^k = Zahl shr k

wenn ich mich nicht irre

wobei ich denke dass der Delphi-kompiler aus einem div 2 eh ein shr 1 machen wird.

edit: für multiplikation geht das übrigens auch:

Code:

Zahl * 2^k = Zahl shl k