在下列程序中：Program test(input，output)；var i，j：integer；procedure calc(p1，p2：integer)；begin p2：=p2*p2 p1：=p1-p2；p2：=p2-p1；end{caic}begin{main}I：=2；j：=3；calc(i，j)；write(j)；end{main}当参数传递采用引用方式(Call by Reference)时，所得结果j=(16)；当参数传递采用换名方式(Call by Name)时，所得结果j=(17)：

在下列程序中；

Program test(input, output);

var i, j: integer;

procedure calc(p1, p2:integer);

begin p2:=p2*p2 p1:=p1-p2; p2:=p2-p1;end{caic}

begin{main}i:=2;j:=3;

calc(i,j);write(j);

end{main}

当参数传递采用引用方式(Call by reference)时，所得结果j=(33)；

当参数传递采用换名方式(Call by name)时，所得结果j=(34)；

当参数传递采用赋值方式(Call by value)时，所得结果j=(35)；

递归是程序设计中很重要的一种控制结构，通常实现递归时，采用的数据结构是(36)。

对那些既可以用递归方式，也可以用循环方式求解的问题，就执行效率而言(37)。

A．10

B．16

C．20

D．28

链表的定位函数

loc(I:integer):pointer; {寻找链表中的第I个结点的指针}

procedure loc(L:linklist; I:integer):pointer;

var p:pointer;

j:integer;

最小生成树

A.Prim算法：

procedure prim(v0:integer);

var

lowcost,closest:array[1..maxn] of integer;

i,j,k,min:integer;

在下列程序中：

Program test(input, output);

var i. j:integer;

procedure calc(p1, p2: integer);

beginp2: = p2 * p2 p1: = p1 - p2; p2: = p2 - p1; end {caic}

begin {main} i: =2;j:=3;

calc(i,j); write(j);

end {main}

当参数传递采用引用方式(Call by reference)时，所得结果j=(6)；

当参数传递采用换名方式(Call by name)时，所得结果，j=(7)；

当参数传递采用赋值方式(Call by value)时，所得结果，j=(8)。

A．3

B．6

C．10

D．16