将一棵树赋值给另一棵树，原来也很简单 procedure assign(T1 tree;var T2:tree); var P,Q:tree; begin if T1 nil then T2 :ni1 else 你的第一想 begin 法是循环还 assign(T1T.left_most,P); assign(Tlf.right_sib,Q); 是递归？ new(T2); 你最终的做 T21.element :T1f.element; 法是循环还 T21.left_most :P; 是递归？ T2↑，right._sibt=Q end end;将一棵树赋值给另一棵树，原来也很简单 你的第一想 法是循环还 是递归？ 你最终的做 法是循环还 是递归？