hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
Tri Fusion Recursif !
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Aidez-moi
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
Aymen092


Hors ligne

Inscrit le: 30 Déc 2009
Messages: 6
Masculin
Point(s): 6
Moyenne de points: 0

Posté le: Jeu 21 Jan - 14:52 (2010)    Sujet du message: Tri Fusion Recursif ! Répondre en citant

PublicitéSupprimer les publicités ?
SVP je cherche l'algorithme du tri fusion récursif et Merci !!


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Jeu 21 Jan - 15:28 (2010)    Sujet du message: Tri Fusion Recursif ! Répondre en citant

Voici une procédure récursive qui permet de trier un tableau de n entiers en utilisant la méthode de tri par fusion :

Code:

Procedure Tri_Fusion (Var t : TAB; g, d : integer);
Var
   m, i, j, k : integer;
   s : TAB;
Begin
     If d > g Then
     Begin         
          m := (g + d) Div 2;
          Tri_Fusion (t, g, m);
          Tri_Fusion (t, m + 1, d);
         
       For i := m DownTo g Do
              s[i] := t[i];
         
       For j := m + 1 To d Do
              s[d + m + 1 - j] := t[j];
         
       i := g; j := d;
          For k := g To d Do
          Begin
               If s[i] < s[j] Then
               Begin
                    t[k] := s[i];
                    i := i + 1;
               End
               Else
                   Begin
                         t[k] := s[j];
                         j := j - 1;
                   End;
          End;
     End;
End;


 
Revenir en haut
Aymen092


Hors ligne

Inscrit le: 30 Déc 2009
Messages: 6
Masculin
Point(s): 6
Moyenne de points: 0

Posté le: Ven 5 Fév - 16:13 (2010)    Sujet du message: Tri Fusion Recursif ! Répondre en citant

merci beaucoup pour l'aide !

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 17:21 (2016)    Sujet du message: Tri Fusion Recursif !

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Aidez-moi Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation