Hi!
Für Info muss ich eine Prozedur schreiben, die eine dezimalzahl in eine Binäre umwandelt nach dem Schema:
[Beispiel:]
23: 2 = 11 Rest 1
11 : 2 = 5 Rest 1
5 : 2 = 2 Rest 1
2 : 2 = 1 Rest 0
1 : 2 = 0 Rest 1
Also: 10111.
Delphi-Quellcode:
PROCEDURE TForm1.Berechnen(Zahl, Basis: Integer; VAR Ausgabezahl: Str15);
VAR Laenge, Zwerg: Integer;
BEGIN
Ausgabezahl := '';
Laenge := Length(Ausgabezahl);
REPEAT
Zwerg := Zahl MOD Basis;
Ausgabezahl := { Hier ist jetzt das Problem; wie bekomm ich hin, dass der nun Zwerg auf jede neue Stelle schreibt?} ;
Zahl := Zahl DIV Basis;
UNTIL Zahl = 0;
END;
Danke schonmal,
Lamy