fusion de deux sous tableaux
Page 1 sur 1
fusion de deux sous tableaux
procedure fusionner(var t,t1,t2:tab;n1,n2:integer);
begin
i:=0;
j1:=1;j2:=1;
repeat
i:=i+1;
if t1[j1] < t2[j2] then
begin
t := t1[j1];
j1 := j1 + 1;
end
else
begin
t[i] := t2[j2];
j2 := j2 + 1 ;
end;
until (j1>n1) or (j2>n2);
if j1 > n1 then
for j:= j2 to n2 do
begin
i := i+1;
t[i]:= t2 [j];
end
else
for j := j1 to n1 do
begin
i :=i + 1 ;
t[i] := t1[j];
end;
end;
[/i][/i][/i]
begin
i:=0;
j1:=1;j2:=1;
repeat
i:=i+1;
if t1[j1] < t2[j2] then
begin
t := t1[j1];
j1 := j1 + 1;
end
else
begin
t[i] := t2[j2];
j2 := j2 + 1 ;
end;
until (j1>n1) or (j2>n2);
if j1 > n1 then
for j:= j2 to n2 do
begin
i := i+1;
t[i]:= t2 [j];
end
else
for j := j1 to n1 do
begin
i :=i + 1 ;
t[i] := t1[j];
end;
end;
[/i][/i][/i]
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum