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.

[Mavarik]

Zitat von Aviator:

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

Naja nicht so ganz...

Das erste Bit ist sicherlich bit 7 und nicht bit 0
Und bei Anhängen würde man auch eher ein Result := Result + '1' erwarten...

[Aviator]

Zitat von Mavarik:

Zitat von Aviator:

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

Naja nicht so ganz...

Das erste Bit ist sicherlich bit 7 und nicht bit 0
Und bei Anhängen würde man auch eher ein Result := Result + '1' erwarten...

Ist ja wie gesagt nur Pseudocode. Etwas überlegen soll der TE ja schon noch.