()stack[tp]=t () p=stack[tp] ()p ()++tp
① 本算法将二叉树的左右子树交换
② ()new (s) //初始化申请结点
() s^next=NIL //s是带头结点的链栈
()s^next^data//取栈顶元素
()s^next:= p^next //栈顶指针下移
()dispose(p) //回收空间
()p^next:=s^next//将新结点入链栈
()push(sp^rchild) //先沿树的左分支向下将p的右子女入栈保存
()NOT empty(s)
() finishe:=true //已完成
()finish=true (或s^next=NIL)
[] [] [] [] [] [] [] [] [] []