4 Zahlen vom Typ "Real" sortieren

[Binärbaum]

Zitat von UkOn:

Hab das nunmal mit dem Array versucht, nur das funktioniert nich wie ich denke. Dachte der Array ist dann sortiert, und ich kann mir einzelne Elemente rauspicken die mir dann geordnet erscheinen aber macht er nicht. Wo ist der fehler?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var mya: array [1..4] of real;
begin
mya[1]:=strtofloat(edit1.Text);
mya[2]:=strtofloat(edit2.Text);
mya[3]:=strtofloat(edit3.Text);
mya[4]:=strtofloat(edit4.Text);
Sortiere(mya);//Sortierung starten
edit5.Text:=floattostr(mya[4]);
edit6.Text:=floattostr(mya[3]);
edit7.Text:=floattostr(mya[2]);
edit8.Text:=floattostr(mya[1]);
end;
end.

aus 7 3 10 6

wird 6 6 3 3

aus 1 2 3 4
wird 4 3 2 1 <--- da dacht ich es klappt aber naja das beispiel darüber sagt das da was verkehrt läuft

Das liegt wohl zum einen daran, dass du einen statischen Array verwendest, aber die Prozedur von mir nur für dynamische Arrays vorgesehen ist. Zum anderen ist mir gerade aufgefallen, dass da ein Tippfehler in meiner Funktion ist.
Erstmal die korrigierte Prozedur Swap von mir:
(die Prozedur Sortiere bleibt unverändert)

Delphi-Quellcode:

procedure Swap(var a,b: real);
var h: real;
begin
  h:= a;
  a:= b;
  b:= h;//<<-- hier war der Fehler
end;

Und dann auf dein Beispiel angewendet müsste das so aussehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var mya: array of real;
begin
  SetLength(mya, 4);
  mya[0]:=StrToFloat(edit1.Text);
  mya[1]:=StrToFloat(edit2.Text);
  mya[2]:=StrToFloat(edit3.Text);
  mya[3]:=StrToFloat(edit4.Text);
  Sortiere(mya);//Sortierung starten
  edit5.Text:=FloatToStr(mya[3]);
  edit6.Text:=FloatToStr(mya[2]);
  edit7.Text:=FloatToStr(mya[1]);
  edit8.Text:=FloatToStr(mya[0]);
end;

MfG
Binärbaum

//Edit: Tippfehler korrigiert