Delphi (Lazarus). Слияние двух отсортированных стека.

[Ovenvan]

Добрый день. В задаче нужно слить два отсортированных стека, так чтобы получился новый третий отсортированный стек. Не особо разобрался в стеках. Буду рад помощи.

[p51x]

x := stack1.pop();
y := stack2.pop();
if x <= y then
begin
  stack3.push(x);
  stack3.push(y);
end
else
begin
  stack3.push(y);
  stack3.push(x);
end

Реализацию стека в различных варианта в инете или книгаз не найдет только идиот.

[evg_m]

  stack3.push(x);
  stack3.push(y);

а если новое(следующее) значение в stack1 снова окажется меньше УЖЕ внесенного из второго стека (stack3.push(y))
stack1 2 3 4
stack2 5 6 7
stack3 4 7 3 6 2 5 !!!!

// ВНИМАНИЕ!!  используется допущение! для ПУСТОГО стека pop() возвращает nil !!!
a:=x.pop();
b:=y.pop();
while a<>nil or b<>nil do 
  if a=nil then 
  begin 
   z.push(b); 
   b:=y.pop();
  end
  else if b=nil then 
  begin
   z.push(a);
   a:=pop();
  end
  else if a<b then 
  begin
   z.push(a);
   a:=pop();
  end
  else {if a>=b then} 
  begin 
   z.push(b);
   b:=pop();
  end;

[Ovenvan]

Не могли бы Вы поподробнее объяснить код? Как я понял, push и pop реализуются как функции. А вот как они используются...

[Utkin]

Похоже это Ханойские башни.
https://ru.wikipedia.org/wiki/Ханойская_башня
Только не в стартовой позиции. Я бы озадачился написанием своего фреймворка на стеках (типа нахождение наибольшего из двух стеков и помещения в третий).

[Ovenvan]

Спасибо за помощь, задача выполнена.