1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

program selsort;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

const maximum = 100000;
const maxtext = '100.000';

type tarr = array [0..maximum] of integer;

procedure SelectionSort(var A: tarr);

  procedure Swap(var X, Y: integer);
  var
    Swp: integer;
  begin
    Swp := X;
    X := Y;
    Y := Swp;
  end;

var
  I, J: Integer;
begin

  for I := Low(A) to High(A) - 1 do
    for J := I + 1 to High(A) do
      if A[I] > A[J] then Swap(A[I], A[J]);
end;

var i: integer;
var a: tarr;
var start : cardinal;

begin
  randomize;
  writeln ('Zufallsgenerator initialisiert');
  start := gettickcount;
  for I := 0 to maximum do
    begin
      a[i]:= random (maxint);
    end;
  writeln (inttostr(start-gettickcount)+ 'Ms Zum erzeugen der Zufallszahlen');
  writeln (maxtext + ' Zufallszahlen erzeugt');
  start := gettickcount;
  selectionsort (a);
  writeln (inttostr(start - gettickcount) + 'Ms Zum Sortieren');
  readln;

end.                    

1:
2:
3:
4:

32514    -------> Unsortiert
13254    -------> Elemente mit Wert 1 gesucht und an den Anfang gestellt
12354    -------> Element 2 gesucht und dahinter gestellt
12345    -------> Element 4 hinter die 3 Gestellt                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

fertig := False;
While not fertig do
begin
  fertig := True;
  for i := low(A) to High(A)-1 do
    if A[i] > A[i+1] then
    begin
      swap(A[i], A[i+1]):
      fertig := False;
    end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

void bubbleSort(int[] feld){
  int i;
  int n = feld.length;
  boolean isSorted = false;
  while(!isSorted){
    isSorted = true;
    n--;
    for (i=0 ; i<n ; i++){
      if (feld[i]>feld[i+1]){
        isSorted = false;
        swap(feld, i, i+1);
      }
    }
  }
}