Thema: Delphi MinSortstabil!??

Einzelnen Beitrag anzeigen

DOCBlue

Registriert seit: 14. Mär 2006
5 Beiträge
 
Delphi 5 Professional
 
#1

MinSortstabil!??

  Alt 14. Mär 2006, 15:31
hallo Leute..
ich hab kleines Problem mit der Hausaufgabe..
wir sollen MinSort Sortiverfahren so schreiben, dass es "Stabil" ist..
aber soweit ich weiß, geht das doch gar nicht oder doch!?

so sieht normale MinSort bei uns aus..
als Hinweis hat der Lehrer uns das noch weiter gegeben:
"der KnotenMitKleinstenInhalt wird aus der Liste gelöscht und der Inhalt (kleinsterInhalt) wird hinter,vor das letzte Teilelement hinzugefügt"

Delphi-Quellcode:
//-------- MinSort (public) --------------------------------------------------
procedure TSortierListe.MinSort;
var KnotenMitKleinstemWert, ersterKnoten : TKnoten;
    i : Integer;
begin
     if Self.Laenge > 1
        then begin
                  Self.zumAnfang;
                  ersterKnoten := Self.liefereAktuellenKnoten;
                  for i := 1 to Self.Laenge do
                      begin
                           KnotenMitKleinstemWert := Self.findeKnotenMitKleinstemInhalt(ersterKnoten);
                           vertausche(ersterKnoten,KnotenMitKleinstemWert);
                           ersterKnoten := ersterKnoten.Nachfolger;
                      end;
             end;
end;

danke für die Hilfe vorraus

[edit=alcaeus]Delphi-Tags gesetzt. In Zukunft bitte selbst machen Mfg, alcaeus[/edit]
  Mit Zitat antworten Zitat