Mit ‘Delphi’ getaggte Artikel

Sortierverfahren mit Struktogramm und einer Implementationsvariante unter Pascal

01.09.2008
von Mario Rasser

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

Struktogramm zu Selection Sort

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

© 2003-2018 Fa. ipunct - IT-Lösungen auf den Punkt gebracht