Tri a bulle
Résolu/Fermé
minoucha84691
Messages postés
1
Date d'inscription
mardi 6 mai 2008
Statut
Membre
Dernière intervention
6 mai 2008
-
6 mai 2008 à 18:27
mamiemando Messages postés 33079 Date d'inscription jeudi 12 mai 2005 Statut Modérateur Dernière intervention 23 avril 2024 - 6 mai 2008 à 19:29
mamiemando Messages postés 33079 Date d'inscription jeudi 12 mai 2005 Statut Modérateur Dernière intervention 23 avril 2024 - 6 mai 2008 à 19:29
A voir également:
- Tri a bulle
- Video bulle whatsapp - Guide
- Tri excel - Guide
- Logiciel de tri de photos - Guide
- Erreur de tri dans l'agence de distribution ✓ - Forum Consommation & Internet
- Bulle d'air sous l'écran samsung ✓ - Forum Téléphones & tablettes Android
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;
mamiemando
Messages postés
33079
Date d'inscription
jeudi 12 mai 2005
Statut
Modérateur
Dernière intervention
23 avril 2024
7 749
6 mai 2008 à 19:29
6 mai 2008 à 19:29
Google dit :
https://fr.wikipedia.org/wiki/Tri_%C3%A0_bulles
Bonne chance
https://fr.wikipedia.org/wiki/Tri_%C3%A0_bulles
Bonne chance
