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 ...
LE TRI PAR FUSION
 
 
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 -> Algorithmes de tri
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
darine


Hors ligne

Inscrit le: 26 Nov 2008
Messages: 15
Féminin
Point(s): 45
Moyenne de points: 0

Posté le: Jeu 27 Nov - 14:39 (2008)    Sujet du message: LE TRI PAR FUSION Répondre en citant

PublicitéSupprimer les publicités ?
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
KARIMOS
Administrateur

Hors ligne

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

Posté le: Ven 28 Nov - 10:37 (2008)    Sujet du message: LE TRI PAR FUSION Répondre en citant

MERCI DARINE POUR VOTRE PARTAGE

 
Revenir en haut
lili


Hors ligne

Inscrit le: 20 Jan 2009
Messages: 1
Féminin
Point(s): 18
Moyenne de points: 0

Posté le: Sam 24 Jan - 11:11 (2009)    Sujet du message: LE TRI PAR FUSION Répondre en citant

on peut aussi ecrire le tri fusion de cette manière, comme ça on évitera les tests et les boucles lorsqu'on n'a plus d'éléments dans l'un des deux tableaux:

Procedure Tri_fusion (Var t: w; d,f : integer);
Var m : integer;
procedure fusion(var t:w;d,f:integer);
var c,c1,c2,m:integer;t2:w;
begin
  m:=(d+f) div 2;
  c1:=d;
  c2:=m+1;
  for c:=d to f do
    begin
      if ((t[c1]<t[c2]) and (c1<=m)) or (c2>f)
         then
           begin
             t2[c]:=t[c1];
             c1:=c1+1;
           end
         else
           begin
             t2[c]:=t[c2];
             c2:=c2+1;
           end;
    end;
  for c:=d to f do
    t[c]:=t2[c];
end;
begin
    If d < f Then
             begin
               m:=(f+d) div 2;
               tri_fusion(t,d,m);
               tri_fusion(t,m+1,f);
               fusion(t,d,f);
               affiche(d,f,t);
             end;
End;


 
Revenir en haut
ayman


Hors ligne

Inscrit le: 21 Mai 2009
Messages: 2
Masculin
Point(s): 29
Moyenne de points: 0

Posté le: Jeu 21 Mai - 14:01 (2009)    Sujet du message: LE TRI PAR FUSION Répondre en citant

Exclamation

 
Revenir en haut
ayman


Hors ligne

Inscrit le: 21 Mai 2009
Messages: 2
Masculin
Point(s): 29
Moyenne de points: 0

Posté le: Jeu 21 Mai - 14:07 (2009)    Sujet du message: LE TRI PAR FUSION Répondre en citant

voila la bonne methode de tri par fusion recursive
procedure tri fusion(t:tab,tmp:entier,debut,fin:entier)
si(debut<fin)alors
entier milieu<--(debut+fin)/2
trifusionr(tab,tmp,debut,milieu)
trifusionr(tab,tmp,milieu+1,fin)
fusion(tab,tmp,debut,milieu,fin);
fin si
fin tri fusion

bonne chance pour le bac Okay


 
Revenir en haut
mekkaoui_rakya
recent membre
recent membre

Hors ligne

Inscrit le: 15 Jan 2010
Messages: 11
Féminin
Point(s): 11
Moyenne de points: 0

Posté le: Ven 15 Jan - 22:11 (2010)    Sujet du message: LE TRI PAR FUSION Répondre en citant

merci mais la methode de derine est la plus simple ...merci darine Okay

 
Revenir en haut
wissem wiss


Hors ligne

Inscrit le: 15 Oct 2009
Messages: 2
Point(s): 11
Moyenne de points: 0

Posté le: Mer 27 Jan - 21:55 (2010)    Sujet du message: LE TRI PAR FUSION Répondre en citant

merci darine  pour la méthode   Okay

 
Revenir en haut
sanaben ayed


Hors ligne

Inscrit le: 16 Nov 2012
Messages: 3
Féminin
Point(s): 3
Moyenne de points: 0

Posté le: Sam 17 Nov - 19:03 (2012)    Sujet du message: LE TRI PAR FUSION Répondre en citant

coment peut on trier un tableau d'une maniere indirect  et merrrci

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 14:41 (2016)    Sujet du message: LE TRI PAR FUSION

 
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 -> Algorithmes de tri 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