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 ...
Solution de trie rapide
 
 
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 -> `··._.·`·.¸¸.·´´Cours¯`··._.·`·.,¸¸,.·´¯
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
Mechergui haythem
recent membre
recent membre

Hors ligne

Inscrit le: 01 Déc 2008
Messages: 13
Point(s): 150
Moyenne de points: 0

Posté le: Lun 1 Déc - 11:21 (2008)    Sujet du message: Solution de trie rapide Répondre en citant

PublicitéSupprimer les publicités ?
Code:
[size=12]const MAX_VAL = 200;[/size]
Code:

[size=12] [/size]
Code:

[size=12]type tab_entier = array [1..MAX_VAL] of integer;[/size]
Code:

[size=12] [/size]
Code:

[size=12]procedure tri_rapide(deb, fin : integer ; var t : tab_entier);[/size]
Code:

[size=12]var[/size]
Code:

[size=12]    i, p : integer;[/size]
Code:

[size=12]    mid, aux : integer;[/size]
Code:

[size=12]begin[/size]
Code:

[size=12]    (* si fin > deb alors le tableau nécessite d'être trié*)[/size]
Code:

[size=12]    if (fin > deb) then begin[/size]
Code:

[size=12]        (* choisir le milieu du tableau comme pivot *)[/size]
Code:

[size=12]        mid := (deb + fin) div 2; [/size]
Code:

[size=12] [/size]
Code:

[size=12]        (* [/size]
Code:

[size=12]         mettre l'élément pivot au début afin de pouvoir parcourir [/size]
Code:

[size=12]         le tableau en continu.[/size]
Code:

[size=12]        *)[/size]
Code:

[size=12]        aux := t[mid]; [/size]
Code:

[size=12]        t[mid] := t[deb]; [/size]
Code:

[size=12]        t[deb] := aux;[/size]
Code:

[size=12] [/size]
Code:

[size=12]        (*[/size]
Code:

[size=12]         parcourir le tableau tout en amenant les éléments infèrieurs à[/size]
Code:

[size=12]         l'élément pivot au début de la plage[/size]
Code:

[size=12]        *)[/size]
Code:

[size=12]        p := deb;[/size]
Code:

[size=12]        for i:=deb+1 to fin do begin[/size]
Code:

[size=12]            if (t[i] < t[deb]) then begin[/size]
Code:

[size=12]                p := p + 1;[/size]
Code:

[size=12]                aux := t[i];[/size]
Code:

[size=12]                t[i] := t[p];[/size]
Code:

[size=12]                t[p] := aux;[/size]
Code:

[size=12]            end;[/size]
Code:

[size=12]        end;[/size]
Code:

[size=12] [/size]
Code:

[size=12]        (* [/size]
Code:

[size=12]            mettre le pivot à la position adéquate càd [/size]
Code:

[size=12]            à la suite des éléments qui lui sont inférieurs[/size]
Code:

[size=12]        *)[/size]
Code:

[size=12]        aux := t[p]; [/size]
Code:

[size=12]        t[p] := t[deb]; [/size]
Code:

[size=12]        t[deb] := aux;[/size]
Code:

[size=12] [/size]
Code:

[size=12]        tri_rapide(deb, p - 1, t); (* trie le sous tableau à gauche *)[/size]
Code:

[size=12]        tri_rapide(p + 1, fin, t); (* trie le sous tableau à droite *)[/size]
Code:

[size=12]    end;[/size]
Code:

[size=12]end;[/size]

 


 
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: Lun 1 Déc - 11:24 (2008)    Sujet du message: Solution de trie rapide Répondre en citant

merci haythem pour ce partage Okay

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 19:25 (2016)    Sujet du message: Solution de trie rapide

 
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 -> `··._.·`·.¸¸.·´´Cours¯`··._.·`·.,¸¸,.·´¯ 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