Hi,
du könntest die Zahlen auch einfach in einem Array speichern und dann sortieren.
Delphi-Quellcode:
procedure Swap(var a,b: real);
var h: real;
begin
h:= a;
a:= b;
b:= a;
end;
procedure Sortiere(var Zahlen: array of real);
var i, j: Integer;
begin
for i:= 0 to High(Zahlen)-1 do
for j:= i+1 to Hihg(Zahlen) do
if Zahlen[i]>Zahlen[j] then Swap( Zahlen[i], Zahlen[j]);
end;
Soweit erstmal das sortieren, jetzt noch die Deklaration des Arrays und ein Beispielaufruf:
Delphi-Quellcode:
var MeinArray: array of real;
...
SetLength( MeinArray, 10);//Länge auf 10 Elemente festsetzen
//hier können jetzt irgendwelche Zahlen ins Array eingelesen werden
...
Sortiere(MeinArray);//Sortierung starten
MfG
Binärbaum