Написать процедуру присоединения стека S2 к S1.Очень прошу,помогите.
Написать процедуру присоединения стека S2 к S1.
Очень прошу,помогите.
Ответ(ы) на вопрос:
Var N : Integer; x : PStack; …………………. N := Stack^.Data; x:= Stack; Stack := Stack^.Next; Dispose(x); ………………….Type PStack = ^TStack; TStack = Record Data : Integer; Next : PStack; end; Var Stack : PStack;
Var x : PStack; …………… New(x); x^.Data := …….; x^.Next := Stack; Stack := x; ……………
Вставь все в блокнот так лучше видно будет.
Не нашли ответ?
Похожие вопросы