下列对于PAP协议描述正确的是A、使用两步握手方式完成验证 B、使用三步握手方式完成验证 C、使用

对于下面程序段 program test (input, output) ; var i, j: integer; procedure calculate(x, y: integer); begin y:=y*y; x:=x-y; y:=y-x end; begin i:=2; j:=3; calculate(i, j) writeln(j) end. 若程序执行的输出结果为16，能够产生该结果的参数传递方法有

A、传值

B、传地址

C、得结果

D、传名

●在下列程序中：

Program test(input，output)；

var i.j:integer；

procedure calc(p1，p2：integer)；

beginp2：=p2＊p2 pl：=pl-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) 。

(6) A．3

B．6

C．10

D．16

(7) A．3

B．6

C．10

D．16

(8) A．3

B．6

C．10

D．16

在下列程序中：

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

在下列程序中：

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)：

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

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

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

A．0

B．3

C．5

D．6

E．16

有下列程序 program test(input,output); var s:integer; ch:char; count:array[‘a‘..‘z‘]of integer; begin for ch:=‘a‘to‘z‘do count[ch]:=0; read(ch); while not eoln do begin if(ch>=‘a‘)and(chx[5])and(x[c]/c0) or not(x[a+b]>(a+b))的值是()。

Atrue

Bfalse

C0

D1

在下列程序中；

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

PROGRAM P(input, output) const norw=13; var l,k:integer; word:ARRAY[1..norw]of char; procedure getsym; var i,j:integer; procedure getch(word:real); begin ... end;{getch} begin ... i:=1;k:=i+j; ... end;{getsym} procedure block(lev,lx:integer); var dx,txo:integer; procedure enter(k:real); begin ... end;{enter} procedure stat(fs:integer); var i,cxl:integer; procedure ex(fs:integer); var addop:real; procedure term(fs:intger); var i:integer; begin ... j:=cxl; ... end;{term} begin ...end;{ex} begin ... end;{stat} begin ... end;{block} begin ... end;{P}1)画出扫描到getsym过程体之前的栈符号表，并要求指明DISPLAY和TOP值。（20分） 2)画出扫描到term过程体之前的栈符号表，并要求指明DISPLAY和TOP值。 （20分） 3)编译term的过程体时，试以该过程体中出现的变量i、cxl为例说明其查找范围的控制步骤。（10分）

运行栈。 PROGRAM Tr(input，output) VAR i：integer； d：integer； PROCEDURE A(k：real)； VAR P：char； PROCEDURE B； VAR c：char； BEGIN …①… END； PROCEDURE C； VAR t：real； BEGIN …②… END； BEGIN

B； C；

END； BEGIN

END

C.选择排序：

procedure sort;

var i,j,k:integer;

D. 冒泡排序

procedure bubble_sort;

var i,j,k:integer;