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.

zusammenfalten · markieren

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

Ähmmm...

Ausgabezahl := Ausgabezahl + IntToStr (zwerg);

Hi,


zwei möglichekeiten wenn ich dich richtig verstanden habe :

markieren

Delphi-Quellcode:

REPEAT
    Zwerg := Zahl MOD Basis;
    Ausgabezahl := Ausgabezahl + IntToStr(Zwerg);
    Zahl := Zahl DIV Basis;
  UNTIL Zahl = 0;

oder schau dir mal die Procedure Insert an.

Zunächst vor der Schleife
Ausgabezahl := ''; In der Schleife dann
Ausgabezahl := IntToStr(Zwerg) + Ausgabezahl; EDIT: Zu langasam. Aber IntToStr() muss vorne stehen, sonst wirds verkehrt herum dargestellt.

Das soll ja nicht hinzuaddiert werden...

Das tuts auch nicht . Das wird nun hintendran gesetzt, oder vornedran, oder da wos halt hingehört

Ach so


Ich denke einfach zu kompliziert


Danke,
Lamy

... es geht auch rekursiv...

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

  function binaer(Zahl:integer):string;
  begin
    if zahl>1 then
      result:=binaer(zahl div 2);

    result:=result+inttostr(zahl mod 2)
  end;

begin
  edit1.Text:=binaer(strtoint(edit2.Text));
end;

Du anscheinend auch

Ist das überhaupt von Vorteil, diese rekursive Funktion?

... das kommt darauf an, es hat nichts mit kompliziert zu tun, aber manchmal ist es einfacher, schneller und übersichtlicher...