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]