Tri d'un nuage de points selon leurs coordonnées croissantes en X et Y

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 597 fois - Téléchargée 6 fois

Contenu du snippet

{-------------------------------------------------------------------------------
 Tri à Bulle appliqué à un nuage de Tpoint ;
 Le tableau est classé par ordre croissant de valeur des abcisses X puis 
en cas d'égalité de X sur les ordonnées Y. 
-------------------------------------------------------------------------------}
Procedure TriNuagePoints(Var Tab : Array Of TPoint; Nvaleur : LongInt);
  Var i,j,tx,ty : Integer;
  procedure permute;
  begin
    tx      := Tab[i].X;
    ty      := Tab[i].Y;
    Tab[i].X:= Tab[j].X;
    Tab[i].Y:= Tab[j].Y;
    Tab[j].X:= tx;
    Tab[j].Y:= ty;
  end;
Begin
  For i:=0 To NValeur -1 Do
    For j:=i+1 To NValeur - 1 Do
      If Tab[i].X > Tab[j].X
        Then permute
        else if Tab[i].X = Tab[j].X then
             If Tab[i].Y > Tab[j].Y Then permute;
End;


Compatibilité : Delphi 5

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.