Discussion :

[safowan]

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.

[droggo]

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 :

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

[safowan]

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