计算机应用基础7月8日上午fortran测试

1、（1）按照翻译类型分类,FORTRAN77 程序设计语言属于A) 汇编型 B) 解释型 C) 编译型 D) 解释型兼编译型一个完整的 FORTRAN77 源程序的组成不应该A) 只有一个主程序没有子程序 B) 有一个主程序和若干子程序C) 有一个主程序和一个子程序 D) 只有子程序而没有主程序下列关于 FORTRAN77 源程序编辑规则的叙述之中,正确的是A) 编辑时一行都必须从第 7 列开始 B) 主程序第一行必须是 PROGRAM 语句C) 每个 FORMATO 语句必须具有标号 D) 每个子程序中必须有一个 RETURN 语句在 FORTRAN77 源程序中不能用作续行标志的字符是A)

2、0 B) X C) + D) $下列关于 FORTRAN77 源程序编辑规则的叙述之中,正确的是（2）（3）（4）（5）A)B)C)D)IMPLICIT 语句可以放在 REAL 语句行之后 DATA 语句可以在放在紧靠 END 语句行之前注释行不可以放在 END 语句行之后FORMAT 语句可以放在 PROGRAM 语句行之前（6）下列 FORTRAN77 源程序的变量名之中,不符合规则的是A) W B) W3 C) -3 D) W3W阅读下列程序X=0.618 WRITE(*,(E12.4)X END程序运行后显示结果是A) .6180 B) 6.180E-01 C) .0618E+01 D

3、) .6180E+00梯形的上底为 A,下底为 B,高为 H,计算其面积的 FORTRAN77 表达式中错误的是A) 1/2*(AB)*H B) (A+B)*H/2 C) (A+B)/2*H D) 0.5*(A+B)*H（7）（8）（9）要选拔身高 T1.7体重 W62.5 公斤的人,FORTRAN 的逻辑表达式是A) T.CE.1.7.AND.W.LE.62.5 B) T.LE.1.7.OR.W.GE.62.5C) T.GT.1.7.AND.W.LT.62.5 D) T.GT.1.7.OR.W.LT.62.5在 FORTRAN77 的变量类型说明语句中没有（10）A) REAl 语句 B)

4、CHAR 语句 C)EGER 语句 D) LOGICAL 语句（11）一次成功的 FORTRAN77 源程序编译操作,不能A)B)C)D)同时编译一个主程序和一个子程序同时编译几个子程序同时编译一个主程序和几个子程序同时编译几个主程序（12）阅读下列程序F=1.0DO 20,J=3,7,2 DO 20,K=J-1,J20 F =F*KWRITE(*,(13,F8.1)J,F END程序运行结果是A) 3 6.0 B) 5 120.0 C) 9 5040.0 D) 9362880.0（13） 阅读下列程序CHARACTER*10 W DO 10 K=1,10 READ(*,(A 10)WIF (

5、W(1:2).EQ.AB.OR.W(1:2).EQ.ab)WRITE(*,*),W10 END程序的功能是CONTINUEA)B)C)D)首字符是 A 或 B 的字符串被输出显示第一、二个字符是 Aa 或 ab 的字符串被输出显示首字符是 a 或 b 的字符串将被输出显示第一、二个字符是 Aa 或 Bb 的字符串将被输出显示阅读下列程序LOGICAL L READ(*,*)A,B L=A.GT.B IF(L)THENX=B+2*A ELSEX=B END IFWRITE(*,*)X END使用键盘为上述程序输入两个初值 4 和 3,其输出的 X 值是A) 4.0 B) 3.0 C) 11.0

6、D) 10.0阅读下列程序READ(*,*)K WRITE(*,100)K100 FORMAT(15) END程序运行时输入初始值 12345,那么显示结果是A) 12345 B) 2345 C) * D) *阅读下列程序EGER 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阅读下列程序A=3.5CALL SUBA(A,A,A)WRITE(*,(F4.1)A ENDSUBROUTINE SUBA(X,Y,Z) Y=Y-2.0Z=Z+X END程序运行的结果是A)

7、7.0 B) 5.0 C) 3.0 D) 1.5（18） 阅读下列程序CHARACTER A*4,B*5,C*4DATA A,B,C/,MIDDLE,SMALL/ WRITE(*,20)A,B,C20 FORMAT(1X,A2,A3,A4) END程序运行结果是A) BIGMIDD（19） 阅读下列程序N=0DO 10 K=1,3 N =N+1 M=K*N10 CONTINUE) * C) BIGMIDSMAD)BIMIDSMALWRITE(*,(1X,2I3)M,K END程序运行结果是A) 9 4 B) 9 3 C) 12 4 D) 12 3(#)阅读下列程序FUN(c,d)=a*c+b/

8、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阅读下列程序LOGICAL 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,L5END程序运行结果是T T B) T F C) F F D) F T阅读下列程序READ(*.500)R.WWRITE(*.500)R.W500 FORMAT(1X,F5.2,F

9、5.3) END程序运行时输入初始值 01234567899,结果显示的是A) *67.899 B) 12.3456.789 C)阅读下列程序Y=-123WRITE(*,200)Y200 FORMAT(Y=,F5.1) END程序运行结果是A) Y=* B) =* C) Y=-123.0阅读下列程序K(X,Y)=X/Y+X A=-2.0 B=4.0 B=1.0+K(A,B)WRITE(*,(F4.1)B END程序运行结果是A) -1.0 B) 1.0 C) 2.0 D) 3.0阅读下列程序*D)123.4567.899D)=-123.0DIMENM(3,3)DATA M/1,2,3,4,5,

10、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（26） 阅读下列程序EGER A(100),G READ(*,*)N,(A(I),I=1,N) DO 10 I=1,N-1G=IDO 20 J=I+1,N IF(A(J).LT.A(G)THENG=JENDIFD)7 8 920CONTINUE K=A(I) A(I)=A(G) A(G)=K CONTINUEWRITE(*,(1X,10I2)(A(I),I=1,N)END10程序运行时输入的初始值是 3,6,9,7,

11、则运行结果是A) 6 7 8 B) 8 7 6 C) 6 8 9（27） 阅读下列程序I=1 M=1D) 98610IF(I.LE.3)THEN FACT=1DO 100 K=1,2*I+1 FACT=FACT*K CONTINUE M=M+FACTI=I+1 GOTO 10WRITE(*,(I15)MEND100程序运行结果是A) 5040 B) 5160 C) 5166 D)（28） 阅读下列程序5167DIMENS(3)DATA S/1.0,2.0,3.0/ WRITE(*,*)LA(3,S) ENDFUNCTION LA(N,X)DIMEN LA=0L=2X(N)DO 20 I=1,N

12、 LA=LA+X(I)/L CONTINUEEND20程序运行结果是A) 1.0000000 B)（29） 阅读下列程序2.0000000C) 1 D)2DIMENN(2)DO 10 I=1,2 N(I)=0 CONTINUE K=2DO 20 I=1,KDO 30 J=1,K N(J)=N(I)+1 CONTINUE CONTINUE WRITE(*,100),N(2)103020100 FORMAT(I3,I3) END程序运行结果是A) 2 3 B) 3 3 C) 2 2 D) 3 2（30） 阅读下列程序WRITE(*,*)INPUT A,B,H(cm) READ(*,100)A,B,

13、H S=(A+B)*H/2S=(S*10+0.5)/10WRITE(*,200)S100 FORMAT(3F4.2)200 FORMAT(1X,S=,F6.2) END程序运行时输入初始值 246035701240,输出结果是A) S=373.86 B) S=373.90 C) S=* D) S=3738600.00（31） 阅读下列程序EGER A(3,3)DATA A/9,8,7,6,5,4,3,2,1/ WRITE(*,10)(A(M,N),N=1,M=1,3)10 FORMAT(I2/,2I2/,3I2) END程序运行结果是A) 9 6 3 B)5 2 5 4 8 51 1 7 4

14、1 39628 7 C) 9 D) 951点 P 在直角坐标系中的横坐标 U=-3.5,纵坐标 V=1.8,使用下列 FORTRAN77 程序计算射线 OP 与 X 轴正向的夹角度数.O 是坐标原点.PK=45/ATAN(1.O) U=-3.5V=1.8WRITE(*,*) *PK,(deg) END在输出语句 WRITE(*,*)与*PK,(deg.)之间的空白处应该添加的是ATAN2(U/V) B) ATAN2(U,V) C) ATAN2(V/U) D) ATAN2(V,U)阅读下列程序N=0DO 10 K=50,0,-2DO 10 L=-100,100,110 N=N+1 WRITE(*

15、,*)N END程序运行结果是A) 5000 B) 5026 C) 5200 D) 5226阅读下列程序CHARACTER*4 A,B,C*5DATA A,B,C/YOUR,BOYS,GIRLS/ WRITE(*,(1X,A4,A5,A6,A1)A,B,C,! END程序运行结果是A)YOURBOYSGIRLS!B) YOUR 凵 BOYS 凵 GIRLS!C) YOUR 凵 BOYSGIRLS! D) YOURBOYS 凵 GIRLS!（35） 阅读下列程序.其功能是求出方程 2X3-3X2+4X-11=0 在区间(1,5)中的一个实数根,运行结果是显示根值和对分次数.使用的是二分算法. 请

16、在其中处填入适当的内容.FUN(X)=2.0*X*3-3.0*X*2+4.0*X-11.0DATA XL,XR,N/1.O,5.0,0/10CONTINUE 6 X=(XL+XR)/2.0 7 IF(ABS(FX).LT.1E-6 .OR.N.GE.1000)THEN WRITE(*,(1X,A2,F12.7,A5,14)X=,X,N=,N ELSEIF(FUN( 8 )*FX.GE.0.0)THEN XR=XELSEXL=X ENDIF GOTO 10ENDIFEND（36） 阅读下列程序.其功能是计算 Y=1+1.1X+1.2X2+1.3X3+1.4X4+1.5X5 当 X=3.1 时的值.主程序调用了函数子程序.请在其衉 处填入适当的内容.PROGR 9 VALUEDATA A/1.0,1.1,1.2,1.3,1.4,1.5/,N,X/6,3.1/ 10 WRITE(*,(1X,A5,6F5.1)a(k)=,AWRITE(*,(1X,A2,F5.1,A6,F8.2)X=,X,; Y=,Y ENDFUNCTION POLY(B,M,V)DIMEN POLY=B(1)FV=1.0B(M)DO 10K=2,M FV