《2022年2022年计算机技术基础试题库 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年计算机技术基础试题库 .pdf（19页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第 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) 0 3、 阅读下列 FORTRAN 程序：PI=3.14159265 WRITE(*,(F7.4) )PI END 程序运行后输出结果是( ) A) 3.142 B) 3.1415 C) 0.31416 D) 3.1416 4、 圆的直径存放在整
2、型变量K之中，下列计算圆面积的表达式中正确的是( ) A) 3.1415926*K*K/4 B) 3.1415926*(K*K/4) C) 3.1415926*(K/2)*2 D) 3.1415926*(K/2)*(K/2) 5、 要判断 月收入 M在 2000 元以上 ( 含 2000 元) 且 5000 元以下 ) 不含 5000 元) 的职工， 应该使用的逻辑表达式是( ) A) M .GE. 2000 .AND. M .LE. 5000 B) M .GE. 2000 .OR. M .LE. 5000 C) M .GE. 2000 .AND. M .LT. 5000 D) M .GE.
3、2000 .OR. M .LT. 5000 6、 设 FORTRAN 子程序如下：SUBROUTINE SUB(I ，X) B=I+1 X=X+B END 若主程序中的变量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.0 名师资料总结
4、- - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 19 页 - - - - - - - - - 第 2 页/共页DO 20 K=3, 7, 3 DO 20 L=K-1, K 20 WRTTE(*,(I3, F8.1)K, F*K END 程序运行结果的最后一行是( ) A) 3 6.0 B) 6 6.0 C) 6 180.0 D) 7 180.0 9、 在 FORTRAN 中，下列运算符的优先顺序是( ) A) 逻辑运算，关系运算，算术运算 B) 关系运算，逻辑运算，算术运算C) 算术运
5、算，关系运算，逻辑运算 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.AND.L B) .NOT.(Y.LT.Z+X).NEQV.NOT.L C) .NOT.L.OR.(L.EQV.Y+X.EQ.Z) D) Y+X.GE.Z+X.AND.(L.AND.FALSE.) 12、 下列输出语句行中正确的是
6、( ) A) WRITE(* ，*)(A(K ， L) ，K=1，3，L=1，3) B) WRITE(* ，*)A(K ，L) ，K=1，3，L=1，3 C) WRITE(* ，*)(A(K，L) ，K=1，3)， L=1 ，3) D) WRITE(* ，*)(A(K ， L) ，K=1，3) ，L=1，3 13、 给定下列FORTRAN 子程序如下：SUBROUTINE 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,
7、X) 14、 阅读下列FORTRAN 程序: INTEGER AA(2,3) DATA AA/1,2,3,4,5,6/ CALL S2D19(AA) CALL S2D19(AA(1,2) END 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 19 页 - - - - - - - - - 第 3 页/共页SUBROUTINE S2D19(BB) INTEGER BB(2,2) WRITE(*,(1X,2I3) BB(1,1),BB(2,2) END 程序运行结果是( )
8、A) 1 4 B) 1 5 C) 1 4 D) 1 2 3 6 2 6 2 5 3 4 15、 阅读下列FORTRAN 程序: INTEGER A(3,3) DO 10 K=1,3 DO 10 L=1,3 10 A(K,L)=K*10+L WRITE(*,(1X,3I3)A END 程序运行结果是: ( ) A) 11 21 31 B) 11 12 13 C) 31 32 33 D) 33 32 31 12 22 32 21 22 23 21 22 23 32 22 21 13 23 33 31 32 33 11 12 13 31 21 11 16、 阅读下列FORTRAN 程序: WRITE
9、(*,10)YEAR:, 1996 10 FORMAT(/3X,A,I4) END 程序运行结果是( 代表空格 , 下同) ( ) A) YEAR:1996 B) YEAR:1996 C) 空白行 D) 空白行 YEAR:1996 YEAR:1996 17、某函数子程序中使用了IMPLICIT 、READ 、COMPLEX 和 FUNCTION 四种语句 , 其中属于可执行语句的是 : ( ) A)FUNCTION B) READ C) COMPLEX D) IMPLICIT 18、 阅读下列FORTRAN 程序: DIMENSION M(4,4) DATA M/1,2,3,4,5,6,7,8
10、,9，0,1,2,3,4,5,6/ DO 10 I=1,4 WRITE (*,100)(M(I,J),J=1,I) 10 CONTINUE 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 19 页 - - - - - - - - - 第 4 页/共页100 FORMAT(1X,4I2) END 程序运行的结果是( ) A) 1 2 3 4 B) 1 5 9 3 C) 1 D) 1 6 7 8 6 0 4 2 6 2 6 6 1 2 1 5 3 7 1 9 3 7 1 1
11、6 6 4 8 2 6 3 4 4 8 2 6 6 19、 阅读下列FORTRAN 程序: CHARACTER*10 A, B*6 DO 10 I=1,10 A(I:I)= 10 COUNTINUE A(1:5)=ABCDE B=FGHIJK A(4:9)=B WRITE(*,100) A 100 FORMAT(1X,A) END 程序运行结果是：( ) A) ABCDEFGHIJ B) ABCDEGHIJK C) ABCFGHIJK D) BCDEFGHIJK 20、 阅读下列FORTRAN 程序：INTRINSIC SIN ， COS WRITE(*，*)FUN(SIN ，30.0)/FU
12、N(COS,30.0) END FUNCTION FUN(F,X) X=X*3.14159/180 FUN=F(X) END 程序运行结果是 ( ) A) sin30 的值B) cos30 的值C) tg30 的值D) ctg30 的值二、填空题1、下列 FORTRAN 子程序的功能是用以下公式计算一组数据Z1,Z2, ,Zn 的标准差 ：2=(Z12 +Z22+Zn2)/n-(Z1+Z2+Zn)/n2请在程序中的下划线处填入合适的内容。【1】 SIGMA(Z，N) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理
13、- - - - - - - 第 4 页，共 19 页 - - - - - - - - - 第 5 页/共页REAL Z(N) SUMX=0.0 SUMX2=0.0 DO 10 K=1,N 【2】SUMX=SUMX+X SUMX2=SUMX2+X*X 10 CONTINUE AV=SUMX/N AV2=SUMX2/N S2=AV2-AV*AV SIGMA= 【3】END 2、 下列 FORTRAN 程序的功能是将30 个学生的考试成绩读入数组A,然后统计并且输出最高的分数以及小于60 分、6080 分与大于 80 分的三个分数段的学生数。请在程序中的下划线处填入合适的内容。【4】 A(30),
14、B, C(3) DATA C/3*0/ READ(*,*)A 【5】DO 10 K=2,30 IF(A(K).GT.B) B=A(K) 10 CONTINUE DO 30 K=1,30 IF (A(K).LT.60)C(1)=C(1)+1 IF (A(K).GT.80)C(3)=C(3)+1 IF(A(K).LE.80 【6】 A(K).GE.60)C(2)=C(2)+1 30 CONTINUE WRITE(*,*) B,C END 3、下列 FORTRAN 程序的功能是用对分法求出方程4.1x3-5.2x=11.8在区间 (1 ，5) 中的一个实数根，要求输出根的近似值和对分次数。请在程序中
15、的下划线处填入合适的内容。【7】 =4.4*X*3-5.2*X-11.8 DATA XL,XR,N/1.0,5.0,0/ 10 N=N+1 X=(XL+XR)/2.0 FX=FUN(X) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 19 页 - - - - - - - - - 第 6 页/共页IF (ABS(FX).LT.1E-6.OR.N.GE.1000)THEN WRITE(*,(1X,A2,F12.7,A5,I4)X=,X,N=, N ELSE IF(FUN(X
16、R)*FX.GE.0.0) THEN XR=X 【8】XL=X ENDIF 【9】ENDIF END 4、 下列 FORTRAN 程序的功能是计算多项式y=2+2.1x+3.2x3+5.4x5 在 x=1.7 时的值。主程序调用了函数子程序POLY 。请在程序中的下划线处填入合适的内容。PROGRAM PVALUE REAL A(6) DATA A/【10】 / DATA N ，X/6， 1.7/ Y=POLY(A,N,X) WRITE(*,(1X,A5,6F5.1)a(k)=,A WRITE(*,(1X,A2,F5.1,A6,F8.2)X=,X,; Y=,Y END FUNCTION POL
17、Y(B,M,V) 【11】POLY=B(1) FV=1.0 DO 10 K=2, M FV=FV*V 10 POLY=POLY+ 【12】END 5、 下列 FORTRAN 程序的功能是使用筛法筛选出N以内的所有素数并输出。其算法如下：在 N 以内的自然数列中先筛除2 的倍数 ( 不包括 2) ； 在 2 之后未筛去的第一个数是3, 于是再筛除 3 的倍数； 在 3 之后未筛去的第一个数是5, 于是再筛除5 的倍数； 如此重复下去， 直到遇见筛剩下的第一个数是最接近N的平方根的那个数为止。请在程序中下划线处填入合适的内容。PARAMETER (N=100) 【13】 A(N),P(N) A(1
18、)=0 DO 10 K=2,N 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 19 页 - - - - - - - - - 第 7 页/共页10 A(K)=K DO 20 K=3,N 20 IF(MOD(A(K),2).EQ.0)A(K)=0 ISR=SQRT(FLOAT(N) DO 30 M=3,ISR,2 DO 30 K=M+2, N 30 IF(A(K).NE.0.AND.MOD(A(K),M).EQ.0)【14】M=1 DO 40 K=1,N IF(A(K).N
19、E.0)THEN P(M)=【15】M=M+1 ENDIF 40 CONTINUE WRITE(*,(1X,10I8)(P(K),K=1,M-1) END三、编写程序题1、以循环来计算 1/1!+1/2!+1/3!+1/4!+ +1/10! 的值。2、编写一个程序计算圆面积，输入两个参数，一个参数为输入圆的半径长，另一个参数用来返回圆面积。3、利用选择排序法编制程序，将数组A 中所有的数值（5,3,6,4,8,7,1,9,2,10）从小到大排列。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - -
20、 - 第 7 页，共 19 页 - - - - - - - - - 第 8 页/共页参考答案及评分标准一、选择题1、 D 2、 A 3、 D 4、 A 5、 C 6、 B 7、 C 8、 B 9、 C 10、D 11、B 12、C 13、D 14、A 15、A 16、D 17、B 18、C 19、C 20、C 二、填空题【1】FUNCTION 【2】XZ(K) 【3】SQRT(S2) 【4】 INTEGER或者 REAL 【5】 B=A(1) 【6】.AND. 【7】FUN(X) 【8】ELSE 【9】 GOTO 10 【10】 2.0, 2.1 0.0，3.2 ， 0.0 ，5.4 （注：顺
21、序不可颠倒，小数点前后的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 none integer, parameter : max=10 integer i real item real ans ans = 1.0 item = 1.0 do i=2,max item = item/real(i) ans = ans+item end do 名师资
22、料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 19 页 - - - - - - - - - 第 9 页/共页 write(*,*) ans stop end program 2、解题程序 : program main implicit none real radius, area write(*,*) 请输入半径长 read(*,*) radius call CircleArea(radius, area) write(*,( 面积 = F8.3) area stop end
23、 program subroutine CircleArea(radius, area) implicit none real, parameter : PI=3.14159 real radius, area area = radius*radius*PI end subroutine 3、解题程序 : program main implicit none integer, parameter : size=10 integer : a(size) = (/ 5,3,6,4,8,7,1,9,2,10 /) integer : i,j integer : t do i=1, size-1 do
24、 j=i+1, size if ( a(i) a(j) ) then ! a(i)跟 a(j)交换 t=a(i) a(i)=a(j) a(j)=t end if end do end do write(*,(10I4) a stop end名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 19 页 - - - - - - - - - 第 1 页/共页一、选择题1、 下列关于 FORTRAN 源程序编辑规则的叙述之中, 正确的是 ( ) A) IMPLICIT语句可以放在RE
25、AL语句行之后B) DATA 语句可以在放在紧靠END语句行之前C) 注释行不可以放在END语句行之后D) FORMAT语句可以放在PROGRAM语句行之前2、 下列 FORTRAN 源程序的变量名之中, 不符合规则的是( ) A) W B) W3 C) -3 D) W3W 3、 若 FORTRAN 中一个 INTEGER 型数据占用2 个字节 , 那么该类型的数据值范围是( ) A) -2147484648 2147483647 B) -32768 32767 C) 0 4294967295 D) 0 65535 4、 阅读下列程序X=0.618 WRITE(*,(E12.4)X END 程
26、序运行后显示结果是( ) A) .6180 B) 6.180E-01 C) .0618E+01 D) .6180E+00 5、 梯形的上底为A,下底为 B, 高为 H,计算其面积的FORTRAN 表达式中错误的是( ) A) 1/2*(AB)*H B) (A+B)*H/2 C) (A+B)/2*H D) 0.5*(A+B)*H 6、 要选拔身高T1.7 米且体重 W62.5公斤的人 ,FORTRAN 的逻辑表达式是( ) A) T.CE.1.7.AND.W.LE.62.5 B) T.LE.1.7.OR.W.GE.62.5 C) T.GT.1.7.AND.W.LT.62.5 D) T.GT.1.
27、7.OR.W.LT.62.5 7、 在 FORTRAN 的变量类型说明语句中没有( ) A) REAl 语句 B) CHAR语句 C) INTEGER语句 D) LOGICAL语句8、 一次成功的FORTRAN 源程序编译操作, 不能 ( ) A) 同时编译一个主程序和一个子程序 B) 同时编译几个子程序C) 同时编译一个主程序和几个子程序 D) 同时编译几个主程序9、 阅读下列程序F=1.0 DO 20,J=3,7,2 DO 20,K=J-1,J 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - -
28、 - - 第 10 页，共 19 页 - - - - - - - - - 第 2 页/共页20 F =F*K WRITE(*,(13,F8.1)J,F END 程序运行结果是A) 3 6.0 B) 5 120.0 C) 9 5040.0 D) 9362880.0 10、 阅读下列程序CHARACTER*10 W DO K=1,10 READ *,W IF (W(1:2).EQ.AB.OR.W(1:2).EQ.ab)WRITE(*,*),W ENDDO END 程序的功能是( ) A) 首字符是A或 B的字符串被输出显示B) 第一、二个字符是AB或 ab 的字符串被输出显示C) 首字符是 a 或
29、 b 的字符串将被输出显示D) 第一、二个字符是Aa 或 Bb的字符串将被输出显示11、 阅读下列程序LOGICAL L READ(*,*)A,B L=A.GT.B IF(L)THEN X=B+2*A ELSE X=B END IF WRITE(*,*)X END 使用键盘为上述程序输入两个初值4 和 3, 其输出的 X值是( ) A) 4.0 B) 3.0 C) 11.0 D) 10.0 12、 阅读下列程序READ(*,*)K WRITE(*,100)K 100 FORMAT(I5) END 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - -
30、- - - - 名师精心整理 - - - - - - - 第 11 页，共 19 页 - - - - - - - - - 第 3 页/共页程序运行时输入初始值12345, 那么显示结果是A) 2345 B) 12345 C) * D) * 13、 阅读下列程序INTEGER F F(X,Y)=X+Y A=-2.5 B=2.1 B=B+F(A,B) WRITE(*,(F3.1)B END 程序运行的结果是( ) A) .1 B) .7 C) 2.1 D) 1.7 14、 阅读下列程序A=3.5 CALL SUBA(A,A,A) WRITE(*,(F4.1)A END SUBROUTINE SUB
31、A(X,Y,Z) Y=Y-2.0 Z=Z+X END 程序运行的结果是( ) A) 7.0 B) 5.0 C) 3.5 D) 1.5 15、 阅读下列程序CHARACTER A*4,B*5,C*4 DATA A,B,C/BIG ,MIDDLE,SMALL/ WRITE(*,20)A,B,C 20 FORMAT(1X,A2,A3,A4) END 程序运行结果是( ) A) BIGMIDDLE B) * C) BIGMIDSMA D) BIMIDSMAL 16、 阅读下列程序N=0 DO 10 K=1,3 N =N+1 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - -
32、- - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 19 页 - - - - - - - - - 第 4 页/共页M=K*N 10 CONTINUE WRITE(*,(1X,2I3)M,K END 程序运行结果是( ) A) 9 4 B) 9 3 C) 12 4 D) 12 3(#) 17、 阅读下列程序FUN(c,d)=a*c+b/d DATA 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.O 18、 阅读下列程序LOGIC
33、AL L1,L2,L3,L4,L5 DATA L1,L2,L3/3*.TRUE./ L4=.NOT.L1.AND.NOT.L2.AND.L3 L5=.NOT.L1.OR.NOT.L2.OR.L3 WRITE(*,*)L4,L5 END 程序运行结果是( ) A) T T B) T F C) F F D) F T 19、 阅读下列程序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) 2 5 8 B) 3 6 9 C) 4 5 6 D)
34、 7 8 9 20、 阅读下列程序INTEGER A(100),G READ(*,*)N,(A(I),I=1,N) DO 10 I=1,N-1 G=I 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 19 页 - - - - - - - - - 第 5 页/共页DO 20 J=I+1,N IF(A(J).LT.A(G)THEN G=J ENDIF 20 CONTINUE K=A(I) A(I)=A(G) A(G)=K 10 CONTINUE WRITE(*,(1X,10
35、I2)(A(I),I=1,N) END 程序运行时输入的初始值是3,6,9,8,则运行结果是 ( ) A) 6 9 8 B) 8 9 6 C) 6 8 9 D) 9 8 6 二、填空题1、 阅读下列程序，其功能是求出方程2X3-3X2+4X-11=0 在区间 (1,5) 中的一个实数根，运行结果是显示根值和对分次数，使用的是二分算法。请在其中_处填入适当的内容。FUN(X)=2.0*X*3-3.0*X*2+4.0*X-11.0 DATA XL,XR,N/1.O,5.0,0/ 10 CONTINUE 【1】X=(XL+XR)/2.0 【2】IF(ABS(FX).LT.1E-6 .OR.N.GE.
36、1000)THEN WRITE(*,(1X,A2,F12.7,A5,14)X=,X,N=,N ELSE IF(FUN( 【3】)*FX.GE.0.0)THEN XR=X ELSE XL=X ENDIF GOTO 10 ENDIF END 2、 阅读下列程序 . 其功能是计算Y=1+1.1X+1.2X2+1.3X3+1.4X4+1.5X5当 X=3.1 时的值。主程序调用了函数子程序。请在其中_处填入适当的内容。PROGRAM PVALUE 【4】名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - -
37、 - 第 14 页，共 19 页 - - - - - - - - - 第 6 页/共页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)=,A WRITE(*,(1X,A2,F5.1,A6,F8.2)X=,X,; Y=,Y END FUNCTION POLY(B,M,V) DIMENSION B(M) POLY=B(1) FV=1.0 DO 10K=2,M FV=FV*V 10 【6】=POLY+B(K)*FV END 3、 函数子程序DTOH 能够将一个十进制正整数DEC转换为一个表示十六进制数的字符
38、字符串，其长度不超过8。例如127 转换为 7F 。算法是：将DEC除 16 取余，将所得的商再除16 取余，如此反复，直到商和零为止，最后按照逆序输出所得的各个余数。请在其中_处填入适当的内容。CHARACTER*8 FUNCTION DTOH(DEC) INTEGER DEC,R,POS POS=9 DTOH= 111 CONTINUE 【7】IF(POS.GE.1)THEN R=MOD(DEC,16) IF(R.LT.1O)THEN 【8】=CHAR(ICHAR(0)+R ) ELSE DTOH(POS:POS)=CHAR(ICHAR(A)+R-10) ELSE DTOH=* GOTO9
39、99 ENDIF DEC=DEC/16 IF( 【9】)GOTO 111 999 CONTINUE END PROGRAM DECHEX 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 19 页 - - - - - - - - - 第 7 页/共页CHARACTER*8 DTOH WRETE(*,*) DTOH(127) END 4、 有一个十进制的四位数ABCD 与一个十进制的三位数CDC的差等于十进制的三位数ABC.下列程序按 ABCD=9876的样式打印出ABCD
40、 这个数。请在其中_外填入适当的内容. INTEGER A,B,C,D DO 10 A=1,9 DO 10 B=0,9 DO 10 C=1,9 【10】L=1000*A+100*B+10*C+D M=100*C+10*D+C N=100*B+C IF( 【11】)WRITE(*,(【12】)XABCD=,A,B,C,D 10 CONTINUE END 5、 阅读下列程序，其功能是使用筛法选出N以内的所有素数并显示算法在N以内的自然数列中先筛除2 的倍数；在2 之后筛乘下的第一个数是3，于是再筛除3 的倍数；在3 之后筛剩下的第一个数是5，于是再筛除5 的倍数； 如此重复下去 , 直到遇见筛剩下
41、的第一个数是最接近 N的平方根的那个数为止。请在其中_处填入适当的内容。PROGRAM PRINES PARAMETER (N=100) INTEGER A(N),P(N) DO 10 K=1,N 10 A(K)=K DO 20 K=3,N 20 IF( 【13】.EQ.0)A(K)=0 ISR=SQRT(REAL(N) DO 30M=3,ISR,2 DO 30K=M+2,N 30 IF(A(K).NE.0.AND.MOD(A(K),M).EQ.0)A(K)=0 M=1 DO 40K=2.N IF(A(K).NE.0)THEN 【14】M=M+1 ENDIF 名师资料总结 - - -精品资料欢
42、迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 16 页，共 19 页 - - - - - - - - - 第 8 页/共页40 CONTINUE WRITE(*,(1X,1018)(P(K), 【15】) END三、编写程序题1、以循环来计算等差数列 1+3+5+7+ +99 的值。2、利用选择排序法编制程序，将数组A 中所有的数值（5,3,6,4,8,7,1,9,2,10）从大到小排列。3、编制函数GCD （A,B）计算输入的两个整数A,B 的最大公因子。名师资料总结 - - -精品资料欢迎下载 - - - -
43、- - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 17 页，共 19 页 - - - - - - - - - 第 9 页/共页参考答案一、选择题1、 B 2、 C 3、 B 4、 D 5、 A 6、 C 7、 B 8、 D 9、 C 10、B 11、C 12、B 13、A 14、C 15、D 16、 A 17、B 18、D 19、B 20、C 二、填空题【1】 N=N+1 或 N=1+N 【2】FX=FUN(X) 【3】XR 【4】 DIMENSION A(6) 或 REPL A(6) 【5】Y=POLY(A,N,X) 【6】 POLY 【7
44、】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 main implicit none integer i,sum sum = 0 do i=1,99,2 sum = sum+i end do write(*,*) sum stop end program 2、排序程序：prog
45、ram main implicit none 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 18 页，共 19 页 - - - - - - - - - 第 10 页/共页 integer, parameter : size=10 integer : a(size) = (/ 5,3,6,4,8,7,1,9,2,10 /) integer : i,j integer : t do i=1, size-1 do j=i+1, size if ( a(i) a(j) ) then ! a
46、(i)跟 a(j)交换 t=a(i) a(i)=a(j) a(j)=t end if end do end do write(*,(10I4) a stop end 3、解题程序：program main implicit none integer, external : gcd write(*,*) gcd(18,12) end program integer function gcd(A,B) implicit none integer 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=TEMP end do gcd=SMALL return end function 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 19 页，共 19 页 - - - - - - - - -