Tri à bulles
Forum INFOMATH :: Enseignement de l'informatique :: Informatique - Collège & Lycée :: Exercices Pascal
Page 1 sur 1•
Tri à bulles
exercice
Ecrire un programme qui affecte des valeurs aléatoires comprises entre 13 et 50 (inclus) à un tableau de 10 entiers, trie le tableau par ordre croissant et l'affiche.
Commentaire :
Il s'agit là d'une des opérations assez fréquentes sur les tableaux, les classer suivant un certain ordre. L'algorithme utilisé est un l'algorithme de tri par permutation ou tri-bulles ; il existe de nombreux autres algorithmes pour le triage, notamment l'algorithme de tri par extraction et l'algorithme de tri par insertion.
Ecrire un programme qui affecte des valeurs aléatoires comprises entre 13 et 50 (inclus) à un tableau de 10 entiers, trie le tableau par ordre croissant et l'affiche.
Commentaire :
Il s'agit là d'une des opérations assez fréquentes sur les tableaux, les classer suivant un certain ordre. L'algorithme utilisé est un l'algorithme de tri par permutation ou tri-bulles ; il existe de nombreux autres algorithmes pour le triage, notamment l'algorithme de tri par extraction et l'algorithme de tri par insertion.
Re: Tri à bulles
salu la reponse est :
program aleatrie;
uses wincrt;
var
tableau: array[1..10] of integer;
i, j: integer;
aux: integer;
begin
clrscr;
randomize;
for i := 1 to 10 do
tableau[i] := random(37) + 13;
for i := 1 to 10 do
write(tableau[i]: 7);
for i := 2 to 10 do
begin
for j := 10 downto i do
begin
if (tableau[j - 1] > tableau[j]) then
begin
aux := tableau[j - 1];
tableau[j - 1] := tableau[j];
tableau[j] := aux;
end;
end;
end;
writeln;
for i := 1 to 10 do
write(tableau[i]: 7);
readln;
end.
program aleatrie;
uses wincrt;
var
tableau: array[1..10] of integer;
i, j: integer;
aux: integer;
begin
clrscr;
randomize;
for i := 1 to 10 do
tableau[i] := random(37) + 13;
for i := 1 to 10 do
write(tableau[i]: 7);
for i := 2 to 10 do
begin
for j := 10 downto i do
begin
if (tableau[j - 1] > tableau[j]) then
begin
aux := tableau[j - 1];
tableau[j - 1] := tableau[j];
tableau[j] := aux;
end;
end;
end;
writeln;
for i := 1 to 10 do
write(tableau[i]: 7);
readln;
end.
Re: Tri à bulles
Salut,
je te remercie pirate pour tes nombreuses interventions. On attend de toi à ce que tu postes des questions plus difficiles dont tu connais pas la réponse.
Ca va plaire à tout le monde.
Merci.
B.NabiL
je te remercie pirate pour tes nombreuses interventions. On attend de toi à ce que tu postes des questions plus difficiles dont tu connais pas la réponse.
Ca va plaire à tout le monde.
Merci.
B.NabiL

nabiL- Admin


- Messages : 1972
Inscrit le : 19 Mar 2007
Localisation : Tunisie
Feuille de personnage
Capacité linguistique:


(999/1000)
Re: Tri à bulles
pirate a écrit:exercice
Ecrire un programme qui affecte des valeurs aléatoires comprises entre 13 et 50 (inclus) à un tableau de 10 entiers, trie le tableau par ordre croissant et l'affiche.
Commentaire :
Il s'agit là d'une des opérations assez fréquentes sur les tableaux, les classer suivant un certain ordre. L'algorithme utilisé est un l'algorithme de tri par permutation ou tri-bulles ; il existe de nombreux autres algorithmes pour le triage, notamment l'algorithme de tri par extraction et l'algorithme de tri par insertion.
Salut pirate,
Est-ce que tu peux me donner une liste d'algorithmes de tri qu'on étudie au lycée? je ne cherche pas les algo de tri compliqués tels que QUICK-SORT etc... et si t'as vraiment le temps, file-moi (nous) une description en 2 mots de chaque algorithme.
merci beaucoup!
methodiX

methodiX- Admin


- Messages : 811
Inscrit le : 22 Mar 2007
Localisation : marsa - IPEST
Feuille de personnage
Capacité linguistique:


(1000/1000)





