Три последовательности. Опции

[SANCTUS]

Помогите решить!!!
Пусть A=(a1,a2,…,an), B=(b1,b2,…,bm), C=(c1,c2,…,cp) – три конечные последовательности натуральных чисел. Допустим, что каждая отдельно взята последовательность упорядочена по возрастанию. Объедините три последовательности в одну последовательность D=(d1,d2,…,dn+m+p), являющуюся списком всех чисел из А, В, С, такую, что d1≤d2≤…≤dn+m+p.
Обязательным условием является то, что слияние должно быть выполнено за m+n+p действий, т.е. число сравнений должно быть не больше m+n+p.

Заранее благодарен.

[klem4]

Вот есть такой метод :

type
   TArr = array[1..100] of integer;

procedure sliyanie(var Arr1,Arr2,Result:TArr; size1,size2:integer);
var
   i,i1,i2,ny:integer;
begin

   i1:=1; i2:=1;
   ny:=0;

   while(i1<=size1)and(i2<=size2) do begin
       inc(ny);
       if arr1[i1]<=arr2[i2] then begin
           result[ny]:=arr1[i1];
           inc(i1);
       end
        else begin
            result[ny]:=arr2[i2];
            inc(i2);
        end;
   end;

   if i1<=size1 then
    for i:=i1 to size1 do begin
        inc(ny);
        result[ny]:=arr1[i];
    end
     else
      for i:=i2 to size2 do begin
          inc(ny);
          result[ny]:=arr2[i];
      end;
end;

ps к модераторам : можно его в faq я думаю.


Это не то, извиняюсь :molitva:

Сообщение отредактировано: klem4 - 2.12.2007 16:59