Discussion :

[tintin62]

Bonjour
dans une base donnée j'ai compter combien de fois
un chiffre compris entre (1 et 50) est sortie avec un tableau simple
nu[1]:= 120 le chiffre 1 sortie 120 fois
nu[2]:=20; le chiffre 2 20 fois
ect...
le tableau comporte 50 records et le chiffre ente [ ] et le numéro sortie
je l'ai défini comme sa nu:array[1..50] of integer;

je voudrais trie ce tableau pour m'afficher du plus grand au plus petit
a la fin dans mon tableau
j'ai exemple nu[1]=45;
nu[2]=56
ect..

et je voudrais que sa s'affiche dans une listbox
exemple
le numéro 5 est sortie 100 fois
le numéro 45 est sortie 98 fois
ect..
cela est t'il possible avec un tableau a une dimension
merci

[Charly910]

Bonjour,

avec une écriture dans 2 mémos, tu peux faire ceci :

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
procedure TForm1.FormCreate(Sender: TObject);
begin
  {Génération du tableau}
  Randomize;
  For i:=1 to 100 do
    Begin
      tablo[i]:= random(100) ;
      Memo1.lines.add(IntToStr(i)+ ' ==> '+ IntToStr(Tablo[i])) ;
    End ;
  For i:=1 to 100 do  Rang[i] := i ;
 
  {Tri du tableau}
  For j:=1 to 99 do
  For i:=j to 100 do
    Begin
      If (tablo[j]>tablo[i]) then
        Begin
          tmp := tablo[j] ;
          tmp2 := rang[j] ;
          tablo[j] := tablo[i] ;
          rang[j] := Rang[i] ;
          tablo[i]:=tmp;
          Rang[i] := Tmp2 ;
        End;
    end;
  for i:=100 DownTo 1 do
    Begin
      Memo2.lines.add(IntToStr(Rang[i])+ ' ==> '+ IntToStr(Tablo[i])) ;
    End ;
 
end;

Memo1 : non trié - Memo2 : trié

A+
Charly

[tintin62]

bonjour

impeccable sa marche

encore merci