Zitat von
himitsu:
Binärbaum ist es ja schon aufgefallen, seine Prozedur arbeite mit 'nem (falschen) Startindex, diese arbeitet jetzt etwas besser ... Start- und Entindex sind egal.
Delphi-Quellcode:
procedure Sortiere(var Zahlen: array of real);
var i, j: Integer;
t: Real;
begin
for i:= Low(Zahlen) to High(Zahlen)-1 do
for j := i + 1 to High(Zahlen) do
if Zahlen[i] > Zahlen[j] then begin
t := Zahlen[i];
Zahlen[i] := Zahlen[j];
Zahlen[j] := t;
end;
end;
Ach, immer diese überkorrekten Leute.
Ich bin eigentlich davon ausgegeangen, dass ein dynamischer Array verwendet wird, und dynamische Arrays beginnen immer beim Index null (deshalb der Startwert). Außerdem ist bei nur vier Werten ein Sortierverfahren wie Bubble-Sort oder ähnliche fast schon zuviel des Guten, da einige wenige Vergleiche auch reichen würden. Ich hab die Prozedur eigentlich nur vorgeschlagen, da man mit dynamischen Arrays flexibler ist, weil man damit nicht nur ein vierelementiges Array sondern auch ein beliebig langes Array verwenden kann.
MfG
Binärbaum