Direktes Auswählen

Direktes Auswählen

Sortieren durch direktes Auswählen, sehr einfacher Sortieralgorithmus. Laufzeit

. Wenn die ersten k Elemente bereits sortiert sind, dann wird unter den verbliebenen Elementen das kleinste gesucht und mit dem Element an der Position

vertauscht. Wird nun k in einer Schleife erhöht, so wird das gesamte Feld sortiert.

 
    PROCEDURE sort(n: integer; VAR a: sortfeld); 
    VAR k,i,j: integer; 
    BEGIN
       FOR k:=1 TO n-1 DO BEGIN 
          FOR j:=k+1 TO n DO BEGIN  
              IF a[j]<a[k] THEN swap(a[k],a[j]); 
          END;
       END;
    END;