hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
Tri à bulles
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Ven 26 Fév - 14:42 (2010)    Sujet du message: Tri à bulles Répondre en citant

PublicitéSupprimer les publicités ?
Ecrire un programme pascal permettant de remplir un tableau t au hasard et de le trier par la méthode de tri à bulles et de l'afficher.

correction
Code:

program tri_bulle;
uses wincrt;
const n=20;
type tab=array[1..n] of integer;
var t:tab;
 
 
{--------------------------------------}
 
procedure PROC_remplir(var t:tab);
var i:integer;
 
begin
randomize;
for i:=1 to n do
begin
t[i]:=random(5);
end;
end;
 
{----------------------------------------}
 
procedure PROC_afficher(t:tab);
var i:integer;
 
begin
for i:=1 to n do
write(' ',t[i],' ');
end;
 
{--------------------------------------}
 
procedure PROC_permute(var t:tab; x,y:integer);
var z:integer;
 
begin
z:=t[x];
t[x]:=t[y];
t[y]:=z;
end;
 
{--------------------------------------}
 
procedure PROC_tri(var t:tab);
var i:integer;
    stop:boolean;
 
begin
repeat
stop:=true;
      for i:=1 to n-1 do
      begin
      if t[i]>t[i+1]
      then
          begin
          PROC_permute(t,i,i+1);
          stop:=false;
          end;     
      end;
until stop=true;
end;
 
{--------------------------------------}
 
BEGIN
 
PROC_remplir(t);
PROC_afficher(t);
PROC_tri(t);
writeln;
PROC_afficher(t);
 
END.


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 17:15 (2016)    Sujet du message: Tri à bulles

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation