Tri! : methode Recursive !!!!

Voir le sujet précédent Voir le sujet suivant Aller en bas

Tri! : methode Recursive !!!!

Message  Mohamedh hafedh bellil le Mer 26 Nov - 17:41

la methode de tri la plus deficille
tri a bule tongue What a Face
Un message a faire passé a vous toute c'est hafedh le plus fort au programmation lol!

Procedure Tri_bulles (var t : TAB; n : integer);
Var i, aux : integer;
Function Trier (t : TAB; n : integer) : Boolean;
Var ok : boolean; i : integer;
Begin
ok := true; i := 1;
Repeat
If t[i + 1] < t[i] Then ok := false
Else i := i + 1;
Until ((Not ok) or (i >= n));
Trier := ok;
End;
Begin
If Not Trier (t, n) Then
Begin
For i := 1 To n - 1 Do
If t[i] > t[i + 1] Then
Begin
aux := t[i];
t[i] := t[i + 1];
t[i + 1] := aux;
End;
Tri_bulles (t, n);
End;
End;
avatar
Mohamedh hafedh bellil

Messages : 7
Date d'inscription : 24/10/2008

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

RE

Message  Saafi RAMI le Mer 26 Nov - 20:51

ok hafedh J'ai bien reçu votre message !! lol!
Je cherche le programme de tri par sélection, est ce que tu peux m aidé ?
avatar
Saafi RAMI

Messages : 37
Date d'inscription : 16/10/2008
Age : 27

Voir le profil de l'utilisateur http://www.imraude.skyrock.com

Revenir en haut Aller en bas

Tri par insertion !

Message  Saafi RAMI le Mer 26 Nov - 23:17


je propose cette solution pour la tri par insertion :

Procedure Tri_Ins (Var t: tab; n: integer);
Var aux,i : integer;
begin
If n > 1 then
begin
Tri_Ins (t,n - 1);
If t[n] < t[n - 1] Then
Begin
aux:= t[n];
i := n;
Repeat
t[i] := t[i - 1];
i := i - 1;
Until (i = 1) Or (aux > t[i - 1]);
t[i] := aux;
end;


j attend encore votre réponse Hafedh!
avatar
Saafi RAMI

Messages : 37
Date d'inscription : 16/10/2008
Age : 27

Voir le profil de l'utilisateur http://www.imraude.skyrock.com

Revenir en haut Aller en bas

Re: Tri! : methode Recursive !!!!

Message  Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum