Diese unten aufgeführten Struktogramme und Algorithmen, erheben kein Anspruch auf Fehlerlosigkeit. Sie wurden aber nach besten Wissen und Gewissen erarbeitet und auch erfolgreich unter Borland Turbo Pascal 6.0/7.0 getestet.

1. Selektion-Sort

weitere Bezeichnungen

• Selection-Sort
• Sortieren durch (direktes) Auswählen

Prinzip

• man sucht den kleinsten Wert
• diesen tauscht man mit dem ersten Element
• man sucht den nächsten kleinsten Wert und setzt ihn an die zweite Stelle
• dies macht man solange bis das komplette Feld (Array) sortiert ist
• Es ist eines der einfachsten, aber auch langsamsten Sortierverfahren

Struktogramm

Quellcode

{Beispielwerte}
CONST min=0;
max=1000;
{Ende Bespielwerte}
TYPE TFeld=Array[min..max] of Real; {}
 
Procedure Selection_Sort(var feld : TFeld; min, max : integer);
var     i,j : integer;
       a   : real; {}
Begin
 For i:=min to max-1 do
 Begin
  a:=feld[i];
  For j:=i+1 to max do
   Begin
   if feld[j] < a then
   Begin
    a:=feld[j];
    feld[j]:=feld[i];
    feld[i]:=a;
   end;
  end;
 end;
end;

Weiterlesen