hg Register Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index

hg Revision tunisie scolaire Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Search Search Memberlist Memberlist Usergroups Usergroups Profile Profile Log in to check your private messages Private Messages Log in Log in


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum révision tunisie , 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
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> Algorithmes de tri
hg Previous topic :: Next topic   hd
Author Message
darine


Offline

Joined: 26 Nov 2008
Posts: 15
Féminin
Point(s): 45
Moyenne de points: 0

Posted: Thu 27 Nov - 14:39 (2008)    Post subject: LE TRI PAR FUSION Reply with quote

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
Publicité






Posted: Thu 27 Nov - 14:39 (2008)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Fri 28 Nov - 10:37 (2008)    Post subject: LE TRI PAR FUSION Reply with quote

MERCI DARINE POUR VOTRE PARTAGE

 
Revenir en haut
lili


Offline

Joined: 20 Jan 2009
Posts: 1
Féminin
Point(s): 18
Moyenne de points: 0

Posted: Sat 24 Jan - 11:11 (2009)    Post subject: LE TRI PAR FUSION Reply with quote

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


Offline

Joined: 21 May 2009
Posts: 2
Masculin
Point(s): 29
Moyenne de points: 0

Posted: Thu 21 May - 14:01 (2009)    Post subject: LE TRI PAR FUSION Reply with quote

Exclamation

 
Revenir en haut
ayman


Offline

Joined: 21 May 2009
Posts: 2
Masculin
Point(s): 29
Moyenne de points: 0

Posted: Thu 21 May - 14:07 (2009)    Post subject: LE TRI PAR FUSION Reply with quote

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

Offline

Joined: 15 Jan 2010
Posts: 11
Féminin
Point(s): 11
Moyenne de points: 0

Posted: Fri 15 Jan - 22:11 (2010)    Post subject: LE TRI PAR FUSION Reply with quote

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

 
Revenir en haut
wissem wiss


Offline

Joined: 15 Oct 2009
Posts: 2
Point(s): 11
Moyenne de points: 0

Posted: Wed 27 Jan - 21:55 (2010)    Post subject: LE TRI PAR FUSION Reply with quote

merci darine  pour la méthode   Okay

 
Revenir en haut
sanaben ayed


Offline

Joined: 16 Nov 2012
Posts: 3
Féminin
Point(s): 3
Moyenne de points: 0

Posted: Sat 17 Nov - 19:03 (2012)    Post subject: LE TRI PAR FUSION Reply with quote

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

 
Revenir en haut
Contenu Sponsorisé






Posted: Today at 05:23 (2019)    Post subject: LE TRI PAR FUSION

 
Revenir en haut
Display posts from previous:   
bg bd
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> Algorithmes de tri All times are GMT + 1 Hour
 
Page 1 of 1

 
Jump to:  
Index | Make forum | Free support forum | Free forums directory | Report a violation | Conditions générales d'utilisation