• Написать процедуру присоединения стека S2 к S1.
    Очень прошу,помогите.

Ответы 1

  • 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; ……………Вставь все в блокнот так лучше видно будет.
    • Автор:

      lee
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years