Dezimal auf Binär mithilfe von shr

[Aviator]

Zitat von Mavarik:

Gut die Aufgabe war so...
Aber das geht natürlich auch einfacher!

Delphi-Quellcode:

function dec2bin(Eingabe : BYTE) : STRING;
var 
  I : BYTE;
begin
  Result := ''; 
  for i:=0 to 7 do
    begin
      if Eingabe and $1 = 0
        then Result := '0' + Result
        else Result := '1' + Result;  
      Eingabe := Eingabe shr 1;
    end;
end;

Womit wir wieder bei meinem "Pseudocode" wären.