TRI SELECTION
TRI SELECTION
par haiethem Dim 5 Avr - 23:02
procedure tri(var t:tab;n:integer);
function min (t:tab;n,i:integer):integer;
begin
m:=i;
for j:=1+i to n do if t[m]>t[j] then m:=j;
min:=m;
end;
procedure permut(var a,b:real);
begin
z:=a;
a:=b;
b:=z;
end;
begin
for i:= 1 to n-1 do
begin
permut(t[min(t,n,i)],t[i]);
end;
end;
function min (t:tab;n,i:integer):integer;
begin
m:=i;
for j:=1+i to n do if t[m]>t[j] then m:=j;
min:=m;
end;
procedure permut(var a,b:real);
begin
z:=a;
a:=b;
b:=z;
end;
begin
for i:= 1 to n-1 do
begin
permut(t[min(t,n,i)],t[i]);
end;
end;
haiethem- Messages : 485
Points : 27028
Réputation : 3
Date d'inscription : 08/11/2010
Age : 47 -
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum|
|
|