Bonjour, je cherche à trier une matrice m de dimension [1..a, 1..b] d'entiers.
Mais il apparaît qu'il y a une erreur.
Voilà le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
procedure tri ( var m : mat; a, b : integer );
var
v1, v2 : boolean;
begin
repeat
	v1 := false;
	v2 := false;
	for l := 1 to a do
		begin
			for c := 2 to b do
				if m[l, c] < m[l, c-1] then
					begin
						permut ( m[l, c], m[l, c-1]);
						v1 := true;
					end;
		end;
	for l := 2 to a do
		if m[l-1, b] > m[l, 1] then
			begin
				permut ( m[l-1, b], m[l, 1]);
				v2 := true;
			end;
until
	(not (v1)) and (not(v2));
end;