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