Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Динамическая память!!

Автор: Maxic$$$@a 18.02.2004 21:02

                      Срочно помогите PLEASE!!!!
                                                       Задача
 Разработать прогу слияния 2-ух стеков, содержащих возрастающую последовательность целых положительных чисел, в третий стек, так, чтобы его элементы распологались также в порядке возрастания.
                                   (Как создать стек и как объеденить два стека в третий???????)
     ??????????                                                                                                                                ???????????????

Автор: SKVOZNJAK 18.02.2004 22:52

Ну, стек можно рассматривать как массив переменных с определёнными свойствами: запись, чтение как у стека. Запиши информацию в 2 стека(массива), а потом считывай её с конца в буфер(настоящий массив). Из буфера рассортируй и перекатай в третий стек.
А можно обойтись без третьего массива(стека) - 2 первых стека располагаются в одном
большом массиве. А перед записью из буфера эти стеки исчезают, а на их месте образуется один большой стек.

Автор: pascal65536 19.02.2004 10:00

Сказано использовать динамические структуры - значит использовать.
Стак - такая штука данные в которую добавляются и считываются по правилу FILO. То есть самый "свежий" всегда наверху и доступен для чтения. При слиянии 2х стеков получтся новый "длинный" стек, но упорядоченность будет обратная. Чтобы её изменить понадобится новый стек. Когда данные из стека считываются - стек постепенно "разбирается". То есть в конце операций все стеки (включая промежуточный) исчезнут. Получится новый, правильный, удовлетворяющий всем требованиям стек.

Автор: Atos 19.02.2004 11:12

Чтобы создать именно ДИНАМИЧЕСКИЙ стек, т.е. с возможностью добавлять неограниченное количество элементов, надо реализовать его на основе одностороннего или 2стороннего списка. Последний элемент списка - верхушка стека. При 1стороннем списке неудобно вытаскивать элемент стека - при этом текущий указатель списка "повисает", и приходится ставить его в начало и прогонять по всему списку до нового конца. При 2стороннем в этом случае указатель просто делает шаг назад - на предыдущий элемент, становящийся новой верхушкой стека.

Автор: P@sh@ 19.02.2004 15:09

Код
type
PStack=^TStack;
TStack=record v: integer; p: PStack end;

var st1,st2,st3: PStack;

procedure push(var st: PStack; x: integer);
var nst: PStack;
begin
new(nst);
nst^.p:=st;
st:=nst;
st^.v:=x;
end;

function pop(var st: PStack): integer;
var nst: PStack;
begin
pop:=st^.v;
nst:=st;
st:=st^.p;
dispose(nst);
end;

Автор: P@sh@ 19.02.2004 15:14

чтобы сформировать третий стек, берем элементы поочередно из первого или из второго (в зависимости от того, где значение больше(меньше), чтобы сохранить порядок) до тех пор, пока они не кончатся(т.е. соответствующий st будет равен nil) и ложим в третий

Автор: Atos 20.02.2004 16:27

Массаракш! Конечно же P@sh@ прав: гораздо разумнее сделать верхушку стека не концом, а началом односвязного списка. Что- то торможу я в последнее время. :-/

Автор: Atos 25.02.2004 12:44

Ну и, прежде чем извлекать элемент, надо проверять стек на пустоту

Код

function IsEmpty(st:PStack):boolean; {true - список пуст}
begin
IsEmpty:=(st=nil);
end;