Quick sort

06/12/201731/12/2014 di admin

Un algoritmo di ordinamento

molto complicato: ricorsivo e difficile da ricordare
ma ottimo: è quasi sempre molto veloce…

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

Procedure QUICKSORT(var V: Vettore; Inf, Sup: Integer);

Var

i, j: Integer;

Perno: Elemento;

Begin1

If(Inf < Sup) Then

Begin

i:=Inf;

j:=Sup;

Perno:=V[(Inf+Sup) DIV 2];

Repeat

While(V[i] < Perno) Do

Inc(i);

While(Perno < V[j]) Do

Dec(j);

If(i <= j) then

Begin

SCAMBIA(V[i], V[j]);

Inc(i);

Dec(j);

End;

Until(I > J);

QUICKSORT(V, Inf, j);

QUICKSORT(V, i, Sup);

End;

End;