Из элементов двух стеков с одинаково упорядоченными элементами собрать новый стек

Модераторы: Duncon, Naeel Maqsudov, Хыиуду, Игорь Акопян

Ответить
Андрей3636
Сообщения: 4
Зарегистрирован: 24 окт 2017, 23:02

Из элементов двух стеков с одинаково упорядоченными элементами собрать новый стек

Сообщение Андрей3636 » 31 окт 2017, 16:11

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

Program STACK;
const
max_st=50;
const
max_st=50;
var
st,st2: array[1..max_st] of integer;
n:integer;
function empty:boolean; {Проверка стека на наличие элементов в нем}
begin
empty:=n=0
end;
procedure push(a:char); {Поместить элемент в стек}
begin
inc(n);
st[n]:=a;
end;
procedure pop(var a:char); {Извлечь элемент из стека}
begin
a:=st[n];
dec(n);
end;
function full:boolean; {Проверка на переполнение}
begin
Full:=n=max_st
end;
procedure stacktop(var a:char); {Узнать верхний элемент}
begin
a:=st[n];
end;
begin {Основная программа, нужно написать но не получается }

end.

Ответить