@Mavarik: Sei doch nicht so streng mit ihm. Das ist wahrscheinlich wieder eine Aufgabe aus dem Unterricht in dem die Schüler nicht mal den Unterschied zwischen Bit und Byte erklärt bekommen haben.
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.
Delphi-Quellcode:
function dec2bin(eingabe : Byte): string;
begin
Result := '';
repeat
if erstes Bit = 1 then
hänge an das Ergebnis eine 1 ran
wenn nicht
hänge an das Ergebnis eine 0 ran
Shifte Eingabe um eins nach rechts
until eingabe = 0;
end;
Wenn ich jetzt nichts vergessen habe, dann sollte das schon alles sein. Ich hoffe, du kannst dir daraus einen Code basteln. Wenn du dann noch Probleme hast, können wir dir natürlich gerne weiterhelfen.