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:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:

{$APPTYPE CONSOLE}

PROGRAM quicksortzeit;
USES Windows;

TYPE Index = 1..30000;
     Feld = ARRAY[Index] OF Integer;
VAR a:Feld;
    max,z:word;
    i,j,k,vert:longint;
    dauer,et,at:extended;

PROCEDURE sortieren(links,rechts:index);
VAR i,j:index; x,h:index;
Begin
  i:=links;
  j:=rechts;
  if j>i then begin
  x:=a[rechts];
  repeat
    while a[i]<x do inc(i);
      while a[j]>=x do dec(j);
        if i<j then begin
          h:=a[i];
          a[i]:=a[j];
          a[j]:=h; {vertauschen}
          inc(vert);
          inc(i);
          dec(j);
        end;
  until i>j;
  h:=a[i];
  a[i]:=x; { letztes Element an richtige Stelle}
  a[rechts]:=h;
  sortieren(links,j);
  sortieren(i+1,rechts);
  end;
  end;
PROCEDURE Zufallsbelegung(VAR a: Feld);
VAR i: Index;
BEGIN
  Randomize;
  FOR i := 1 TO max DO begin
    a[i]:=random(max);
    {write(a[i],' ');}
  end;
  writeln;
END;
PROCEDURE Ausgabe(VAR a: Feld);
VAR i: Index;
BEGIN
  writeLn('Die sortierten Zahlen:');
  FOR z := 1 TO max DO write(a[z],' ');
END;

BEGIN
  vert:=0;
  Write ('Wieviele Zahlen sollen sortiert werden (max. 30000)? ');
  Readln(max);
  writeLn('Sortieren von ', max, ' ganzen Zahlen.');
  Zufallsbelegung(a);

  at:=gettickcount;
  Sortieren(1,max);

  et:=gettickcount;
  dauer:=et-at;
  writeln('Dauer des Sortiervorganges: ',dauer:10:8,' Sekunden');
  writeln('Anzahl der Vertauschungen: ',vert);
  Readln;
  Ausgabe(a);
  readln;
END.                    

1:
2:
3:
4:

  dauer := gettickcount;
  Sortieren(1,max);
  dauer := (gettickcount - dauer) / 1000;
  writeln('Dauer des Sortiervorganges: ',dauer:10:8,' Sekunden');