Forum: Algorithmen, Datenstrukturen und Klassendesign
by Uwe Raabe,
2. Jul 2011
Das hast du vollkommen richtig erkannt (daher auch meine Bemerkung "einfach aber langsam"). Natürlich kann man da noch einiges optimieren. Z.B. den Vergleichswert AList einmal vor der Schleife in eine lokale Variable packen. Bei einem Exchange würde er für den nächsten Vergleich wieder herangezogen und ohne Exchange ist die Schleife eh am Ende.
Wenn man das Speicherlayout des Arrays kennt,...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Uwe Raabe,
1. Jul 2011
Wenn es hier um "einfach aber langsam" geht, hab ich auch noch einen :-D
procedure InsertSort (var A: TVek);
var
I, J: integer;
T: double;
begin
for I:= 1 to Length(A) - 1 do
for J:= I downto 1 do
if A > A then
begin