*HILFE* Ich brauch eure Hilfe: HEAPSORT!!!!!

[naschkatze1987]

Hallo Leute!
Ich brauche eure Hilfe beim Sortieralgorithmus Heapsort. Ich muss das Programm für die Schule fertigstellen, aber irgendwie haut der Quelltext leider nicht. Theoretisch müsste er funktionieren, aber wie das so ist klappt es in der Praxis net.
Vielleicht weil ich probeirt habe mit 2 Listboxen zu sortieren, aber seht selbst:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var Anzahl, vergleich, tausch, hv: Integer;
    a: real;
begin
  Anzahl:=StrToInt(Edit1.Text);
  a:=Anzahl DIV 2; {Berechnung des Anfangsknoten}
  vergleich:=0;
  tausch:=0;
  WHILE ((Listbox1.Items[a-1]<(Listbox1.Items[(2*a)-1]) OR (Listbox1.Items[2*a]))) DO
    BEGIN
      IF Listbox1.Items[a-1]<Listbox1.Items[2*a-1] {Vergleich mit 1.direkten Nachbarn}
      THEN
        BEGIN
          hv:=Listbox1.Items[a-1];
          Listbox1.Items[a-1]:=Listbox1.Items[2*a-1];
          Listbox1.Items[2*a-1]:=Listbox1.Items[hv];
          vergleich:=vergleich+1;
          tausch:=tausch+1;
        END
      ELSE vergleich:=vergleich+1;
      IF Listbox1.Items[a-1]<Listbox1.Items[2*a]  {Vergleich mit 2.direkten Nachbarn}
      THEN
        BEGIN
          hv:=Listbox1.Items[a-1];
          Listbox1.Items[a-1]:=Listbox1.Items[2*a];
          Listbox1.Items[2*a]:=Listbox1.Items[hv];
          vergleich:=vergleich+1;
          tausch:=tausch+1;
        END
      ELSE vergleich:=vergleich+1;
      a:=a-1; {springt einen Knoten vor}
    END;
  Label4.Caption:='Es wurde bisher '+IntToStr(vergleich)+' mal verglichen und '+IntToStr(tausch)+' mal getauscht.';
end;

procedure TForm1.Button3Click(Sender: TObject);
var Anzahl, a, zv, vergleich, tausch, hv: Integer;
begin
  Anzahl:=StrToInt(Edit1.Text);
  Listbox2.Items[0]:=Listbox1.Items[0]; {Wurzel des Heaps wird in Listbox2 ausgegeben}
  vergleich:=0;
  tausch:=0;
  FOR zv:=1 TO (Anzahl-1) DO
  BEGIN
  Listbox1.Items[0]:=Listbox1.Items[Anzahl-1];
  Anzahl:=Anzahl-1;
  a:=1;
  IF ((Listbox1.Items[a-1]<(Listbox1.Items[2*a-1]) OR (Listbox1.items[2*a]))) THEN
    IF Listbox1.Items[a-1]<Listbox1.Items[2*a-1]  {Wurzel wird mit direkten Nachbar verglichen}
    THEN
      BEGIN
        hv:=Listbox1.Items[a-1];
        Listbox1.Items[a-1]:=Listbox1.Items[2*a-1];
        Listbox1.Items[2*a-1]:=Listbox1.Items[hv];
        a:=2*a-1;
        vergleich:=vergleich+1;
        tausch:=tausch+1;
      END
    ELSE vergleich:=vergleich+1;
    IF Listbox1.Items[a-1]<Listbox1.Items[2*a] {Wurzel wird mit direktem Nachbar verglichen}
    THEN
      BEGIN
        hv:=Listbox1.Items[a-1];
        Listbox1.Items[a-1]:=Listbox1.Items[2*a];
        Listbox1.Items[2*a]:=Listbox1.Items[hv];
        a:=2*a;
        vergleich:=vergleich+1;
        tausch:=tausch+1;
      END
    ELSE vergleich:=vergleich+1;
  WHILE ((Listbox1.Items[a]<(Listbox1.Items[2*a+1]) OR (Listbox1.Items[2*a+2]))) DO  {Umformung in einen Heap}
  BEGIN
    IF Listbox1.Items[a]<Listbox1.Items[2*a+1]
    THEN
      BEGIN
        hv:=Listbox1.Items[a];
        Listbox1.Items[a]:=Listbox1.Items[2*a+1];
        Listbox1.Items[2*a+1]:=Listbox1.Items[hv];
        a:=2*a+1;
        vergleich:=vergleich+1;
        tausch:=tausch+1;
      END
    ELSE vergleich:=vergleich+1;
    IF Listbox1.Items[a]<Listbox1.Items[2*a+1]
    THEN
      BEGIN
        hv:=Listbox1.Items[a];
        Listbox1.Items[a]:=Listbox1.Items[2*a+2];
        Listbox1.Items[2*a+2]:=Listbox1.Items[hv];
        a:=2*a+2;
        vergleich:=vergleich+1;
        tausch:=tausch+1;
      END
    ELSE vergleich:=vergleich+1;
  END;
  Listbox2.Items[zv]:=Listbox1.Items[0];
  END;
  Label5.Caption:='Es wurde '+IntToStr(vergleich)+' mal verglichen und '+IntToStr(tausch)+' mal getauscht.';
end;

Vielleicht könnt ihr mir ja helfen und wisst wo der Fehler liegt. Wär jedenfalls total lieb, wenn mir jemand helfen könnte. Ich sag schon mal Danke im Voraus!
liebe Grüße

[Luckie]

In der Tutorial-Sparte hat Daniel ein ausführliches Sortier-Tutorial veröffentlicht. Hast du dir das schon mal angeguckt?

[naschkatze1987]

ja aber das hilft mir auch nicht weiter

[Luckie]

Zitat:

Theoretisch müsste er funktionieren, aber wie das so ist klappt es in der Praxis net.

Eventuell wäre es hilfreich, wenn du uns sagst, was nicht klappt.

[Sharky]

Hai naschkatze,

ändere doch bitte den Titel deines Threads so das er etwas über dein Problem aussagt. "Hilfe" sucht hier so ziemlich jeder.

Danke.

[naschkatze1987]

Ich weiß ja nicht was mit dem Quelltext nicht stimmt... wenn ich das wüsste bräuchte ich euch ja nicht fragen

[hoika]

Hallo,

dann packe halt mal 3 Einträge in die Listbox,
schnapp dir das Tutorial dazu und debugge das.
Ich arbeite mit Quicksort, der Code oben ist mir zu chaotisch.


Heiko

[naschkatze1987]

debuggen???

[MrSpock]

Hai naschkatze,

sharky hatte dich bereits gebeten, den Titel zu ändern.

[r2c2]

Zitat von naschkatze1987:

debuggen???

Debuggen.

mfg

Christian