Объединение

[nikshiyan]

Написать программу, которая объединяет два упорядоченных по возрастанию массива в один, также упорядоченный по убыванию массив.

[.Phoenix]

Т.е. надо создать 2 массива, я правильно понял?

[nikshiyan]

Не , нужно создать один, который будет состоять из двух, и этот объединенный упорядочить по убыванию.

[Serge_Bliznykov]

алгоритм ПРОСТЕЙШИЙ.
Пусть есть два массива A1 и A2, размерность (количество элементов N1 и N2 соответственно.
заводим два указателя - пусть будет i1 и i2
дальше так:

  i1:=N1;
  i2;=N2;
  for K:=1 to (N1+N2) do 
    if (i1>=1) and (i2>=1) then
    begin 
      {есть пока элементы в обоих массивах}
      if A1[i1]>A2[i2] then begin
          A3[k] := A1[i1]; 
          dec(i1)
      end
      else begin
          A3[k] := A2[i2]; 
          dec(i2) 
      end
   end
   else 
       {какой-то из массивов уже закончился
         оставшийся просто копируем поэлементно}  
       if (i1>=1) then begin
          A3[k] := A1[i1]; 
          dec(i1)
       end
       else begin
          A3[k] := A2[i2]; 
          dec(i2)
       end;

WriteLn('ВСЁ!');

p.s. писал в браузере, возможны мелкие опечатки...

[nikshiyan]

Спасибо за помощь

[Анатоль]

Если тебе важна эта тема посмотри в поисковиках:
Сортировка слиянием. Там написано как сливать два массива в один и как это можно потом использовать для эффиктивной, устойчивой сортировки за nlogn.

[Serge_Bliznykov]

Анатоль, а позвольте полюбопытствовать,
так а чем мой алгоритмик плох?..

[VektorAB]

Serege. Думаю необходимой частью является объявление переменных.
Я понимаю что Вы сократили. Но ТС может непонять Просто мое мнение.

[Serge_Bliznykov]

VektorAB, судя по тому, что TC поблагодарил четыре дня назад, у него с этим проблем не возникло.

[Анатоль]

Serge_Bliznykov, я что сказал что ваша программа плохая?
просто тема слияния массивов доваольна близка к сортировке слиянием вот я и
предложил если нужно посмотреть эту тему в интернете.