Стеки Опции

[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

[volvo]

Создать два стека по 5 элементов. Слить их в один стек.

Просто слить? Без сортировки или еще каких приколов?

Тогда так:

Procedure ConcatStack(const s1, s2: PStack);
var p: PStack;
begin
  p := s1;
  while p ^.next <> nil do p := p^.next;

  p^.next := s2; { К хвосту первого стека прицепить второй }
end;

Только вот у тебя проблема - ты 2 разных стека сделать не можешь !!! Потому, что работаешь через глобальные переменные Придется менять кое-что