Salut à tous,
je viens de faire un essai de tri à bulle mais ça n'a pas marché.
SVP aidez-moi à le corriger et dites-moi si mon idée est correcte ou non.

L'erreur est en rouge
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
program trie;
uses wincrt;
type
tab = array[1..100] of integer;
var
t:tab;
n,j:integer;
procedure lecture(var t:tab;var n:integer);
var
i:integer;
begin
writeln('donnez n');
readln(n);
for i := 1 to n do
readln(t[i]);
end;

procedure tri_bull(var t:tab;var n:integer;var j : integer);
var
i,aux:integer;
begin
for i :=2 to n do
    if t[j-1]> t[j] then begin  aux :=t[j];
                                t[j-1] := t[j];
                                t[j] := aux ;
                                end;
    if n <>i then tri_bull(t,n-1, j+1 );
    end;

procedure affichage(var t:tab;n:integer);
var
i:integer;
begin
for i := 1 to n do
writeln(t[i]);
end;
begin
lecture(t,n);
affichage(t,n);
end.