Insertion Sort

[brummel]

Hallo,

ich soll Insertion Sort implentieren und das Programm soll dann auch die Vergleiche und Tauschoptionen zählen. Mein Quelltext sieht bisher so aus:

Delphi-Quellcode:

for i:=2 to n do                                            //äußere Schleife
    begin
      Merke:=Zahl[i];
      j:=i;
      while (j>1)  and (Zahl[j-1]>Merke)do                   //innere Schleife
       begin
         Zahl[j]:=Zahl[j-1];
         Dec(j);
         //Inc(Vergleich);
       end;
       Zahl[j]:=Merke;
       //Inc(Tausch);

Ich habe hier jetzt mal die Zählung der Vergleiche und Tauschoperationen als Kommentar an die Stellen geschrieben, die ich dachte. Wenn ich die ganze Sache mit einer überschaubaren Versuchsmenge ausprobiere, ermittelt es aber andere WErte als die, die ich durch überlegen bekomme.

Kann mir bitte jemand helfen!

[alzaimar]

Du zählst ja auch nicht das, was der Name der Variablen impliziert.
Verglichen wird auch dann, wenn die While-Schleife gar nicht durchlaufen wird und getauscht wird dann nicht, wenn i=j.