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х стеков получтся новый "длинный" стек, но упорядоченность будет обратная. Чтобы её изменить понадобится новый стек. Когда данные из стека считываются - стек постепенно "разбирается". То есть в конце операций все стеки (включая промежуточный) исчезнут. Получится новый, правильный, удовлетворяющий всем требованиям стек.
Чтобы создать именно ДИНАМИЧЕСКИЙ стек, т.е. с возможностью добавлять неограниченное количество элементов, надо реализовать его на основе одностороннего или 2стороннего списка. Последний элемент списка - верхушка стека. При 1стороннем списке неудобно вытаскивать элемент стека - при этом текущий указатель списка "повисает", и приходится ставить его в начало и прогонять по всему списку до нового конца. При 2стороннем в этом случае указатель просто делает шаг назад - на предыдущий элемент, становящийся новой верхушкой стека.
Код
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;
чтобы сформировать третий стек, берем элементы поочередно из первого или из второго (в зависимости от того, где значение больше(меньше), чтобы сохранить порядок) до тех пор, пока они не кончатся(т.е. соответствующий st будет равен nil) и ложим в третий
Массаракш! Конечно же P@sh@ прав: гораздо разумнее сделать верхушку стека не концом, а началом односвязного списка. Что- то торможу я в последнее время. :-/
Ну и, прежде чем извлекать элемент, надо проверять стек на пустоту
Код
function IsEmpty(st:PStack):boolean; {true - список пуст}
begin
IsEmpty:=(st=nil);
end;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста,
нажмите сюда.