Discussion :

[siho90]

]salut a tous
j'ai écrit un prog pour trier un tableau en utilisant la méthode de tri par sélection
ça donne ca:

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
45
46
47
48
49
50
51
52
53
54
55
56
57
program tableau;
uses wincrt;
type tab=array [1..100] of integer;
var i,ppm,n,k:integer;t:tab;
 
procedure remplissage (var t:tab; var n:integer);
var i: integer;
begin
repeat writeln ('donner le nombre de cases');
readln (n);
until n>=0;
 
for i:= 1 to n do
begin
writeln('donner t[',i,']');
readln (t[i]);
end;
 
end;
 
procedure tri (var t:tab;var n:integer);
var i,ppm:integer;
 
    procedure permut (var x,y:integer);
    var aux:integer;
    begin
    aux:= x;
    x:=y    ;
    y:= aux  ;
    end;
 
    function posmin (t:tab;n:integer):integer;
    var  i,j,pm:integer;
    begin
    pm:=i;
    for j:= i+1 to n do
    begin
    if t[j]< t[pm]
    then pm:=j;
    end;
    posmin:= pm;
    end;
 
begin
     for k:=1 to n-1 do
     ppm:= posmin (t,n);
     if t[i]<> t[ppm] then permut (t[i],t[ppm]);
 
end;
 
 
begin
remplissage (t,n);
tri (t,n);
for i:= 1 to n do
write(t[i],'  ');
end.

mais le résultat donne un tableau qui n'est pas trié (il restitue le tableau comme il a été saisi)
je ne vois pas où est l'erreur dans mon prog (dont la compilation se fait pourtant correctement)
merci de m'aider svp

[rours]

Est ce que tu peux indenter ton code et le mettre dans des balises, parceque là c'est assez infame de le lire

J'ai un doute sur ta procedure "tri". tu n'aurais pas oublier un bout de code?

Heu plus que un doute meme, à mon avis tu as fait des ctrl c ctrl v un peu trop vite :p

[siho90]

Non, il n'y a rien qui manque.
J'ai fait l'indentation, c'est peut-être plus clair comme ça.

[Alcatîz]

Bonjour,

La procédure posmin doit recevoir à chaque fois l'indice à partir duquel il faut chercher le minimum. Tu doit donc ajouter un paramètre supplémentaire :

Code :

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

1
2
3
4
5
6
    Function posmin (t : tab; debut, n : integer) : integer;
    Var i, j, pm : integer;
    Begin
      pm := debut;
      for j := debut + 1 to n do
      ... etc

Ensuite, dans la procédure tri, tu dois inclure la permutation dans la boucle for. Toujours dans cette même procédure, je ne vois pas ce que vient faire la variable k : elle est inutile et doit être remplacée par i.

Voici grosso modo à quoi devrait ressembler la boucle for :

Code :

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

1
2
3
4
5
6
7
  for i := 1 to n do
    begin
      ppm := posmin(t,i,n);
      if t[i] <> t[ppm]
         then
           permut(t[i],t[ppm]);
    end;

[Romaric Okemba]

Bonjour, écris d'abord le programme suivant :

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
program triTableau;
var
  n,i,j,k:integer;
  t:array[1..100] of integer; {Si cette syntaxe est incorrecte corriges-la car j'ai oublié la syntaxe de déclaration d'un tableau en pascal}
begin
  repeat
    writeln('Entrer  un nombre');
    readln(n);
  until n>=1
  for i:=1 to n do
    begin
      writeln('Entrer un élément');
      readln(t[i]);
    end;
  { Je commence le tri}
  for i:=1 to n do
    begin
      for j:=i+1 to n do
        begin
          if t[i]<t[j] then
            begin
              k:=t[i];
              t[i]:=t[j];
              t[j]:=k;
            end;
        end;
    end;
  for i:=1 to n
    writeln(t[i]);
  readln;
end.

[Romaric Okemba]

Bonjour Romaric Okemba

ça fait longtemps que j'ai utilisé Pascal mais l'algorithme est bon; si tu trouves des erreurs, ce ne serait que des erreurs de syntaxe.

Ce que je fais c'est un tri croissant, c'est-à-dire du plus petit au plus grand; je suppose que tu as déja lu les nombres, ce qui m'intéresse c'est le tri.

Je n'utilise que l'algorithme et tu traduis en Pascal; joli exercice n'est-ce pas ?

Code pseudocode :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
      montableau as un tablo des entiers {u=il compte 10 cellules}
 
          i et j des entiers me sevent des indices pour parcourir le meme tableau
          k est un entier qui me sert de variable temporaire
 
         pour i=1 à 10    
             {je cree un décalage avec l'element prcedent}
                 pour j=i+1 à 10
                      si    montableau(i)>montableau(j) alors
                                  k=montableau(i)
                                  montableau(i)=montableau(j)
                                  montableau(j)=k
                       fin si
               fin pour 
      fin pour

Tu peux afficher le tableau, il est trié. Traduis textuellement cet algorithme en Pascal et le compte est bon. Je peux te le donner en vb6 ou en vb.net
Cordialement,

[l_autodidacte]

Voici une autre approche(pour un tri croissant) :

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
45
46
47
48
49
50
51
52
               Program Tri_Selec;
USES WinCrt;
Const
        m=5;
Type
       Tab = array[1..100] of Integer;
var
       t: tab;
       n:integer;
 {=============================}
  PROCEDURE LECTURE (Var n:Integer;Var T:Tab);
    Var i:integer;
    Begin
    Repeat
      Write('  Nombre d''‚l‚ments … traŒter  n = '); Readln(n);
    Until n IN [1..100];
      Randomize;
      For i := 1 to N do
        begin
          T[i]:=Random(100)+1;
        end;
   End;
 {=============================}
  PROCEDURE TRI (VAR n:integer;Var T:tab);
   Var  min,i,j:integer;
        aux:integer;
    Begin
      For i := 1 to N-1 do
        begin
          min:= i;
          For j:= i+1 to n do
            If T[j] < T[min] Then
               min := j;
               aux := T[i];
               T[i] := T[min];
               T[min] := aux;
        end;
    End;
 {=============================}
  PROCEDURE AFFICHAGE (n:integer;Var T:tab);
    Var  i:integer;
    Begin
      For i := 1 to N do
        writeln(T[i]);
    End;
{*********** programme  principal ************ }
 BEGIN
     Lecture(n,T);
    Tri(n,T);
    Affichage(n,T);
    Readln;
 END.

Moi, j'ai mis un remplissage aléatoire du tableau. Tu peux modifier la procédure LECTURE selon ton besoin.