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