Tri! : methode Recursive !!!!
2 participants
Page 1 sur 1
Tri! : methode Recursive !!!!
la methode de tri la plus deficille
tri a bule
Un message a faire passé a vous toute c'est hafedh le plus fort au programmation
tri a bule
Un message a faire passé a vous toute c'est hafedh le plus fort au programmation
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;
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;
Mohamedh hafedh bellil- Messages : 7
Date d'inscription : 24/10/2008
RE
ok hafedh J'ai bien reçu votre message !!
Je cherche le programme de tri par sélection, est ce que tu peux m aidé ?
Je cherche le programme de tri par sélection, est ce que tu peux m aidé ?
Tri par insertion !
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!
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|