Tri de matrice sans décomposition

Version imprimable

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:

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;

05/08/2012, 13h29
Roland Chastain

Bonjour !

Difficile de chercher une erreur sans avoir le programme en entier. Quel genre d'erreur d'ailleurs ? Sois un peu plus explicite !

Et utilise les balises appropriées pour poster ton code, en te servant du bouton marqué #. Sans parler de l'indentation ! (Tu peux regarder d'autres discussions du forum pour voir comment le code est présenté.)

A première vue, il y a déjà une petite chose à corriger. Les variables "l" et "c" devraient plutôt être déclarées à l'intérieur de la procédure, au même endroit que "V1" et "V2".
06/08/2012, 11h25
abdou monta

bonjour!

bon desolé pour la forme du post, c'est ma premiére fois, en tout cas, les variables l et c sont déclarés déja avec les variables du program principale, l'erreur qu'aucune affichage se fait, mais la faute n'est pas au niveau du procedure affichage..
06/08/2012, 13h13
Roland Chastain

Encore une fois, il est impossible d'examiner ton programme sans l'avoir en entier. Qu'est-ce que le type "mat" ? Qu'y a-t-il dans la procedure "permut" ? Avec quelles valeurs la procedure "tri" est-elle appelée depuis le programme principal ? Si on ne sait pas tout cela, on ne peut pas chercher ton erreur.
06/08/2012, 15h00
droggo

Hoe,

Citation:

Envoyé par abdou monta

bonjour!

bon desolé pour la forme du post, c'est ma premiére fois, en tout cas, les variables l et c sont déclarés déja avec les variables du program principale, l'erreur qu'aucune affichage se fait, mais la faute n'est pas au niveau du procedure affichage..

En principe, un compilateur Pascal refuse d'utiliser des variables globales comme compteurs de boucle, qui doivent être locaux à la fonction.
13/08/2012, 13h57
abdou monta

résolu 8-)
merci tt le monde :)
13/08/2012, 13h59
abdou monta

Citation:

Envoyé par droggo

Hoe,

En principe, un compilateur Pascal refuse d'utiliser des variables globales comme compteurs de boucle, qui doivent être locaux à la fonction.

non sa marche ;)
13/08/2012, 16h02
droggo

Hoe,

Citation:

Envoyé par abdou monta

non sa marche ;)

J'avoue que ça m'étonne, en particulier avec TP. :)
13/08/2012, 18h04
abdou monta

Citation:

Envoyé par droggo

Hoe,

J'avoue que ça m'étonne, en particulier avec TP. :)

oupps, sa marche qu'avec les fonctions, pas avec les procedures :) merci pour votre remarque, respect! :D

voici le code entier ;)

Code:

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
74
75
76
77
program tri_mat;
uses wincrt;
type mat = array[1..10, 1..10]of integer;
var t : mat; x, y : integer;
procedure lecture (var x, y : integer);
begin
     repeat
           write('x= ');        readln(x);
     until
           x in [1..10];
     repeat
           write('y= ');        readln(y);
     until
           y in [1..10];
end;
procedure remplire (var t : mat; x, y : integer);
var i , j : integer;
begin
     for i := 1 to y do
         for j := 1 to x do
             begin
                  write('t[', j, ',', i, ']= ');        readln(t[j,i]);
             end;
end;
procedure permut ( var a, b : integer);
var aux : integer;
begin
     aux := a;
     a := b;
     b := aux;
end;
procedure tri ( var t : mat; x, y : integer);
var i , j : integer; verif1, verif2 : boolean;
begin
repeat
     verif2 := true;
     verif1 := true;
     for i := 1 to y-1 do
            if t[x,i] < t[1, i+1] then
               begin
                    permut (t[x,i], t[1,i+1]);
                    verif2 := false;
               end;
     for j := 1 to y do
         begin
               for i := 1 to x-1 do
                   if t[i,j] < t[i+1,j] then
                      begin
                           permut(t[i,j], t[i+1,j]);
                           verif1 := false;
                      end;
         end;
until
      (verif1 = true) and (verif2 = true);
end;
procedure affiche (t: mat; x, y: integer);
var i , j : integer;
begin
for j := 1 to y do
     for i := 1 to x do
     begin
         write(' ', t[i,j], ' ');
         if i = x then
            writeln(' ');
     end;
end;
begin
lecture(x, y);
writeln('x= ', x, ' y= ', y); 
remplire(t, x, y);
writeln(' ');
writeln('la matrice donnée');
affiche(t, x, y);
tri(t,x,y);
writeln('la matrice triée');
affiche(t, x, y);
end.

Joa,

Je n'ai pas lu ton code, mais juste une petite remarque sur la mise en forme :

- bien indenter, de manière uniforme

- aérer, en ajoutant des lignes vides pour bien séparer visuellement les blocs logiques

- comme les noms de fonctions, procédures, variables ... sont explicites, on se passe bien de commentaires (ça, c'est un bon point).

Voici un exemple de mise en forme de ton code :

Code:

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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
program tri_mat;
 
uses
  wincrt;
 
type
  mat = array[1..10, 1..10] of integer;
var
  t: mat;
  x, y: integer;
 
  procedure lecture(var x, y: integer);
  begin
    repeat
      Write('x= ');
      readln(x);
    until x in [1..10];
    repeat
      Write('y= ');
      readln(y);
    until y in [1..10];
  end;
 
  procedure remplire(var t: mat; x, y: integer);
  var
    i, j: integer;
  begin
    for i := 1 to y do
      for j := 1 to x do
      begin
        Write('t[', j, ',', i, ']= ');
        readln(t[j, i]);
      end;
  end;
 
  procedure permut(var a, b: integer);
  var
    aux: integer;
  begin
    aux := a;
    a := b;
    b := aux;
  end;
 
  procedure tri(var t: mat; x, y: integer);
  var
    i, j: integer;
    verif1, verif2: boolean;
  begin
    repeat
      verif2 := True;
      verif1 := True;
      for i := 1 to y - 1 do
        if t[x, i] < t[1, i + 1] then
        begin
          permut(t[x, i], t[1, i + 1]);
          verif2 := False;
        end;
      for j := 1 to y do
      begin
        for i := 1 to x - 1 do
          if t[i, j] < t[i + 1, j] then
          begin
            permut(t[i, j], t[i + 1, j]);
            verif1 := False;
          end;
      end;
    until (verif1 = True) and (verif2 = True);
  end;
 
  procedure affiche(t: mat; x, y: integer);
  var
    i, j: integer;
  begin
    for j := 1 to y do
      for i := 1 to x do
      begin
        Write(' ', t[i, j], ' ');
        if i = x then
          writeln(' ');
      end;
  end;
 
begin
  lecture(x, y);
  writeln('x= ', x, ' y= ', y);
  remplire(t, x, y);
  writeln(' ');
  writeln('la matrice donnée');
  affiche(t, x, y);
  tri(t, x, y);
  writeln('la matrice triée');
  affiche(t, x, y);
end.

Bonne continuation. :)

14/08/2012, 17h19
abdou monta

:merci: !!!:ccool: