数学建模社区-数学中国

标题: 问苏北高手. [打印本页]

作者: smtg212 时间: 2005-6-23 14:20
标题: 问苏北高手.

dui[em02]16.查找算法
折半查找
function binsearch(k:keytype):integer;
var low,hig,mid:integer;
begin
low:=1;hig:=n;
mid:=(low+hig) div 2;
while (a[mid].key< >k) and (low< =hig) do
begin
if a[mid].key >k then hig:=mid-1
else low:=mid+1;
mid:=(low+hig) div 2;
end;
if low >hig then mid:=0;
binsearch:=mid;
end;

树形查找
二叉排序树：每个结点的值都大于其左子树任一结点的值而小于其右子树任一结点的值。
查找
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;

作者: zjqylcy 时间: 2010-5-1 14:05
虽然我不是苏北的，但是我还是想问一句：问题呢？

欢迎光临数学建模社区-数学中国 (http://www.madio.net/)