le solution de la tri a bulle
Page 1 sur 1
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.
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.
fathi- Elève Actif
- Messages : 14
Date d'inscription : 19/10/2009
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum