根据票据法律制度的规定，下列各项中，属于票据基本当事人的有（）。

] OF rectype； 请完成以下二分查找的算法： FUNC binsrch（r：ordlisttp；k：keytype）：integer； BEGIN low:=1；hig:=n；suc:=false； WHILE ___(1)___ AND NOT（suc）DO [ mid：=__(2)____； CASE k>r[mid].key：low:=mid+1； k=r[mid].key：suc:=true； k <r[mid].key：hig:=mid-1 end;] if suc then __(3)__ else __(4)__>

int binsearch(sqtable R,keytype K)

{ low=l;hig=R.n;/*置查找区间初值。low，hig分别标记查找区间的下、上界*/

while(low＜=hig)

{ mid=(low+hig)/2;

switch

{ case K==R.item[i].key:return(mid); /*找到，返回位置mid*/

case K＜R.item[i].key:______.break;/*缩小区间*/

case K＞R.item[i].key:______;break/*缩小区间*/

}

}

return(0); /*若区间长度已为0但仍不成功，则返回0，表示查找不成功*/

}

树形查找

二叉排序树：每个结点的值都大于其左子树任一结点的值而小于其右子树任一结点的值。

查找

function treesrh(k:keytype):pointer;

var q:pointer;

树形查找

二叉排序树：每个结点的值都大于其左子树任一结点的值而小于其右子树任一结点的值。

查找

function treesrh(k:keytype):pointer;

var q:pointer;

素数的求法

A.小范围内判断一个数是否为质数：

function prime (n: integer): Boolean;

var I: integer;

对下面的Pascal程序： PROGRAM ex710； VAR k：Real； FUNCTION f(n：Integer)：Real； BEGIN IF n＝0 THEN f：＝1 ELSE f：＝n*f(n－1) END； BEGIN k：＝f(10)； Write(k) END． 试指出：当递归调用函数f(n)时，在第二次进入f之后，栈式存储分配活动记录的内容是什么？

素数的求法

A.小范围内判断一个数是否为质数：

function prime (n: integer): Boolean;

var I: integer;

C.选择排序：

procedure sort;

var i,j,k:integer;

D. 冒泡排序

procedure bubble_sort;

var i,j,k:integer;

D. 冒泡排序

procedure bubble_sort;

var i,j,k:integer;