[TPW] Le tri rapide

Version imprimable

09/07/2007, 17h29
safowan

1 pièce(s) jointe(s)

[TPW] Le tri rapide

salut à tous j'ai eu un problème dans ce proramme (voir pièce jointe) au niveau de l'execution et non pas au niveau de la compilation, parfois une fausse résultat et parfois boucle infinie. Même que je ne vois auqu'une fautte. Pour cela je voudrais une aide de votre part mes amis et merci d'avance.

Liu,

Voici une procédure de tri rapide.

Ce n'est pas la meilleure implémentation possible, mais j'ai la flemme de regarder ton code de près. :)

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
procedure tri_rapide(VAR T : tab; l,r: INTEGER);
var
  v : integer;
  m,i : integer;
 
  procedure echange(var a,b : integer);
  var
    tamp : integer;
  begin
    tamp := a;
    a := b;
    b := tamp;
  end;
 
begin
  if (l<r)
  then
  begin
    v := T[l];
    m := l;
    for i:=l+1 to r do
      if T[i] < v
      then
      begin
        inc(m);
        echange(T[m],T[i]);
      end;
      echange(T[m], T[l]);
      tri_rapide(T,l,m-1);
      tri_rapide(T,m+1,r);
  end;
end;

10/07/2007, 17h38
safowan

c'est gentil de votre part, de me donner une implémentation éxacte et facile, merci. :oops: :P