网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

在下列程序中:

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);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.3B.6C.10D.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))的值是( )。AtrueBfalseC0D1

考题 program exam(output); var x,y,x:integer; proedure silly(x:integer;vary:integer); begin x:=5;y:=6;z:=3; writeln(x,y,z) end; begin x:=1;y:=2;z:=3; silly(x,y); writeln(x,y,z) end. 以上程序运行结果为(). A567 563B567 567C567 167D567 163

考题 ●在下列程序中: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) 。(33) ,(34) A.10B.16C.20D.28(35) A.0B.3C.5D.6(36) A.数组B.栈C.队列D.循环链表(37) 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.3B.6C.10D.16(7) A.3B.6C.10D.16(8) A.3B.6C.10D.16

考题 单击命令按钮时,下列程序的执行结果为Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera=2: b=3: c=4Print P2(c, b, A.End SubPrivate Function P1(x As Integer, y As Integer, z As Integer)P1=2 * x + y + 3 * zEnd FunctionPrivate Function P2(x As Integer, y As Integer, z As Integer)P2=P1(z, x, y) + xEnd Function ( )。A.21B.19C.17D.34

考题 下列程序运行后,单击命令按钮,窗体显示的结果为( )。 Private Function pl(x As Integer,y As Integer,z As Integer) pl=2*x+y+3*z End Function Private Function p2(X As Integer,y As Integer,z As Integer) p2=p1(z,y,x)+x End Function Private Sub Commandl_Click()A.23B.19C.21D.22

考题 单击命令按钮时,下列程序的执行结果为 Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer a=2:b=3:C=4 Print P2(c,b,A)End Sub Private Function P1(x As Integer,y As Integer,z As Integer) P1=2 * X + y + 3 * z End Function Private Function P2(x As Integer,y As Integer,z As Integer) P2=P1(z,x,y) + X End FunctionA.21B.19C.17D.34

考题 在下列程序中: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.0B.3C.5D.6E.16

考题 单击一次命令按钮,下列程序代码的执行结果为( )。 Private Sub Commandl_Click() Dima As Integer,b As Integer,CASInteger a=2:b=3:c=4 PrintP2(c,b,A) End Sub PrivateFunctionPl(X As Integer,y As Intege;z As Integer) P1=2*x+y+3*Z End Function PrivaA.21B.19C.17D.34

考题 四、排序算法A.快速排序:procedure qsort(l,r:integer);var i,j,mid:integer;

考题 B.插入排序:思路:当前a[1]..a[i-1]已排好序了,现要插入a[i]使a[1]..a[i]有序。procedure insert_sort;var i,j:integer;

考题 C.选择排序:procedure sort;var i,j,k:integer;

考题 D. 冒泡排序procedure bubble_sort;var i,j,k:integer;

考题 F. 归并排序{a为序列表,tmp为辅助数组}procedure merge(var a:listtype; p,q,r:integer);{将已排序好的子序列a[p..q]与a[q+1..r]合并为有序的tmp[p..r]}var I,j,t:integer;tmp:listtype;

考题 高精度数的定义:typehp=array[1..maxlen] of integer;1.高精度加法procedure plus ( a,b:hp; var c:hp);var i,len:integer;

考题 高精度减法procedure substract(a,b:hp;var c:hp);var i,len:integer;

考题 高精度乘以低精度procedure multiply(a:hp;b:longint;var c:hp);var i,len:integer;

考题 高精度乘以高精度procedure high_multiply(a,b:hp; var c:hp}var i,j,len:integer;

考题 已知前序中序求后序procedure Solve(pre,mid:string);var i:integer;

考题 链表的定位函数loc(I:integer):pointer; {寻找链表中的第I个结点的指针}procedure loc(L:linklist; I:integer):pointer;var p:pointer;j:integer;

考题 以下程序运行后,单击命令按钮,窗体显示的结果是 ______。 Private Function p1(x As Integer,y As Integel,z As Integer) p1=2*x+y+3*z End Function Private Function p2(x As Integer,y As Integer,z As Integer) p2=p1(2,y,x)+x End Function Private SubCommandl_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2:b=3:c=4 Print p2(c,b,A)End SubA.19B.21C.22D.23

考题 Program(73)describes program's objectives, desired output, input data required, processing requirement, and documentation.A.specification B.flowchart C.structure D.address

考题 Program( )describes program's objectives,desired output,input data required,processing requirement,and documentation.A.specification B.flowchart C.structure D.address

考题 单选题分析下面的PASCAL程序,给出正确的运行结果() PROGRAM mx(input,output); VAR R,s,t:integer; PROCEDURE change(a,b:integer); VAR T:integer; BEGIN A:=3*a; B:=2*b; T:=a+b; End; BEGIN R:=2;s:=4;t:=6; Change(r,s); Writeln(‘r=’,r,’s=’,s,’t=’,t)End.A r=2 s=4 t=6B r=2 s=4 t=14C r=6 s=8 t=6D r=6 s=8 t=14

考题 填空题下列程序的运行结果是()。  Program test  Implicit none  Integer::i  Integer::a(5)=(/ (i, i=1,5) /)  Integer::b(5)=0       Where (a3)            b=a     End where  Write(*,”(5(i3,1x))”) b  end

考题 填空题下列程序的运行结果是()。  Program test      Implicit none      Integer,parameter:: limit=10      Integer counter      Integer:: ans=0      Counter=2     do while(counter=limit)      ans=ans+counter      counter=counter+2   end do Wrte(*,*)ans end

考题 填空题下列程序的运行结果是()。  Program test  Implicit none  Integer::i  Integer::a(5)        Forall ( i=1:5 )     A(I)=5  End forall  Write(*,*)a  Stop  end