Массивы, сортировка Опции

[Demm]

Помогите,пожалуста!
вот задача: Даны 2 массива упорядоченных по возрост. надо сформировать 3 также упорядоченный по возрастанию.
Сформировать 3 и потом упорядочить-проблем нет, но надо во время записи 3 массива расставлять элементы сразу на свои места.
Если кто может,покажите как это реализовывается!
Ввод, вывод и описания перем. не обязательно!

[Spawn]

Попробуй так:

Код

const
 n = 100; {длина массива А}
 m = 90; {длина массива В}
 t = n + m; {длина результирующего массива}
type
 mA = array[1..n] of integer;
 mB = array[1..m] of integer;
 mC = array[1..t] of integer;

procedure sort(var A : mA, B : mB, C : mC);
var i,j,k : 1..t;
begin
i := 1; j := 1; k := 1;
repeat
  if A[i]>B[j] then
  begin
    C[k] := B[j];
    j = j + 1;
  end
  else
  begin
    C[k] := A[i];
    i := i + 1;
  end;
  k := k + 1;
  if i>n then
    for i := j to m do
    begin
      C[k] := B[i];
      k := k + 1;
    end
  else if j>m then
    for j := i to n do
    begin
      C[k] := A[j];
      k := k + 1;
    end;
until k=t;
end;

Сообщение отредактировано: Spawn - 30.05.2004 3:07