TRI SELECTION
TRI SELECTION
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;
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|