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
 
 
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 -> Algorithmes de tri -> Tri à bulles
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
sallem


Hors ligne

Inscrit le: 25 Nov 2008
Messages: 8
Masculin
Point(s): 85
Moyenne de points: 0

Posté le: Ven 24 Avr - 14:02 (2009)    Sujet du message: tri Répondre en citant

PublicitéSupprimer les publicités ?

TRI SELECTION:
program  tri_tableau;
uses wincrt;
type tab=Array[1..20] of Integer;
var n:Integer; T:tab;
{défintion de la procédure affichage}
Procedure Afficher (n:Integer; var T:Tab);
var i:Integer;
Begin
For i:=1 to n do
write(T[i],' ');
End;
{défintion de la procédure saisie}
Procedure Saisie (var n:Integer);
Begin
Repeat
writeln('Donner le nombre d"élément');
readln(n);
until n in [1..20];
End;
{défintion de la procédure remplir}
Procedure Remplir (n:Integer; var T:Tab);
var i:Integer;
Begin
For i:= 1 to n do
Begin
writeln('Donner l"élément n° ',i);
readln(T[i]);
End;
End;
{défintion de la procédure permuter}
Procedure Permuter (var x: integer;var y:Integer);
var z:Integer;
Begin
z:=x;
x:=y;
y:=z;
End;
{défintion de la fonction premposmin}
Function PREMPOSMIN (n,d:Integer;T:Tab):Integer;
var posmin,j:integer;
Begin
posmin:=d;
For j:=d+1 to n do
If T[j]<T[posmin] Then posmin:=j;
PREMPOSMIN:= posmin;
End;
{défintion de la tri_sélection}
procedure tri_selection ( n: integer;var T: tab);
var ppm, i: integer;
begin
for i:=1 to n-1 do
begin
ppm:= PREMPOSMIN(n,i,T);
if T[ppm] <> T[i] then
Permuter(T[i],T[ppm]);
END;
END;
{défintion du programme principal}
begin
saisie(n);
remplir(n,T);
tri_selection(n,T);
afficher(n,T);
end.
TRI BULLES:

program  tri_tableau;
uses wincrt;
type tab=Array[1..20] of Integer;
var n:Integer; T:tab;
{défintion de la procédure affichage}
Procedure Afficher (n:Integer; var T:Tab);
var i:Integer;
Begin
For i:=1 to n do
write(T[i],' ');
End;
{défintion de la procédure saisie}
Procedure Saisie (var n:Integer);
Begin
Repeat
writeln('Donner le nombre d"élément');
readln(n);
until n in [1..20];
End;
{défintion de la procédure remplir}
Procedure Remplir (n:Integer; var T:Tab);
var i:Integer;
Begin
For i:= 1 to n do
Begin
writeln('Donner l"élément n° ',i);
readln(T[i]);
End;
End;
{défintion de la procédure permuter}
Procedure Permuter (var x: integer;var y:Integer);
var z:Integer;
Begin
z:=x;
x:=y;
y:=z;
End;
{défintion de la tri_bulles}
procedure tri_bulles ( n: integer; var T: tab);
var i: integer;
permut: boolean;
begin
repeat
permut:= false;
for i:= 1 to n-1 do
begin
If T[i]>T[i+1] Then
begin
permuter(T[i],T[i+1]);
permut:=true;
end;
end;
n:=n-1;
until (n=1) or  (permut= false);
end;
{défintion du programme principal}
begin
saisie(n);
remplir(n,T);
tri_bulles(n,T);
afficher(n,T);
end.
TRI INSERTION:

program  tri_tableau;
uses wincrt;
type tab=Array[1..20] of Integer;
var n:Integer; T:tab;
{défintion de la procédure affichage}
Procedure Afficher (n:Integer; var T:Tab);
var i:Integer;
Begin
For i:=1 to n do
write(T[i],' ');
End;
{défintion de la procédure saisie}
Procedure Saisie (var n:Integer);
Begin
Repeat
writeln('Donner le nombre d"élément');
readln(n);
until n in [1..20];
End;
{défintion de la procédure remplir}
Procedure Remplir (n:Integer; var T:Tab);
var i:Integer;
Begin
For i:= 1 to n do
Begin
writeln('Donner l"élément n° ',i);
readln(T[i]);
End;
End;
{défintion de la tri_insertion}
procedure tri_insertion ( n: integer;var T: tab);
var aux,i,p: integer;
begin
for i:= 2 to n do
begin
p:=i;
aux:=T[i];
While (T[p-1]>aux) and (p>1) do
begin
T[p]:=T[p-1];
p:=p-1;
END;
T[p]:=aux;
end;
end;
{défintion du programme principal}
begin
saisie(n);
remplir(n,T);
tri_insertion(n,T);
afficher(n,T);
end.


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

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

Posté le: Sam 25 Avr - 14:40 (2009)    Sujet du message: tri Répondre en citant

MERCI POUR CE PARTAGE

 
Revenir en haut
hmed
recent membre
recent membre

Hors ligne

Inscrit le: 20 Juin 2009
Messages: 19
Masculin
Point(s): 226
Moyenne de points: 0

Posté le: Sam 20 Juin - 19:46 (2009)    Sujet du message: tri Répondre en citant

merci pour le partage

 
Revenir en haut
awatef


Hors ligne

Inscrit le: 28 Nov 2008
Messages: 3
Féminin
Point(s): 34
Moyenne de points: 0

Posté le: Mar 20 Oct - 11:37 (2009)    Sujet du message: tri Répondre en citant

salut tous le monde, je cherche des séquences animées concernant les types de tri : à bulles, par insertion, par sélection, ... pour mieux expliquer ça aux élèves. je me demande si vous pouvez me les faire partager . Merci d'avance
_________________
Merci d'être ensemble pour le bien de l'informatique.


 
Revenir en haut
mizouu19
recent membre
recent membre

Hors ligne

Inscrit le: 25 Mai 2009
Messages: 15
Masculin
Point(s): 39
Moyenne de points: 0

Posté le: Mar 12 Jan - 18:46 (2010)    Sujet du message: tri Répondre en citant

svp des exercices de tri pou 4si

 
Revenir en haut
med kh


Hors ligne

Inscrit le: 18 Jan 2010
Messages: 5
Point(s): 5
Moyenne de points: 0

Posté le: Mar 19 Jan - 09:01 (2010)    Sujet du message: tri Répondre en citant

ya3tik sa7a

 
Revenir en haut
r.nsiri
recent membre
recent membre

Hors ligne

Inscrit le: 09 Jan 2009
Messages: 262
Masculin
Point(s): 304
Moyenne de points: 0

Posté le: Jeu 18 Fév - 07:38 (2010)    Sujet du message: tri Répondre en citant

Okay Okay Okay Okay Okay
_________________
Cordialement


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 17:00 (2016)    Sujet du message: tri

 
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 -> Algorithmes de tri -> Tri à bulles 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