Thema: Delphi Insertion Sort

Einzelnen Beitrag anzeigen

brummel

Registriert seit: 10. Nov 2007
1 Beiträge
 
#1

Insertion Sort

  Alt 14. Nov 2007, 18:20
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!
  Mit Zitat antworten Zitat