
ok oublions le code qui est dans le lien

on va décortiquer ta procédure :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
procedure tri_insertion(n : integer ; var t : tab );
var
x :integer ;// i non déclaré j non déclaré
begin
for i:= 2 to n do
begin
j:=i ; j=i-1 le premier élément tu le considère comme trié :?
while (t[j] <t[j-1]) and (j > 1) do
begin
x:=t[j] ;
t[j]:=t[j-1];
t[j-1]:=x;
j:=j-1 ;
end;
end;
end; |
Voila
pour la version récursif qui mon sens n'a aucun avantage

je ne l'a ferais pas par respect à la prog

.
Cordialement @+
Partager