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.