MinSortstabil!??

[Der_Unwissende]

Hi,
um es einfach schon mal vorweg zu nehmen, natürlich geht es (sonst wäre die Aufgabe so schlecht wie der Code).
Zum Code muss ich echt sagen, dass Lehrer (hier mal ganz pauschal gesagt) echt nicht wissen was Codestil ist (gehe mal davon aus, dass der vom Lehrer formatiert wurde). Viel schöner geht das auch, wenn man ein wenig nach Konvention formatiert:

Delphi-Quellcode:

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;

By the way, du findest einen Button mit dem Titel Delphi-Code in dem Fenster in dem du Nachrichten schreibst, damit kannst du dann Delphi Code auch als solchen markieren. Wie gesagt, die Formatierung ist halt etwas unglücklich und macht den Code schwerer lesbar.

Zurück zum eigentlichen :

Zitat von DOCBlue:

wir sollen MinSort Sortiverfahren so schreiben, dass es "Stabil" ist..
aber soweit ich weiß, geht das doch gar nicht oder doch!?

Ok, warum glaubst du denn, dass er nicht stabil zu bekommen ist? Einfache Frage vorweg, wann ist denn ein Sortieralgorithmus stabil? Wenn du dir das genauer überlegst, dann kennst du schon die wichtigste Regel, was passieren darf (und was nicht) um das zu gewährleisten.
Falls du da nicht von selbst drauf kommst, ist das kein Problem, dann sag einfach was du dir schon überlegt hast und wo du nicht weiter kommst.

Ich fasse das posten deines Codes einfach mal nicht als Aufforderung einer Lösung auf (wäre wohl die falsche Stelle ), sonst müsste ich ja schließlich davon ausgehen, dass du möchtest dass dir jmd. die HA macht (was den Forensregeln widersprechen würde).
Aber wie gesagt, frag einfach weiter nach (und sag was du schon gemacht hast) und dir wird sicher geholfen werden.

Gruß Der Unwissende