FORUM MP | Algorithmes : trier un tableau à n element

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Serv: irc.irc-land.org

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

trier un tableau à n element
	Forum : ALGORITHMES Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ ALGORITHMES
		SUIVI PAR MAIL INACTIF
		SUJET NON RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM ALGORITHMES
	Page précedente	Page suivante

grace
Nouveau membre

Inscrit : 14/03/2008
Messages : 1

#150626 Posté le 14/03/08 à 14:03

bonjour si vous pouvez m'aider j'aimerai trier un tableau à n élement avec les differents algorithmes de tri en pascal pouvez vous m'aider s'il vous plait merci d'avance

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

rainbow
Membre du club
Chef de projet(s) :
- IA savane
- Team MoteurProg

Inscrit : 26/05/2006
Messages : 926

#150644 Posté le 14/03/08 à 19:24

Où est ton problème? Tu n'arrives pas à implémenter ton algo en pascal ou tu n'arrives pas à le faire ?
En quoi consiste l'algo demandé ?
__________________________
............ Curtis: RTS 3D ..............
......

........... TeamMoteurProg...........

HAUT DE PAGE

gargout
Membre newbie

Inscrit : 29/12/2006
Messages : 33

#150703 Posté le 16/03/08 à 17:28

Voici 3 procédures (tri à bulles, séléction et insertion) je les ai pris de mes propres TP réalisés sous turbo pascal, ce qui est mis entre accolades constitue un commentaire ;)

{---- Procédure Tri à bulles ----}
procedure tri_bulles(var t:tab; n:integer);
var test:boolean;
i:integer;
begin
Repeat
test:=true; {INIT.}
For i:=1 to n-1 do
begin
if t[i]>t[i+1] then
begin
permut(t[i],t[i+1]);
test:=false;
end;
end;
Until test; {Répéter jusqu'à ce qu'aucune permutation n'est éxecuté et qui est signalé par test}
end;

{---- Procédure Tri par séléction ----}
procedure tri_selection(var t:tab; n:integer);
var i,j,imin:integer;
begin
for i:=1 to n-1 do
begin
imin:=i; {on cherche le min dans la partie i+1..n pour chaque valeur de i donnée}
for j:=i+1 to n do
begin
if t[imin]>t[j] then imin:=j; {imin reçoit l'indice de l'élément qui lui est inférieur}
end;
permut(t[i],t[imin]); {une fois le minimum trouvé on le permute sa valeur avec t[i]}
end;
end;

{--- PROCEDURE TRI PAR INSERTION ---}
Procedure tri_insertion(var t:tab; n:integer);
var i,j,aux:integer;
Begin
For i:=2 to n do
Begin
aux:=t[i]; {on range t[i] dans une variable temporaire}
j:=i;
While (t[j-1]>aux) AND (j>1) Do
{on le compare avec les i-1 éléments tout en décalant les éléments qui lui ont supérieur}
Begin
t[j]:=t[j-1];
j:=j-1;
End;
t[j]:=aux; {on s'arrête avant l'élément qui lui est inférieur et on le range dans sa bonne position}
End;
End;

HAUT DE PAGE


	Page précédente	Page suivante
FORUM ALGORITHMES

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.