将一棵树赋值给另一棵树，怎么办？ procedure assign(T1 tree;var T2 tree); var P,Q tree; begin if T1 nil then T2 :ni1 else element begin 形 assign(T11.left_most,P); assign(Tl1.right_sib,Q); left_most right_sib new(T2); T21.element :Tlf.element; c-o·形 T21.left_most :P; T21.right_sib =Q end end;将一棵树赋值给另一棵树，怎么办？