Discussion :

[cre3000]

En priorité je classe la deuxiéme rangé en ordre décroissant

mais j'aimerais que la première ranger sois toujours associé a la
deuxième après le classement.

Est ce possible et comment faire

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
procedure TFormTableur649.Button1Click(Sender: TObject);
var a,b,c,f:integer;
begin
for a:=1 to 49 do  // création du tableau
begin
n_d[a]:=strtoint(stringgrid2.cells[a,0]);
t_d[a]:=strtoint(stringgrid2.cells[a,1]);
listbox2.items.Add(inttostr(n_d[a])+ ' '+ inttostr(t_d[a]));
end;
 /// classement en ordre décroissant 
for a:=1 to 49-1 do
    For b:=a+1 To 49 do
  If t_d[a]<t_d[b] Then
  Begin
    c:=t_d[a];
    t_d[a]:=t_d[b];
    n_d[f]:=c;
    t_d[b]:=c;
  End;
///// sortie des données
  for a:= 1 to 49 do
  listbox1.items.Add(inttostr(t_d[a]));
  for f:=1 to 49 do
  listbox1.items.Add(inttostr(n_d[f]));
end;
end.

[Aka Guymelef]

Et bien en faisant pareil que t_d pour n_d, c'est à dire en remplaçant ton instruction

Code :

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

n_d[f]:=c;

(qui est fausse soit dis en passant)
par :

Code :

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

1
2
3
    c := n_d[a];
    n_d[a]:= n_db];
    n_d[b]:=c;

Mais attention tu dois exécuter ces instructions uniquement après ton :

Code :

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

t_d[b] := c;

[cre3000]

L'amateur vous dit merci