Einzelnen Beitrag anzeigen

Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.143 Beiträge
 
Delphi 10.3 Rio
 
#5

AW: Dezimal auf Binär mithilfe von shr

  Alt 27. Feb 2017, 14:28
Ich schreibe es mal als "Pseudocode" hin, da ich hier keine direkte Lösung posten will und es hier auch nicht gern gesehen wird, dass im Forum Schulaufgaben gelöst werden. Ich übernehme einfach mal so den Funktionskopf wie er vorgegeben wurde.
Ja ich dachte beim ersten lesen auch es sei "Dein" Code aber es ist eher so

Delphi-Quellcode:
function dec2bin(eingabe : Byte): string;
var
  BitMask : Byte;
begin
  BitMask := 128;
   Result := '';
   repeat
     if Bitmask and Eingabe > 0 then
       hänge an das Ergebnis eine 1 ran
     wenn nicht
       hänge an das Ergebnis eine 0 ran

     Shifte Bitmask um eins nach rechts
   until Bitmask = 0;
end;
Somit umgeht man bei einem AND 1 das man den String andersrum anhängen muss...
Result := '1' + Result;

Mavarik
  Mit Zitat antworten Zitat