Discussion :

[Mickael2604]

bonjour, j'ai un probleme avec une procedure ou je dois trier les valeurs d'un tableau en ordre croissant
Voici ce que j'ai fait mais ca m'efface toutes les valeurs de mon tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
   PROCEDURE Tri11 (Stocks_Lus : IN OUT T_Tableau) IS
      -- précondition: Au moins deux éléments dans le tableau
      -- postcondition:  Trie le tableau selon un critere donné en ordre croissant ou décroissant
 
   J,X,k:Integer;
 
 
begin 
k := 1;
while stocks_lus(k).num /= -1 loop 
k:= k+1; 
end loop;
       for I in 2..k loop
         x := stocks_lus(i).num;
         j := i-1;
           while j>0 and then stocks_lus(j).num>x loop
            Stocks_Lus(J+1).Num := Stocks_Lus(J).Num;
             j := j-1;
           end loop;
         stocks_lus(j+1).num := x;
      end loop;
end tri11;

PS: stocks_lus(i).num le tableau a trié et la fin du tableau est signalé quand stocks_lus(i).num = -1

[Igor FONKOU TAGUE]

Bonjour,
Je te fournis un algorithme de tri, mais il n'est pas très performant. Si les performances sont importantes pour toi, et si tu as besoin d'un tri sur un tableau de grande taille, je te conseillerai de chercher un autre algorithme. Mais celui-ci à le mérite d'être très simple. N'ayant pas le type de ton tableau, j'ai supposé qu'il s'agissait d'Integer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
   type T_Table is array (1 .. 100) of Integer;
 
   procedure Tri (Table : in out T_Table) is
      Tmp : Integer := 0;
   begin
      for I in Table'Range loop
         for J in I + 1 .. Table'Last loop
            if Table (I) > Table (J) then
               Tmp := Table (I);
               Table (I) := Table (J);
               Table (J) := Tmp;
            end if;
         end loop;
      end loop;
   end Tri;