Олимпиадные задачи по программированию. Лучшие решения. Часть 1. Ускова О.Ф - 46 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

{Добавление в стек}
procedure PushStack(var Plan:TPlan;T,B,L,R:integer);
var
p:TStack;
begin
p:=Stack;
new(Stack);
Stack^.Plan:=Plan;
Stack^.T:=T;
Stack^.L:=L;
Stack^.R:=R;
Stack^.B:=B;
Stack^.next:=p
end;
{Извлечение из стека}
procedure PopStack(var Plan:TPlan;var T,B,L,R:integer);
var
p:TStack;
begin
p:=Stack;
Stack:=Stack^.next;
T:=p^.T;
L:=p^.L;
R:=p^.R;
B:=p^.B;
Plan:=p^.Plan;
dispose(p)
end;

Страницы