Реферат: Быстрые алгоритмы сортировки
k:=1;
While ( i<= n_a ) or ( j<=n_b ) do
if i= n_a+1 then
begin
c[k]:=b[j];
k:=k+1;
j:= j+1;
end
else
if i= n_b+1 then
begin
c[k]:=a[i];
k:= k+1;
i:=i+1 ;
end
else
if a[i]= b[j] then
begin
c[k]:=b[j];
c[k+1]:= a[i];
k:=k+2;
i:=i+1;
j:=j+1
end
else
if a[i] > b[j] then
begin
c[k]:= b[j];
k:= k+1;