注册化工工程师7003
第3节 计算机程序设计语言
7-59 (C)。
应选(C)。LOGICAL A/.T./ B/.TRUE./,C/F/;
因为式中B前漏写逗号‘,’;C后应写成·F·。
7-60 (B)。
执行语句WRITE(*,‘(1X,2I4)’)(J,J=1,6)后,应输出格式是:
共输出三个记录(即三行),故应选(B)。
7-61 (C)。
当程序执行后,x =0,y =100;
随后z=10;
因X=0,故应执行Z=X*Y=0×100=0.0,
因此应选(C)。
7-62 (A)。
当程序执行后:a=1,b=2,c=3
x =4,y=5
回退一个记录
进入第一次循环
x =4
y =y + x =5+4=9
因y=9
进入第二次循环
x =7
y =y + x =9+7=16
因y=16
进入第三次循环
因该语句已超过文件结尾,执行20语句
打印x =7.0
故应选(A)7.0。
7-63 (B)。
思路同7-62题。
7-64 (C)。
解题思路:
按双重循环的执行过程,外循环变量I分别为1,3,5,内循环变量J分别为2,4,6,最后一次循环时,I应为5,J应为6。故K=I+J=5+6=11,故应选(C)。
7-65 (C)。
解题思路:
首先x =4,因x 不小于-5,也非x =-1,故执行以下语句。又因x <5.0,故
执行y = 1.0/( x +2.0)=1.0/(4+2.0)=1/6,最后输出y =1/6。故应选(C)。
7-66 (C)。
按程序执行顺序。
由于N =3,故A(N,N)=A(3,3),输入按列顺序得:
2814 41016 A(3,3)61218
因N=3,当进入第一次外循环时得:
LS=2+4+6=12,LS=LS/N=12/3=4。
于是A的第一列变为2-4=-2,4-4=0,6-4=2。
当进入第二次外循环时得:
LS=8+10+12=30,LS=LS/N=30/3=10。
于是A的第二列变为8-10=-2,10-10=0,12-10=2。
当进入第三次外循环时得:
LS=14+16+18=48,LS=LS/N=48/3=16。
于是A的第三列变为14-16=-2,16-16=0,18-16=2。
完成了3次循环后,A数组变为
-2-2-2。 000 A(3,3)222
则A(3,2)元素应为2,故最后应选(C)。
7-67 (A)。
先分析本题结构,是由三个程序段构成,其中第一个是主程序段,第二个是子程序,第三个是函数段,输出是在子程序内实现的。
首先在主程序内,按输入,即有NAME='D',SCORE=356.8,LENGTH是个函数,由函数段求得,观察子程序可知:
LENGTH(X)=F(S),即为LENGTH(356.8)=INT(X)/100=INT(356.8)/100,即LENGTH=3。
进入子程序后,即得M=F(S)=3,LINE='***'
输出N,LINE后即得D***
故选(A)。
7-68 (B)。
分析本题是个三维数组,第一个下标是从-2到2,分别是-2,-1,0,1,2;第二个下标是从0到3,分别是0,1,2,3;第三个下标从1到2,分别是1,2。按数组在内存中顺序应是
(-2,0,1),(-1,0,1)(0,0,1)(1,0,1)(2,0,1)
(-2,1,1),(-1,1,1)(0,1,1)(1,1,1)(2,1,1)
……等,故第8号元素应为A(0,1,1)。
故应选(B)。
7-69 (B)。
本题按程序执行顺序:
开始时,输入的A数组元素次序是A(4)=[4,2,3,5];
执行第一次以后,A(4)与A(1)互换,变为A(4)=[5,2,3,4]; 执行第二次以后,A(3)与A(2)互换,变为A(4)=[5,3,2,4]; 执行第三次以后,A(4)与A(2)互换,变为A(4)=[5,4,2,3]; 执行第四次以后,A(4)与A(3)互换,变为A(4)=[5,4,3,2]; 最后输出元素A(4)时,应是2。
故应选(B)。
7-70 (C)。
按题意:本题是由一个子程序段和二个函数段组成:
y =Tx(Fx,3,2)=Tx=(FUN(A)-FUN(B)/2.0)
其中A=3,B=2,而FUN(A)=A*A=32 =9,FUN(B)=B*B=22 =4。
所以y=Tx(Fx,3,2)=(32 -22 )/2.0=2.5。
故,最后输出y=2.5。
本题应选(C)。
7-71 (C)。
按本题执行顺序。
(A)='BIG',(B)='MIDDLE',(C)='SMALL'。
因为(A)<(B),即'BIG'<'MIDDLE',故应执行ELSE以后语句。又因为(B)<(C),即'MIDDLE'<'SMALL',故应打印出(C),即'SMALL'。
最后本题应选(C)。
7-72 (D)
7-73 (C)
7-74 (A)
7-75 (B)