树形查找算法

[其他]代码库

二叉排序树：每个结点的值都大于其左子树任一结点的值而小于其右子树任一结点的值。
查找
function treesrh(k:keytype):pointer;
var q:pointer;
begin
  q:=root;
  while (q<>nil) and (q^.key<>k) do
    if k<q^.key then q:=q^.left
    else q:=q^.right;
   treesrh:=q;
end;