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;
Partager