Discussion :

[suzanne loubert]

Bonjour,

Je suis débutante en programmation DELPHI et je ne comprends pas comment je peux trier les valeurs d'une matrice.

Ma matrice a 2 lignes et 10 colonnes; je dois supprimer dans chaque ligne la valeur la plus haute et la valeur la plus basse. Je veux utiliser le tri par sélection et j'en comprends le principe sauf que je n'arrive pas a voir comment créer une procédure récursive de ce tri avec une matrice.

Pouvez-vous m'aider

Suzanne

[Alfred12]

Bonjour,

Bon cela n'a pas grand chose à voir avec Delphi, c'est plutot de l'algo pur.

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
procedure MaProc;
var
   lValMin : double;
   lValMax : double;
   lIMin : integer;
   lIMax : integer;
   lNbVal : integer;
begin
for i := 1 to NbLigne do
begin
   lValMin := FMatrice[i,1];
   lValMax := FMatrice[i,1];
   for j := 2 to NbCol do
   begin
      If FMatrice[i,j] > lValMax then 
      begin
          lValMax := FMatrice[i,j];
          lIMax := j;
      end;
      If FMatrice[i,j] < lValMin then 
      begin
          lValMin := FMatrice[i,j];
          lIMin := j;
      end;
   end;
 
   // Ici tu connais les max min et les positions dans la ligne
   lNbVal := 0;
   for j := 1 to NbCol do
   begin
       if (j <> lImin) and (j <> lIMax) then 
       begin
           inc(lNbVal);
           FMatrice[i,lNbVal] := FMatrice[i,j];
       end;
   end;
   // Reste deux valeurs à supprimer
   FMatrice[i,NbCol] := 0;
   FMatrice[i,NbCol-1] := 0;
 
end;
 
end;

Bon c'est pas une procedure récursive mais ca doit faire ce que tu veux.

[suzanne loubert]

Merci Alfred,

Tu as raison, c'etait plutot un problème d'algo. Ton aide m'est utile.

Je constate que mes forces ne sont pas dans ce domaine, je crois que j'orienterai mes intérêt ailleurs dans un prochain cours.

Suzanne