exercice pascal"trie" Fermé

Question

Bonjour,
je veux trie un tableau d'entiers de 20 par exemple pettent m'expliquer comment faire ou je peut trouver sur internet la solution

king_taba · Accepted Answer

ona trois types d'algorithmes de trie par sélection ,par insertion ou a bull
 procedure trie_par_selection(var t:tab ; n:integer); 
var 
i,j,y,m:integer; 
begin 
for i := 1 to n-1 do 
begin 
m:=i; 

for j := i to n do 
begin 
if t[j]<t[m] then 
begin 
y:=t[i]; 
t[i]:=t[m]; 
t[m]:=y; 
end; 
end; 

end; 
end;

AMOULA_info · Answer

bonjour abdel2007
il existe plusieurs methode pour le tri d'un tableau ( à bulle, par insertion par selection ....)
voila la methode de tri à bulle en pascal
procedure tri(var t: vecteur; n : integer);
var e: boolean;
i,z: integer;
begin
repeat
e:= false;
for i := 1 to n-1 do
          if  t[i]>t[i+1] then
             begin
                  z:=t[i];
                  t[i]:=t[i+1]; 
                  t[i+1]:=t[i];
                  e:= true;
             end;
until e = false;
end;

informatique4_taba · Answer

on utikise la methode de trie à bulle on compare le premier element avec le suivant et si le deuxieme est superieure au premier on affecte la permutation en fesant l'appel au fonction permuter.
Selmi Rochdi

informatique4_taba · Answer

procedure trie_par_selection(var t:tab ; n:integer);
var
i,j,y,m:integer;
begin
for i := 1 to n-1 do
begin
 m:=i; 
 
for j := i to n do
     begin
     if t[j]<t[m] then
      begin
        y:=t[i];
         t[i]:=t[m];
          t[m]:=y;
      end;
    end;

 end;
end;

 {Ahmed Saidi 4SI}

informatique4_taba · Answer

on peut faire le trie d'un tableau selon plusieurs methode : trie par insertion , trie à bulle, trie par selection ,trie à shell 
le plus simple c'est le trie à bulle 
procedure bulle (var t:tab;n:integer);
var
k: boolean;
i,r:integer;
begin
repeat
r:=false;
for i:= 1 to n-1 do
begin
if t[i]>t[i+1] then
begin
k:=t[i];
t[i]:=t[i+1};
t[i+1]:=t[i];
k:=true;
end;
until(k=false);
end;

informatique4_taba · Answer

on peut le trier par l'Analyse suivante:



pour i de 1 à n faire
si t[i+1]>t[i] alors
permuter(t[i],t[i+1]
fin si
fin pour

informatique4_taba · Answer

on utilise le methode trie abule on compare le premie par le deusime et on faire la permutation

abdel2007 · Answer

je veux avoir d'autre de tri avancer oui je connaus les solution  iterative comme la selction ou bull tu peu m'aider à une solution recurssiev pour le tri par selection

informatique4_taba · Answer

on peut trier un tableau de 20 elements:par la methode de tri par selection.
algrithme suivant
program tri_selection;
uses wincrt;
type
tab=array [1..20]of integer;
var
{declararation des objets  globeaux}
procedure saisie(t,n)
procedure tri(t:tab,n:integer);
var
i:integer;
for i:=2 to n do
if t[1]<t[i] then
t[1]:=t[i];
end;
procedure affichage(t,n);

informatique4_taba · Answer

on peut realiser le tri d'un tableau par plusieurs méthodes citons le tri à bulle, le tri par selection, le tri par insertion, le tri à shell...
voici une simple methode: vous pouvez affecter la recherche du maximum de ce tableau , le stocker dans un nouveau tableau puis effacer  cet élément du premier tableau et ainsi de suite.



{MK 4SI_taba}

abdel2007 · Answer

merci mais je cherche des solutions avancer on a depaser en cours les traitement iterative et en cherche des solution recursif des programme qui s'appelle elle meme.

'rim'_taba · Answer

Hi;
sorry i don't know it .

ahm_taba · Answer

salu Ms Adel
 bon pour les programme de tries qui utilisent des methodes recursives, je suis en cour de recherche une methode lorsque je la trouve j'vai l'ecrire mais pour le moment vous pouvez consultez www.developper.com

informatique4_taba · Answer

{saidi meryem :je souhaite que ma solution est correcte   n'est ce pas?????????????, }
 { la solution:}
k:=t[1];
{  pour i de 1 a 20 faire 
  begin
     if t[i]<k then
      permut (k,t[i]);

 }
  
{ mais non je sais que je ne trouve pas la solution maintenant et je veus chercher autre fois}
*****merci *****
   ***********merci ***************

informatique4_taba · Answer

program exercice;
 uses wincrt;
type 
tab=array[1..20]of integer;
var
t:tab;
n:integer;
procedure saisie(var n:integer);
begin
    repeat
read(n)
until(n >20);
end;
procedure trie (var t;tab;n:integer)
var
i:integer;
begin
for i:=1 to n-1 do
begin
if t[i+1]>t[i] then 
 begin
permiter (t[i],t[i+1]);
end;
end;

begin
saisie(n);
trie(t,n);
permeter(t,n);
end.

hajersoumri_taba · Answer

procedure trie (t:tab;n:integer);
var
i:integer;
begin 
 for i := 1 to n-1 do 
   begin 
     if t[i] >t[i+1]then 
         begin
y:=t[i];
t[i]:=t[i+1];
t[i+1]:=y;
        end;
   end;

'randa'_taba · Answer

on a plusiers type de tri tel que :tri a bille,insertion,selection...
par exemple on utilise le tri a bulle:
procedure bulle(var t:tab;n:integer);
var 
i:integer;
repeat
k:=false;
for i:=1 to n-1 do ;
if t[i]>t[i+1] then
t[i]:=t[i+1];
t[i+1]:=t[i];
until(k=true) and(i>=n);
end;

ahm_taba · Answer

on peut trier le tableau du minimum au maximum ou inversement on utilison une methode de trie comme par exemple le trie a bulle explication de cette methode:
on doit comparer le premier element par le deuxième si le premier et inferieure au deuxième on appelle une procedure permuter les deux élément et répète ce traitement jusqu'a avoir un tableau trié.
procedure trie (var t:tab,n:integer);
var
i:integer;
begin
for i:=1 to  n do
begin
repeat
k:=false;
if t[i]<t[i+1] then
begin
procedure permuter (t[i],t[i+1]);
until
k:=true;
end;

hardouz · Answer

Bonjour;
Pour tier un tableau de 20 entiers on a plusieurs methode de tries dont on peut cité le trie par insertion le trie a bulle le trie par selection , shell ...
Exemple ;
on va esseyer de faire un algorithme de trie croissant ensemble pour cela ehhh... on va chercher le plus petit element dans le tableau on le placent dans la premiére case et jetter la valeur de la premiére case du tableau dans celle dont on va permutter ... Mais il ya un probléme non ? si on met la valeur minimale dans la premiére cette derniére elle s'ecrase !!!! alors on doit la stocker dans une variable :)
alors on resume !

0/parcour du tableau de 1 a la case n 
1/on cherche la valeur minimale ( le plus petit element dans le tableau ) {avec determination d'indice}
3/on le stoque dans une variable X
4/ on permute cette valeur avec la premiére case 
{x<---T[min]
T[min]<---T[i]
T[min]<---x}
5/FIN

Pour un truc recursive il suffit de repeter la meme chose en cherchon le minumum a chaque foix il se stoque dans les registre du processeur virtuellement  a la du trie la fonction reprend elle meme les valeur stoquer dans le registre et alors il suffit de réinitialiser les cases de ton tableau !

Exemple ;
soit le principe est que la fonction récursive scinde le tableau en 2 et pour chaque partie appelle de nouveau le tri récursif, la condition d'arrêt survient quand le dernier élément est < ou = au premier. 
Dans un premier temps on range le tableau de telle sorte que tous les éléments inférieurs à l'élément d'indice pivot se trouvent placés à la gauche de celui-ci et donc tous les éléments supérieurs à sa droite.Ensuite on appelle à nouveau (récursivement) la procédure MahdyTrie pour chacun des deux sous-tableaux.
Et d'aprés les  procedures precedentes je pense que c'est suffisant !
pour plus d'informations tu peut consulter les sites suivant
https://pascal.developpez.com/cours/cyberzoide/chap21.php3
http://lwh.free.fr/pages/prog/logo/logo.htm {conceillé}
vous pourrez trouver d'autres informations intéressantes à l'adresse http://Olivier.sc.free.fr/
et bonne programmation 
Ciao Mahdy :)

informatique4_taba · Answer

il sagie plusieures metodes de trie :
program trie;
uses wincrt;
var
y,k:integer;
begin
repeat
k=false;
for i:=1 to n-1 do
begin
if t[i]>t[i+1] then
begin
t:=t[i];
end
else
t[i]:= t[i+1];
k:=true;
end;
until (k=false);
end;

abdel2007 · Answer

MERCI POUR VOS AIDE A+

informatique4_taba · Answer

program trie;
uses wincrt;
type
tab=array [1..20]of integer;
var
t:tab;
n:integer;
procedure saisie (var t:tab ,n:integer);
begin
repeat

readln (n);
until n>20
end;
procedure tri ( var t:tab,n:integer);
var
i:integer;
begin
for i :=1 to n do
begin
if t[i]<t[i+1] then
begin
permuter (t[i],t[i+1])
end;
end;

AMOULA_info · Answer

Salut voila une methode recursive de tri par selection procedure permuter( var x, y : integer); var z : integer; begin z:=x; x:=y; y:=z; end; function posmin ( t: vect; d,f : integer): integer; var pm : integer; begin if d= f then posmin := d else begin pm := posmin(t,d+1,f); if t[d]f then begin pm := posmin(t,d,f); if d<>pm then permuter(t[d],t[pm]); trier(t,d+1,f); end; end;

mamo · Answer

qui peut m'aider a resoudre l'exercice suivant:
ecrire une fonction recursive booleene qui détermine si une chaîne de caractéres ch comporte plus de caractères c1 que de caractères c2(cette fonction retourne vrai si le nombre de c1 est supérieur à celui de c2)

sombol_kmiha_mohamed_amin · Answer

salut je cherche une methode de tri par shell (algo recursive) **sombol**

sombol_kmiha_mohamed_amin · Answer

svp l'algorithme du tri shell

ben Yedder · Answer

la plus plus simple methode c le trie par selection
un autre  tab
parcour de tab en cherchan le min
le metre dans le 2emme tab

dorssaf · Answer

bonjour 
je un problem :
ecrire un program en pascal qui cherche la 1ere position d'une valeur v dans un tableau b de n réel . l'entier n est 5<n<30.
specification du problem et le algoritme :!!!
plz ..plz mnt .
et merci 
                                                               dorssaf d'akouda

dorssaf · Answer

Je veux voir la réponse
plz .. plz

ta9tou9a · Answer

salut dans le programe, et avant de mettre les 'var', vou mettez : type t=array[1..20] of integer; et puis tu termine ton program ...

minoucha · Answer

bonjour svp^aidez moi j veu ecrire un program en turbo pascal qui fai un tri a bulles d un vecteur dans l ordre croissanrt pour demain c est urgent et merci

ta9tou9 · Answer

{de +} 
procedure trie_par_selection(var t:tab ; n:integer);
var
i,j,y,m:integer;
begin
for i := 1 to n-1 do
begin
m:=i;

for j := i to n do
begin
if t[j]<t[m] then
begin
y:=t[i];
t[i]:=t[m];
t[m]:=y;
n:=n-1;
end;
end;

end;
end;

romeo · Answer

aide pour solution de l'exercice suivant en pascal.
exo:Ecrire une fonction Kchiffre qui prend en entrée un nombre entier n et un nombe entier k et renvoie le k ième chiffre(à partir de la droite) du nombre n si k est inferieur ou égal au nombre de chiffre n sinon renvoie -1

romeo · Answer

Merçi frangin pour ton aide.je tiendrais compte de la remarque la prochaine fois.porte toi bien. tchao

KX · Answer

Le tri par fusion est le meilleur en efficacité (pour 100 000 données on a 600 000 comparaisons). Le tri par bulle est le pire (pour 100 000 données on a 10 000 000 000 comparaisons). Voici deux corrigés d'unités que mon prof a fait cette année... La première définit le type de tableaux que l'on va utiliser : unit tableau_elem; interface type element = real; // pour le modifier il faut aussi modifier Afficher const nmax = 100; type tableau = array [1..nmax] of element; // affiche n éléments du tableau depuis le p-ième procedure Afficher (var t: tableau; n, p: integer); // teste si les n premiers éléments d'un tableau sont par ordre croissant function Croissant (var t: tableau; n: integer): boolean; implementation const larg = 5; // largeur d'affichage d'un élément const prec = 1; // nombre de decimales procedure Afficher (var t: tableau; n, p: integer); var i: integer; begin for i := 1 to p-1 do write(' ' : larg); for i := p to p+n-1 do write(t[i] : larg : prec); writeln end; function Croissant (var t: tableau; n: integer): boolean; var i: integer; begin result := false; for i := 1 to n-1 do if t[i] > t[i+1] then exit; result := true; end; begin end. La deuxième unité concerne le tri sur les tableaux (dont le type est définit dans la première) unit tri_fusion; interface uses tableau_elem; procedure Trier (var t: tableau; n: integer); implementation // copie une zone de src (source) dans dst (destination). procedure Copier (var src, dst: tableau; n, p, q: integer); var i: integer; begin for i := 0 to n - 1 do dst[q + i] := src[p + i] end; // fusionne 2 zones de src (source) dans dst (destination). // elles doivent être déjà triées par ordre croissant. // Une version récursive terminale procedure Fusionner (var src, dst: tableau; n1,p1, n2,p2, q: integer); begin if n2 = 0 then Copier(src, dst, n1, p1, q) else if n1 = 0 then Copier(src, dst, n2, p2, q) else // cas général if src[p1] <= src[p2] then begin dst[q] := src[p1]; Fusionner(src, dst, n1-1, p1+1, n2, p2, q+1) end else begin dst[q] := src[p2]; Fusionner(src, dst, n1, p1, n2-1, p2+1, q+1) end end; // Une autre version, itérative procedure Fusionner_v2 (var src, dst: tableau; n1,p1, n2,p2, q: integer); begin while (n1 > 0) and (n2 > 0) do begin if src[p1] <= src[p2] then begin dst[q] := src[p1]; inc(q); inc(p1); dec(n1); end else begin dst[q] := src[p2]; inc(q); inc(p2); dec(n2); end end; if n1 > 0 then Copier(src, dst, n1, p1, q) else Copier(src, dst, n2, p2, q) end; // Comme Fusionner_v2, avec p[1], p[2] au lieu de p1, p2 procedure Fusionner_v3 (var src, dst: tableau; n1,p1, n2,p2, q: integer); var n, p: array[1..2] of integer; var lequel: integer; begin n[1] := n1; p[1] := p1; n[2] := n2; p[2] := p2; while (n[1] > 0) and (n[2] > 0) do begin if src[p[1]] <= src[p[2]] then lequel := 1 else lequel := 2; dst[q] := src[p[lequel]]; inc(q); inc(p[lequel]); dec(n[lequel]); end; if n[1] > 0 then lequel := 1 else lequel := 2; Copier(src, dst, n[lequel], p[lequel], q) end; // tab est le tableau à trier; tmp un tableau temporaire. // trie par ordre croissant n éléments à partir du p-ième. procedure TrierRec (var tab, tmp: tableau; n, p: integer); var n1, n2, p1, p2: integer; begin if n > 1 then begin // write('TrierRec(', n:2, ',', p:2,'): Avant: '); Afficher(tab, n, p); n1 := n div 2; n2 := n - n1; p1 := p; p2 := p + n1; TrierRec(tab, tmp, n1, p1); TrierRec(tab, tmp, n2, p2); Copier(tab, tmp, n, p, p); Fusionner(tmp, tab, n1, p1, n2, p2, p); // write('TrierRec(', n:2, ',', p:2,'): APRES: '); Afficher(tab, n, p); end end; procedure Trier (var t: tableau; n: integer); var tmp: tableau; begin TrierRec(t, tmp, n, 1) end; begin end. C'est très indigeste, mais d'un point de vue efficacité y a pas photo ! ps: faisant confiance à mon prof, on va dire que y a pas de faute... Et sinon cherchez l'erreur !

Ben2k2 · Answer

comment avoir les solutions d'un probleme d'Algorithme.
Comment le site fonctionne merci.

joujou-25 · Answer

salue;
Autres résultats, domaine www.commentcamarche.net »

Slim Tunisia · Answer

On utilise le tri à bulle !
voici une analyse :

procedure Tri (var T:vecteur ; x:entier )

         [test <-- faux] Répéter 
                                       pour i de 1 à (n-1) faire
                                              si  T[i] > T[i+1] alors
                                                   x <-- T[i]
                                                   T[i] <-- T[i+1]
                                                   T[i+1] <-- x
                                                   test <-- vrai
                                              finsi
                                       finpour
                                Jusqu'à (test = faux)

Exercice pascal"trie"

38 réponses

Discussions similaires