Programm Hilfe

[DeddyH]

Delphi-Quellcode:

Durchlauf := 1;
repeat
  //wir sagen mal von vornherein: wir sind fertig
  done := true;
  for i := Low(DeinArray) to High(DeinArray) - Durchlauf do
    if DeinArray[i] > DeinArray[i + 1] then
      begin
        //tauschen (selbst implementieren)
        //wir mussten tauschen, also doch nicht fertig
        done := false;
      end;  
  Durchlauf := Durchlauf + 1;
until done; //nix mehr getauscht -> fertig

[edit] P.S.: Das ist aufsteigende Sortierung, für absteigende muss der Vergleich genau anders herum sein. [/edit]