Tri a bulle
Résolu
Bonjour,
je veu avoir un program en pascal d un tri a bulle d un vecteur croissant c est urgent merci
je veu avoir un program en pascal d un tri a bulle d un vecteur croissant c est urgent merci
Configuration: Windows XP Internet Explorer 6.0
A voir également:
- Tri a bulle
- Tri sur excel - Guide
- Logiciel tri photo - Guide
- Whatsapp couleur bulle - Accueil - Messagerie instantanée
- Info bulle excel ✓ - <a href="https://forums.commentcamarche.net/forum/excel-145">Forum Excel</a>
- Bulle sur contact sms ✓ - <a href="https://forums.commentcamarche.net/forum/telephones-tablettes-apple-409">Forum Téléphones & tablettes Apple</a>
2 réponses
bonjour voila un programme
procedure trier_shel(n:entier ; var t:tab);
procedure shell (n: integer ; var t:tab ) ;
var p,i,j,valeur: integer;
begin
p:=0;
while p < n do
p:= 3*p+1;
while p > 0 do
begin
p:=p div 3;
for i:= p to n do
begin
valeur:=t[i];
j:=i;
while (j > p-1) and (t[j-p] > valeur ) do
begin
t[j]:=t[j-p];
j:=j-p;
end;
t[j]:=valeur;
end;
end;
end;
procedure trier_shel(n:entier ; var t:tab);
procedure shell (n: integer ; var t:tab ) ;
var p,i,j,valeur: integer;
begin
p:=0;
while p < n do
p:= 3*p+1;
while p > 0 do
begin
p:=p div 3;
for i:= p to n do
begin
valeur:=t[i];
j:=i;
while (j > p-1) and (t[j-p] > valeur ) do
begin
t[j]:=t[j-p];
j:=j-p;
end;
t[j]:=valeur;
end;
end;
end;
