le solution de la tri a bulle

solution de la tri a bullepar fathi **boss


program tri_bulles;
uses wincrt ;
type
tab=array [1..100] of integer ;
var
n:integer;
t:tab;
procedure saisie_n (var n :integer);

begin
randomize;
n:=5+random(6);

end;
procedure remplir ( n :integer;var t:tab);
var
i:integer;
begin
randomize;
for i:=1 to n do
begin
t[i]:=1+random(20);
writeln (t[i]);
end;
end;
procedure trier(var t:tab; n:integer);
var
aux,j,i:integer;
trier:boolean;


begin

repeat

trier:= false;
for j:=1 to n-1 do
begin
for i:=1 to n-1 do
begin
if t[i]>t[i+1] then
begin
aux:= t[i];
t[i]:=t[i+1];
t[i+1] := aux;
trier := true;

end;
end;
end;
until (trier= true);
end;
procedure affiche (var t:tab);
var
i: integer;
begin
for i:=1 to n do
begin
writeln(t[i]);
end;
writeln;
end;
begin
saisie_n (n);
writeln('************************ti*******************');
remplir ( n , t);
trier( t,n);
writeln('************************tf*******************');
affiche (t);
end.