Rechercher : dans
Par :

Algo tri shell+ tri rapide+ tri fusion

Dernière réponse le 20 mai 2009 à 23:23:21 sydney, le 30 mar 2009 à 19:48:38 
 Signaler ce message aux modérateurs

Bonjour,
svp donner moi les algorithmes des tri suivants:
*tri shell
*tri rapide
*tri fusion

as soon as possible please.

Configuration: Windows XP
Firefox 3.0.1

Meilleures réponses pour « algo tri shell+ tri rapide+ tri fusion » dans :
Tri Shell -Recursive- Voir Voici une procédure récursive qui permet de trier un tableau de n entiers en utilisant la méthode de tri Shell : Procedure Tri_Shell_Rec (Var t: TAB; n,h : integer); Var aux,i : integer; begin If h > 0 Then Begin If n > h...
Tri par fusion - récursivité- VoirVoici une procédure récursive qui permet de trier un tableau de n entiers en utilisant la méthode de tri par fusion : Procedure Tri_Fusion (Var t : TAB; g, d : integer); Var m, i, j, k : integer; s : TAB; Begin If d > g Then ...
Tri à bulles -récursivité- VoirVoici une procédure récursive qui permet de trier un tableau de n entiers en utilisant la méthode de tri à bulles : Procedure Tri_bulles (var t : TAB; n : integer); Var i, aux : integer; Function Trier (t : TAB; n : integer) : Boolean; ...
Remettre l'icône Bureau dans la barre de lancement rapide VoirRemettre l'icône Bureau dans la barre de lancement rapide Si l'icône du bureau n'est plus affichée dans le lancement rapide, cet article vous aidera à recréer ce raccourci. Fonction de l'icône Bureau Première méthode pour recréer le...
SQL - Tri VoirTri des résultats Il est possible en SQL d'organiser les résultats grâce à la clause ORDER BY. La clause ORDER BY est suivie des mots clés ASC ou DESC, qui précisent respectivement si le tri se fait de manière croissante (par défaut) ou...
Linux - Le shell VoirIntroduction au shell L'interpréteur de commandes est l'interface entre l'utilisateur et le système d'exploitation, d'où son nom anglais «shell», qui signifie «coquille». Le shell est ainsi chargé de faire l'intermédiaire le système...
Systèmes UNIX - Le shell VoirIntroduction au shell L'interpréteur de commandes est l'interface entre l'utilisateur et le système d'exploitation, d'où son nom anglais «shell», qui signifie «coquille». Le shell est ainsi chargé de faire l'intermédiaire entre le système...

1

Kharec, le 30 mar 2009 à 19:52:16
  • +2

Cherche un peu, fainéasse...


=)

Répondre à Kharec

3

mr_tic, le 20 mai 2009 à 23:07:43

Procedure tri_rapid(var t:tab;g,d:integer);
begin
if g<d
then
begin
pivot:=g;
p:=g;
end;
for i:=pivot+1 to d do
begin
if t[i]<t[pivot]
then
p:=p+1;
if i<>p
then
pemut(t[i],t[p]);
end;
permut(t[p],t[pivot]);
tri_rapide(t,g,p-1);
tri_rapide(t,p+1,g);
end;
end.

c'est mieux pour vous

Répondre à mr_tic

4

 mr_tic, le 20 mai 2009 à 23:23:21
  • +1

Program principal

pas:=pas_max(n);


procedure tri_shell(var t:tab;n,pas:integer);
begin
repeat
pas:=pas div 3;
for i:= pas to n do
begin
aux:=t[i];
j:=i;
while (t[j-pas]>aux and j>pas) do
begin
t[j]:=t[j-pas];
j:=j-pas;
end;
t[j]:=aux;
end;
until pas=1;
end.

#****pas max******#

function pas_max(n:integer):integer;
begin
pas:=1;
repeat
pas:=3*pas+1;
until pas >=n;
end.


c mieux pour voux
vive le RoCk **********metal*******

Répondre à mr_tic