Ich hab so das gefühl das ich hier deine Hausaufgaben löse ...
Delphi-Quellcode:
function DezinHex (ewert : integer):String;
var Erg:String;
begin
erg :='';
while ewert > 0 do begin
erg := inttostr(ewert mod 2) + erg;
ewert := ewert div 2;
end;
result:= erg;
end;
Der Code ist aber Blind gecoded. Mit etwas Glück sind noch genug Fehler drin so das sich noch ein kleiner Lerneffeckt einstellt
[Edit]
Ach ja fast vergessen. Für negative Eingaben geht das natürlcih nicht
das macht man dann in dem man vom Ergenbiss das 2 er Komplement bildet und Binär 1 Addiert.
d.h. du kannst dann noch jede Menge Logik einbauen so das Ewert immer >= 0 ist