Структуры данных. Деревья - 12 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

14
В стеке запоминаются ссылки на вершины (поддеревья), обработка кото-
рых временно откладывается.
Пример 3.4. Описать нерекурсивную процедуру префиксного обхода
дерева.
Описание вспомогательного стека :
type Stack = ^Rec;
Rec = record
inf_S : Tree;
next : Stack
end;
Процедура добавления в стек start элемента T :
procedure Puch (var start:Stack; T : Tree);
var p:Stack;
begin
new(p);
p^.inf_S:=T;
p^.next:=start;
start:=p
end;
Процедура извлечения из стека start элемента T :
procedure Pop (var start:Stack; var T : Tree);
var p:Stack;
begin
p:=start;
T:=start^.inf_S;
start:=start^.next;
dispose(p)
end;

Страницы