*HILFE* Ich brauch eure Hilfe: Sortieralgorithmus->Gnomesort

[naschkatze1987]

Hallo Leute! :bounce1:
Ich brauche eure Hilfe bei dem Sortieralgorithmus Gnomesort. Ich muss den am Montag in der Schule vortragen. Den Quelltext dafür hab ich auch schon fertig. Theoretisch müsste er funktionieren, aber wie das so ist klappt es in der Praxis net. :wall: Der Algorithmus sortiert zwar aber nicht alles... :gruebel:
Naja hier erstmal der Quelltext:

Delphi-Quellcode:

procedure TForm1.BitBtn2Click(Sender: TObject);
var i,hilfe, Anzahl, Tauschung, Vergleiche : integer;

begin
i:=0;
Anzahl:=Listbox1.Items.Count;
Vergleiche:=0;
Tauschung:=0;

  while i<Anzahl-1 do
     Begin  Vergleiche:=Vergleiche+1;

         if i<0 then
      begin
        i:=i+1;
      end;

    If StrToInt(Listbox1.Items[i]) > StrToInt(Listbox1.Items[i+1])
     then  Begin
            hilfe:=StrToInt(Listbox1.Items[i]);
            Listbox1.Items[i]:=Listbox1.Items[i+1];
            Listbox1.Items[i+1]:=IntToStr(hilfe);
            Tauschung:=Tauschung+1;
            i:=i+1;
           End
     else i:=i-1;
     End;
   Label3.Caption:='Die Zahlen wurden '+InttoStr(Vergleiche)+' mal verglichen und '+InttoStr[Tauschung)+' mal getauscht!';

end;

Vielleicht könnt ihr mir ja helfen und wisst wo der Fehler liegt. :coder2: Wär jedenfalls total lieb, wenn mir jemand helfen könnte. Ich sag schon mal Danke im Voraus! :-D

[Phoenix]

Such mal hier in der DP nach Tutorial Sortieralgorithmen. Da gibts nämlich schon genug zu dem Thema was Deine Fragen eigentlich erschöpfend beantworten :)

[dino]

hats einen grund, warum

Delphi-Quellcode:

if i<0 then
begin
i:=i+1
end;

Delphi-Quellcode:

statt if i<0 then inc(i)

steht?

[Phoenix]

Wahrscheinlich weil die Naschkatze noch nicht so lange mit Delphi Programmiert und die Funktion inc() noch nicht kennt. Als ob daran das sortieren scheitern würde... :roll:

[dino]

schau du mal, wo du gucken solltest... :)

[mkinzler]

Zitat:

Zitat von dino

hats einen grund, warum

Delphi-Quellcode:

if i<0 then
begin
i:=i+1
end;

Delphi-Quellcode:

statt if i<0 then inc(i)

steht?

Ist doch das Selbe und keine Fehler.

http://de.wikipedia.org/wiki/Gnomesort

[Khabarakh]

Naja, über die Steigerung der Übersichtlichkeit durch Inc ließe sich streiten ;) .

@naschelnde Katze: Vergleich deine Implementation nochmal mit der Algorithmusbeschreibung ;) . Am Schluss muss es heißen

Delphi-Quellcode:

. = DerZuIgnoriendeEinrückungsaktivierendePunkt

            i:=i-1;
           End
     else i:=i+1;
     End;

[dino]

ich habe nicht gesagt, dass es falsch ist :)
ok dem Lehrer könnts vielleicht merckwürdig erscheinen, wenn plötzlich inc(i) steht

[naschkatze1987]

also ich weiß was inc(i) oder auch dec(i) bedeutet... :P nur ich weiß nicht ob mein Lehrer glaubt dass ich es weiß und so ist es ja auch einfacher

[naschkatze1987]

Zitat:

Zitat von Khabarakh

Naja, über die Steigerung der Übersichtlichkeit durch Inc ließe sich streiten ;) .

@naschelnde Katze: Vergleich deine Implementation nochmal mit der Algorithmusbeschreibung ;) . Am Schluss muss es heißen

Delphi-Quellcode:

. = DerZuIgnoriendeEinrückungsaktivierendePunkt

            i:=i-1;
           End
     else i:=i+1;
     End;

:?: HÄ? :?: