Стеки Опции

[Merlin]

Задание :

Создать два стека по 5 элементов. Слить их в один стек. Результирующий стек вывести на экран.

Создание стека я сделал.
Подскажите как слить 2 стека в один ?

program STACK_Pr;
type
  PStack = ^TStack;
  TStack  = record
              chislo: integer;
              next  : PStack;
         end;
var
  x, Stack : PStack;
  i  : integer;
Procedure INPUT_STACK;
begin
  Stack := nil;
  for i := 1 to 5 do
  begin
      New(x);
      write ('Введите ', i, ' число ');     readln(x^.chislo);
      x^.next := Stack;     Stack:=x;
  end;
end;
Procedure OUTPUT_STACK;
begin
    if Stack = nil
       then writeln('Стек пуст!')
       else   begin
                     x := Stack;
                     while x<> nil do
                    begin
                        write (x^.chislo,'  ');
                        x := x^.next;
                  end;
              end;
end;
begin
  INPUT_STACK;
  OUTPUT_STACK;
end.

Сообщение отредактировано: volvo - 3.11.2006 22:03