Le tri par sélection
-->
Principe
Soit à trier un tableau de N cases, numérotés de 1 à N.
1. Chercher la position du plus petit élément du tableau.
2. L'échanger avec le contenu de la première case du tableau (case n°1)
3. Chercher la position du plus petit élément parmi les cases 2 à N
4. L'échanger avec le contenu de la deuxième case du tableau (case n°2)
Ainsi de suite, jusqu'à ne plus avoir de cases à explorer.
Remarquer qu'on constitue petit à petit "basse" du tableau triée.
-------------
Function posmin(T:tab; i,n:integer):integer;
var
pm,j:integer;
begin
pm:=i;
For j:=i+1 to N do
begin
If T[j] < T[pm]
then
pm:=j;
end;
Posmin:=pm;
end;
-------------
-------------
Procedure triselec (var T:tab; N:integer);
var i,p:integer;
begin
For i:=1 to N-1 do
begin
p:= posmin(t,i,n); {posmin du minimum dans T entre i et N}
if i<>p
then
permut (T[i],T[p]);
end;
end;
-------------
Retour
