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

Ответить

Код подтверждения
Введите код в точности так, как вы его видите. Регистр символов не имеет значения.

BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[flash] ОТКЛЮЧЕН
[url] ВКЛЮЧЁН
Смайлики ОТКЛЮЧЕНЫ

Обзор темы
[quote=Андрей3636 post_id=101764 time=1509455473 user_id=44206] Из элементов двух стеков с одинаково упорядоченными элементами собрать новый стек с упорядоченными элементами, изменив связи между элементами стеков (не выделяя новую память). 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. [/quote]
   

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

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

Андрей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.

Вернуться к началу