计算机技术基础试题库

《计算机技术基础试题库》由会员分享，可在线阅读，更多相关《计算机技术基础试题库（20页珍藏版）》请在装配图网上搜索。

1、一、选择题1、下列关于SUBROUTINE MAP(X , Y)语句行的叙述中，不正确的是 ()A)这是子程序的第一个语句 B) 字符串MAP是子程序名C)变量X是子程序的形参D)子程序执行后，MAP将返回整型数据2、FORTRAN 表达式 2/4+0.5 的值是 ( )A) 0.5 B) 1 C) 1.0 D) 03、阅读下列 FORTRAN 程序：PI=3.14159265WRITE(*,(F7.4) )PIEND程序运行后输出结果是 ( )A) 3.142 B) 3.1415 C) 0.31416 D) 3.14164、 圆的直径存放在整型变量K之中，下列计算圆面积的表达式中正确的是 (

2、)A) 3.1415926*K*K/4B) 3.1415926*(K*K/4)应该C) 3.1415926*(K/2)*2D) 3.1415926*(K/2)*(K/2)5、要判断”月收入M在2000元以上(含2000元)且5000元以下)不含5000 元)的职工,使用的逻辑表达式是 ( )A) M .GE. 2000 .AND. M .LE. 5000B) M .GE. 2000 .OR. M .LE. 5000C) M .GE. 2000 .AND. M .LT. 5000D) M .GE. 2000 .OR. M .LT. 50006、设 FORTRAN 子程序如下：SUBROUTINE

3、 SUB(I ， X)B=I+1X=X+BEND若主程序中的变量 M， B 已按 I-N 规则赋值，则调用上述子程序的语句中正确的是( )A) CALL SUB(M， M) B) CALL SUB(M+4 ， B)C) CALL SUB(B ， B) D) CALL SUB(M ， B+4)7、下列不是 FORTRAN 常量的是 ()A) (3.0,4.0) B) 3.1416D+00 C) 2/3 D) Very good!8、阅读下列 FORTRAN 程序：F=1.0DO 20 K=3, 7, 3DO 20 L=K-1, K20 WRTTE(*,(I3, F8.1)K, F*KEND程序运

4、行结果的最后一行是 ( )A) 3 6.0 B) 6 6.0 C) 6 180.0 D) 7 180.0()关系运算，逻辑运算，算术运算 关系运算，算术运算，逻辑运算9、 在 FORTRAN 中，下列运算符的优先顺序 是A) 逻辑运算，关系运算，算术运算B)C) 算术运算，关系运算，逻辑运算D)10、 使用 FORTRAN 内部函数时，所给的自变量( )A) 只能是常量 B) 只能是变量C) 只能是常量或者变量 D) 可以是常量、变量或者表达式11、设 X=2.0, Y=8.0, Z=6.0, L=.TRUE.,则下列 FORTRAN 表达式中值为.TRUE.的是()A) X+Z.GT.Y.A

5、ND.LB) .NOT.(Y.LT.Z+X).NEQV.NOT.LC) .NOT.L.OR.(L.EQV.Y+X.EQ.Z)D) Y+X.GE.Z+X.AND.(L.AND.FALSE.)12 、 下列输出语句行中正确的是A) WRITE(* ，B) WRITE(*C) WRITE(*D) WRITE(*()3， L=1， 3)3 ， L=1 ， 3*)(A(K， L) ， K=1， *)A(K， L) *)(A(K ， L) ，K=1， 3) ， L=1 ， 3) *)(A(K， L) ， K=1， 3) ， L=1， 3K=1 ，13、 给定下列 FORTRAN 子程序如下：SUBROUT

6、INE SUB(K ，A)A=SQRT(K*K+1.0)END下列调用语句中正确的是 ()A) CALL SUB(N,N)B) CALL SUB(X,X)C) CALL SUB(N,X*X)D) CALL SUB(11,X)14 、 阅读下列 FORTRAN 程序 :INTEGER AA(2,3)DATA AA/1,2,3,4,5,6/CALL S2D19(AA)CALL S2D19(AA(1,2)ENDSUBROUTINE S2D19(BB)INTEGER BB(2,2)WRITE(*,(1X,2I3) BB(1,1),BB(2,2)END程序运行结果是 ( )A)1 4 B)1 5 C)1

7、 4 D)1 23 6 2 6 2 53 415、 阅读下列 FORTRAN 程序 :INTEGER A(3,3)DO 10 K=1,3DO 10 L=1,310 A(K,L)=K*10+LWRITE(*,(1X,3I3)AEND程序运行结果是 : ( )A) 11 21 31B) 11 12 13C) 31 32 33D) 33 32 3112 22 3221 22 2321 22 2332 22 2113 23 3331 32 3311 12 1331 21 1116、 阅读下列FORTRAN程序 :WRITE(*,10)YEAR:, 199610 FORMAT(/3X,A,I4)END程

8、序运行结果是(人代表空格，下同)()A) gYEAR:1996B) YEAR:1996C) 空白行D)空白行AAAAAYEAR:1996AAYEAR:199617、某函数子程序中使用了IMPLICIT、READ、COMPLEX和FUNCTION四种语句，其中属于可执行语句的是 :()A)FUNCTION B) READ C) COMPLEX D) IMPLICIT18 、 阅读下列 FORTRAN 程序 :DIMENSION M(4，4)DATA M/1，2，3，4，5，6，7，8，9， 0，1，2，3，4，5，6/DO 10 I=1，4WRITE (*，100)(M(I，J)，J=1，I)1

9、0 CONTINUE100 FORMAT(1X，4I2)END程序运行的结果是 (D) 16A)1234 B)1593 C)167860426121537193 7 11664826344826619、阅读下列 FORTRAN程序：CHARACTER*】。A, B*6DO 10 1=1,10A(I:I)=10 COUNTINUEA(1:5)=ABCDEB=FGHIJKA(4:9)=BWRITE(*,100) A100 FORMAT(1X,A)END程序运行结果是：()A) ABCDEFGHIJ B) ABCDEGHIJK C) ABCFGHIJK D) BCDEFGHIJK20、阅读下列FOR

10、TRAN程序：INTRINSIC SIN , COSWRITE(*, *)FUN(SIN , 30.0)/FUN(COS,30.0)ENDFUNCTION FUN(F,X)X=X*3.14159/180FUN=F(X)END程序运行结果是()A) sin30。的值B) cos30。的值 C) tg30。的值 D) ctg30。的值二、填空题1、下列FORTRAN子程序的功能是用以下公式计算一组数据Z1,Z2, ,Zn的标准差o :o 2=(Z12 +Z2 2+ +Zn2)/n- (Z1+Z2+ +Zn)/n请在 2程序中的下划线处填入合适的内容。【1SIGMA(Z, N)REAL Z(N)SU

11、MX=0.0SUMX2=0.0DO 10 K=1,N【2】SUMX=SUMX+XSUMX2=SUMX2+X*X10 CONTINUEAV=SUMX/NAV2=SUMX2/NS2=AV2-AV*AVSIGMA=【3 】ENDA,然后统计并且输出最高 的请在程序中的下划线处填2、下列FORTRAN程序的功能是将30个学生的考试成绩读入数组 分数以及小于60分、60 80分与大于80分的三个分数段的学生数。入合适的内容。【4 】A(30), B,。DATA C/3*0/READ(*,*)A 【5】DO 10 K=2,30IF(A(K).GT.B) B=A(K)10 CONTINUEDO 30 K=1

12、,30IF (A(K).LT.60)C(1)=C(1)+1IF (A(K).GT.80)C(3)=C(3)+1IF(A(K).LE.80【6 】A(K).GE.60)C(2)=C(2)+130 CONTINUEWRITE(*,*) B,CEND3、下列FORTRAN程序的功能是用对分法求出方程 4.1x3-5.2x=11.8 在区间(1 ,5)中的一个实数根，要求输出根的近似值和对分次数。请在程序中的下划线处填入合适的内容。【7】=4.4*X*3-5.2*X-11.8DATA XL,XR,N/1.0,5.0,0/10 N=N+1X=(XL+XR)/2.0FX=FUN(X)IF (ABS(FX)

13、.LT.1E-6.OR.N.GE.1000)THENWRITE(*,(1X,A2,F12.7,A5,I4)X=,X,N=, NELSEIF(FUN(XR)*FX.GE.0.0) THENXR=X【8】XL=XENDIFENDIFEND4、下列FORTRAN程序的功能是计算多项式 y=2+2.1x+3.2x3+5.4x5 在x=1.7时的值。主程序 调用了函数子程序 POLY。请在程序中的下划线处填入合适的内容。PROGRAM PVALUEREAL A(6)DATA A/【10 】/DATA N，X/6， 1.7/Y=POLY(A,N,X)WRITE(*,(1X,A5,6F5.1)a(k)=,A

14、WRITE(*,(1X,A2,F5.1,A6,F8.2)X=,X,; Y=,YENDFUNCTION POLY(B,M,V)【11】_POLY=B(1)FV=1.0DO 10 K=2, MFV=FV*V10 POLY=POLY+【12 】END5、 下列FORTRAN程序的功能是使用筛法筛选出 N以内的所有素数并输出。其算法如下：在N以内的自然数列中先筛除 2的倍数(不包括2)；在2之后未筛去的第一个数是 3,于是再筛 除3的倍数；在3之后未筛去的第一个数是5,于是再筛除5的倍数；如此重复下去，直到遇见筛剩 下的第一个数是最接近N的平方根的那个数为止。请在程序中下划线处填入合适的内容。PARA

15、METER (N=100)【13 】A(N),P(N)A(1)=0DO 10 K=2,N10 A(K)=KDO 20 K=3,N20 IF(MOD(A(K),2).EQ.O)A(K)=OISR=SQRT(FLOAT(N)DO 30 M=3,ISR,2DO 30 K=M+2, N30 IF(A(K).NE.0.AND.MOD(A(K),M).EQ.0) 【14 】M=1DO 40 K=1,NIF(A(K).NE.0)THENP(M)=【15 】M=M+1ENDIF40 CONTINUEWRITE(*,(1X,10I8)(P(K),K=1,M-1)END三、编写程序题+1/10! 的值。1、以循环

16、来计算 1/1!+1/2!+1/3!+1/4!+2、编写一个程序计算圆面积，输入两个参数，一个参数为输入圆的半径长，另一个参数用来 返回圆面积。3、利用选择排序法编制程序，将数组A 中所有的数值( 5,3,6,4,8,7,1,9,2,10 )从小到大排列。参考答案及评分标准、选择题1、D2、 A3、 D4、A5、C6、B7、 C8、B9、C10、 D11、B12、C13、D14、A15、A16、D17、B18、 C19、C20、C、填空题1】 FUNCTION【2 】X= Z(K)3】 SQRT(S2)4】 INTEGER 或者 REAL5】 B=A(1)【 6 】 .AND.【 7 】 FU

17、N(X) 【8】ELSE 【9】 GOTO 10【 10 】 2.0, 2.1 0.0， 3.2 ， 0.0 ， 5.4(注：顺序不可颠倒，小数点前后的 0 可以省略其中的一个。 【 11 】DIMENSION B(M) 或者 REAL B(M)【12】 B(K)*FV 或者 FV*B(K)【 13 】INTEGER【 14 】A(K)=0 或者 A(K)=0.0 【15】A(K)三、编写程序题1、解题程序：program main implicit noneinteger, parameter : max=10 integer i real item real ans ans = 1.0 i

18、tem = 1.0 do i=2,maxitem = item/real(i) ans = ans+item end do write(*,*) ans stopend program 2、解题程序 :program main implicit none real radius, area write(*,*) 请输入半径长 read(*,*) radius call CircleArea(radius, area) write(*,( 面积 = F8.3) area stopend program subroutine CircleArea(radius, area)implicit non

19、ereal, parameter : PI=3.14159real radius, area area = radius*radius*PIend subroutine3、解题程序 :program mainimplicit noneinteger, parameter : size=10integer : a(size) = (/ 5,3,6,4,8,7,1,9,2,10 /)integer : i,jinteger : tdo i=1, size-1do j=i+1, sizeif ( a(i) a(j) ) then ! a(i) 跟 a(j) 交换 t=a(i)a(i)=a(j)a(j

20、)=tend ifend doend dowrite(*,(10I4) astopend一、选择题1、 下列关于 FORTRAN 源程序编辑规则的叙述之中 , 正确的是 ( ) A) IMPLICIT 语句可以放在 REAL 语句行之后B) DATA 语句可以在放在紧靠 END 语句行之前C) 注释行不可以放在 END 语句行之后D) FORMAT 语句可以放在 PROGRAM 语句行之前2、下列 FORTRAN 源程序的变量名之中 , 不符合规则的是 ( )A) W B) W3 C) -3 D) W3W2 个字节 , 那么该类型的数据值范围是3、 若 FORTRAN 中一个 INTEGER

21、型数据占 用A) -2147484648 2147483647 B) -32768 32767C) 0 4294967295 D) 0 65535 4、 阅读下列程序X=0.618WRITE(*,(E12.4)XD) .6180E+00END 程序运行后显示结果是 ( )A) .6180 B) 6.180E-01 C) .0618E+015、 梯形的上底为A,下底为B,高为H,计算其面积的FORTRAN表达式中错误的是()A) 1/2*(AB)*H B) (A+B)*H/2 C) (A+B)/2*H D) 0.5*(A+B)*H6、要选拔身高 T1.7 米且体重 W62.5 公斤的人 ,FOR

22、TRAN 的逻辑表达式是 ( )A) T.CE.1.7.AND.W.LE.62.5B) T.LE.1.7.OR.W.GE.62.5C) T.GT.1.7.AND.W.LT.62.5D) T.GT.1.7.OR.W.LT.62.57、在 FORTRAN 的变量类型说明语句中没有 ()A) REAl 语句 B) CHAR 语句 C) INTEGER 语句 D) LOGICAL 语句8、 一次成功的 FORTRAN 源程序编译操作 , 不能 ( )A) 同时编译一个主程序和一个子程序B)同时编译几个子程序C) 同时编译一个主程序和几个子程序D)同时编译几个主程序9、 阅读下列程序F=1.0DO 20

23、,J=3,7,2DO 20,K=J-1,J20 F =F*KWRITE(*,(13,F8.1)J,FEND程序运行结果是A) 3 6.0 B) 5 120.0 C) 9 5040.0 D) 9362880.010 、 阅读下列程序CHARACTER*10 WDO K=1,10READ *,WIF (W(1:2).EQ.AB.OR.W(1:2).EQ.ab)WRITE(*,*),WENDDOEND程序的功能是 ( )A) 首字符是 A 或 B 的字符串被输出显示B) 第一、二个字符是 AB 或 ab 的字符串被输出显示C) 首字符是 a 或 b 的字符串将被输出显示D) 第一、二个字符是 Aa

24、或 Bb 的字符串将被输出显示11 、 阅读下列程序LOGICAL LREAD(*,*)A,BL=A.GT.BIF(L)THENX=B+2*AELSEX=BEND IFWRITE(*,*)XEND使用键盘为上述程序输入两个初值4和3,其输出的 X值是()A) 4.0 B) 3.0 C) 11.0 D) 10.012 、 阅读下列程序READ(*,*)KWRITE(*,100)K100 FORMAT(I5)END程序运行时输入初始值 12345, 那么显示结果是A) 2345 B) 12345 C) * D) *13 、 阅读下列程序INTEGER FF(X,Y)=X+YA=-2.5B=2.1B

25、=B+F(A,B)WRITE(*,(F3.1)BEND 程序运行的结果是 ( )A) .1 B) .7 C) 2.1 D) 1.714 、 阅读下列程序A=3.5CALL SUBA(A,A,A)WRITE(*,(F4.1)AENDSUBROUTINE SUBA(X,Y,Z)Y=Y-2.0Z=Z+XEND 程序运行的结果是 ( )A) 7.0 B) 5.0 C) 3.5 D) 1.515 、 阅读下列程序CHARACTER A*4,B*5,C*4DATA A,B,C/BIG ,MIDDLE,SMALL/WRITE(*,20)A,B,C20 FORMAT(1X,A2,A3,A4)ENDD) BIM

26、IDSMAL程序运行结果是 ( )A) BIGMIDDLE B) * C) BIGMIDSMA16 、 阅读下列程序N=0DO 10 K=1,3N =N+1M=K*N10 CONTINUEWRITE(*,(1X,2I3)M,KEND程序运行结果是 ( )A)9 4B)9 3C)12 4D)12 3(#A)17、阅读下列程序FUN(c,d)=a*c+b/dDATA a,b/1.0,1.0/WRITE(*,(F4.1)FUN(a,b)-FUN(b,a)END 程序运行结果是 ( )A) 0.0 B) 4.0 C) 2.O D) 3.O18、阅读下列程序LOGICAL L1,L2,L3,L4,L5D

27、ATA L1,L2,L3/3*.TRUE./L4=.NOT.L1.AND.NOT.L2.AND.L3L5=.NOT.L1.OR.NOT.L2.OR.L3WRITE(*,*)L4,L5END 程序运行结果是 ( )A)TT B)TF C)FF D)FT19、阅读下列程序DIMENSION M(3,3)DATA M/1,2,3,4,5,6,7,8,9/WRITE(*,100)(M(3,J),J=1,3)100 FORMAT(1X,3I2)END 程序运行结果是 ( )A)258B)369C)456D)78920 、 阅读下列程序INTEGER A(100),GREAD(*,*)N,(A(I),I=

28、1,N)DO 10 I=1,N-1G=IDO 20 J=I+1,NIF(A(J).LT.A(G)THENG=JENDIF20 CONTINUEK=A(I)A(I)=A(G)A(G)=K10 CONTINUEWRITE(*,(1X,1OI2)(A(I),I=1,N)END程序运行时输入的初始值是3,6,9,&则运行结果是()A)698B)896C)689D)986二、填空题1、 阅读下列程序，其功能是求出方程2X3-3X 2+4X-11=0在区间(1,5)中的一个实数根，运行结果是显示根值和对分次数，使用的是二分算法。请在其中 处填入适当的内容。FUN(X)=2.0*X*3-3.0*X*2+4.

29、0*X-11.0DATA XL,XR,N/1.O,5.0,0/10 CONTINUE【1】X=(XL+XR)/2.0【2】IF(ABS(FX).LT.lE-6 .0R.N.GE.1000)THENWRITE(*,(1X,A2,F12.7,A5,14)X=,X,N=,NELSEIF(FUN(【3 】)*FX.GE.0.0)THENXR=XELSEXL=XENDIFGOTO 10ENDIFEND2、 阅读下列程序.其功能是计算Y=1+1.1X+1.2X 2+1.3X 3+1.4X 4+L5X 5当X=3.1时的值。主程 序调用了函数子程序。请在其中处填入适当的内容。PROGRAM PVALUE【4

30、】DATA A/1.0,1.1,1.2,1.3,1.4,1.5/,N,X/6,3.1/【5】WRITE(*,(1X,A5,6F5.1)a(k)=,AWRITE(*,(1X,A2,F5.1,A6,F8.2)X=,X,; Y=,YENDFUNCTION POLY(B,M,V)DIMENSION B(M)POLY=B(1)FV=1.0DO 10K=2,MFV=FV*V10【6 】=POLY+B(K)*FVEND3、函数子程序 DTOH能够将一个十进制正整数 DEC转换为一个表示十六进制数的字符字符串，其长度不超过 8。例如127转换为7F。算法是：将 DEC除16取余，将所得的商再除 16取余，如此

31、反复，直到商和零为止，最后按照逆序输出所得的各个余数。请在其中处填入适当的内容。CHARACTER*8 FUNCTION DTOH(DEC)INTEGER DEC,R,POSPOS=9DTOH=111 CONTINUE【7】IF(POS.GE.1)THENR=MOD(DEC,16)IF(R.LT.1O)THEN【8 】=CHAR(ICHAR(O)+R )ELSEDTOH(POS:POS)=CHAR(ICHAR(A)+R-10)ELSEDTOH=*GOTO999ENDIFDEC=DEC/16IF(【9 】)GOTO 111999 CONTINUEENDPROGRAM DECHEXCHARACTE

32、R*8 DTOHWRETE(*,*) DTOH(127)END4、 有一个十进制的四位数ABCD与一个十进制的三位数 CDC的差等于十进制的三位数 ABC.下列程序按ABCD=9876的样式打印出 ABCD这个数。请在其中 外填入适当的内容.INTEGER A,B,C,DDO 10 A=1,9DO 10 B=0,9DO 10 C=1,9【10】L=1000*A+100*B+10*C+DM=100*C+10*D+CN=100*B+CIF(【11 】)WRITE(*,(【12 】)XABCD=,A,B,C,D10 CONTINUEEND5、阅读下列程序，其功能是使用筛法选出N以内的所有素数并显示算

33、法在 N以内的自然数列中先筛除2的倍数；在2之后筛乘下的第一个数是3，于是再筛除3的倍数；在3之后筛剩下的第 一个数是5，于是再筛除5的倍数；如此重复下去，直到遇见筛剩下的第一个数是最接近N的平方根的那个数为止。请在其中处填入适当的内容。PROGRAM PRINESPARAMETER (N=100)INTEGER A(N),P(N)DO 10 K=1,N10 A(K)=KDO 20 K=3,N20 IF(【13 】.EQ.0)A(K)=0ISR=SQRT(REAL(N)DO 30M=3,ISR,2DO 30K=M+2,N30 IF(A(K).NE.0.AND.MOD(A(K),M).EQ.0)

34、A(K)=0M=1DO 40K=2.NIF(A(K).NE.0)THEN【14】M=M+1ENDIF40 CONTINUEWRITE(*,(1X,1018)(P(K),【15 】)END、编写程序题1、以循环来计算等差数列1+3+5+7+99 的值。列。3、编制函数GCD ( A,B)计算输入的两个整数 A,B的最大公因子。参考答案、选择题1、 B 2、 C3、 B4、 D5、 A6、C7、 B8、 D9、 C 10、 B11 、 C12 、 B13 、 A14 、C15 、 D16 、 A17 、 B 18、 D19 、 B20 、 C二、填空题1】 N=N+1 或 N=1+N2】 FX=F

35、UN(X)3】 XR4】 DIMENSION A(6) 或 REPL A(6)5】 Y=POLY(A,N,X)【6】 POLY【7】 POS=POS-1【8】 DTOH(POS:POS)【9】 DEC.NE.0 或 DEC.GT.0【10】 DO 10 D=0,9 或 DO 10,D=0,9【11】 L-M.EQ.N 或 (L-M).EQ.N【12】 A6.411【13】 MOD(A(K),2)【14】 P(M)=A(K)【15】 K=1,M-1三、编写程序题1、解题程序 :program mainimplicit noneinteger i,sumsum = 0do i=1,99,2sum

36、= sum+iend dowrite(*,*) sumstopend program2、排序程序：program mainimplicit noneinteger, parameter : size=10integer : a(size) = (/ 5,3,6,4,8,7,1,9,2,10 /) integer : i,jinteger : tdo i=1, size-1do j=i+1, sizeif ( a(i) a(j) ) then ! a(i) 跟 a(j) 交换 t=a(i)a(i)=a(j)a(j)=tend ifend doend dowrite(*,(10I4) astop3、解题程序：endprogram mainimplicit noneinteger, external : gcd write(*,*) gcd(18,12) end program integer function gcd(A,B)implicit noneinteger A,B,BIG,SMALL,TEMP BIG=max(A,B)SMALL=min(A,B)do while( SMALL /= 1 )TEMP=mod(BIG,SMALL) if ( TEMP=0 ) exit BIG=SMALL SMALL=TEMPend dogcd=SMALLreturnend function