《FORTRAN程序设计复习题及答案》由会员分享，可在线阅读，更多相关《FORTRAN程序设计复习题及答案（16页珍藏版）》请在金锄头文库上搜索。
1、学习资料收集于网络，仅供参考 学习资料 FORTRAN 程序设计复习题 一、选择题 B (1) 下列各 FORTRAN 表达式中合法的是 A) S+T* 2P = 0.0 B) .NOT. (A*B+C) C) A2+B2/(C+D) = D)算术运算符 A (14 下列语句函数的定义中正确 的是 A）F(X，Y)(XY)/(X*Y)7.0 B ）FUNCTION FUN(I，J，K)3*I 2*J 0.5*K C）H(A，B，C(I)SIN(A) SIN(B) C(I) D)S(A，B，C)A*BS(A*A，B， C) B（15 下列标识符中，不属于FORTRAN 常量的是 A）.TRUE.
2、 B） FALSE C） ROOT D） 123.0 B（16） 整型变量M能被整型变量K整除 的 FORTRAN77 表达式是 A）MOD(M ， K)0 （MOD(M ，K)= =0 ）B）M M/K*K .EQ. 0 C）MOD(K ， M)0 D）MOD(M ，K) 0 = .TRUE. C（17）设有下列数组说明语句： REAL: A(1:10， 1:10) 该数组说明语句定义了数组A中的元素个数为 A）100 B）110 C）120 D ） 121 A (18) 按隐含规则（默认为整型 ） ，语句 IP=3.1415926 执行之后， IP 的值是 A) 3 B) 3.1416 C
3、) 3.141592 D)3.141593 D (19) 下列数据中，不符合 FORTRAN 常量表示法的是 A) -25.6 B) 2.758D3 C)FOOT = D) TRUE C (20) 设 C是复型变量，A与 B为有定义的实型变量，下列赋值语句中合法的是 A) C= A+B B) C=(3.5,1.5*2 ) C) C=(2.0,3D-2)D) C=( AB, A-B) B (21) 有矩阵 (数组 ) 2222 1111 B 下列 DATA 语句中 正确 的是 A) DATA B/4*1.0,4*2.0/ B) DATA(B(I,J), J=1,4), I=1,2)/4*1.0,
4、 4*2.0/ C) DATA B/4*(1.0,2.0)/ D) DATA(B(I,J),I=1,2), J=1,4)/4*1.0, 4*2.0/ C (21) 在使用 DO循环及循环嵌套时，下列叙述中正确 的是 A) 不仅可以从循环体内转到循环体外，也可以从循环体外转到循环体内 B) 外循环与内循环的DO循环控制变量可以不同也可以相同 C) 可以从循环体内转到循环体外，但不能从循环体外转到循环体内 D) DO 循环控制变量在循环体内可以再赋值，也可以被引用 B (22) 在 FORTRAN 表达式中，各种运算的顺序是 A) 逻辑运算，关系运算，算术运算B) 算术运算，关系运算，逻辑运算 C
5、) 关系运算，逻辑运算，算术运算D) 关系运算，算术运算，逻辑运算 D (23) 赋值语句 X=4*(6/12)=4*0=1.0 执行后 , 实型变量X的值是 A) 2 B) 2.0 C) 1 D) 1.0 学习资料收集于网络，仅供参考 学习资料 D (24) 为了保证正确出数据, 格式编辑符Ew.d 中 w与 d 的关系应该是 A) wd B) wd+2 C) wd+4 D) wd+6 C (25) 设下列各语句中用到的数组都已定义, 则下列语句中 正确 的是 A) READ(*,*)(I,A(I),I=1,10) B)READ(*,*)(B,(I,J),I=1,10,J=1,10) C)
6、READ(*,*)N,(A(I),I=1,N) D) READ(*,*)(I=1,10,A(I) A (26) 下列 DO语句中 , 不正确 实现循环的是(I-N规则： I-N 会被视为整型) A) DO 10 S=-1.6,-5.3,-0.4 B) DO 10 K=-1.6,-5.3,-0.4 C) DO 10 S=-5.3,-1.6,-0.4 D) DO 10 K=1.6,5.3,-1.4 D (27) 下列说法中 正确 的是 A) 块 IF 结构中的THEN块或 ELSE块不能是空块 B) 块 IF 结构中至少有一个ELSE IF 语句或 ELSE语句 C) 每个 ELSE IF 语句要
7、有一个对应的END IF 语句 D) 一个块 IF 结构中只能有一个END IF 语句 A (28) 下列数组说明语句中正确 的是 A) INTEGER A(-1:5,0:6)B) REAL M(10:5) C) DOUBLE Y(1:N+1) D) DOUBLE Z(14) B (29) 设有一个FORTRAN77 子程序如下 : SUBROUTINE SS(X,Y,S,T) S=X+Y（S,T 为传出，即需要输出的（相当于求圆的面积中的area ） ，只能 T=X*Y 为确定的数；X,Y 为传入（相当于radius ） ，可为表达式） END 调用上述子程序的正确 语句是 A) CALL
8、SS(2.4,W*W,5,5.9,Z)（ 多了一个 ） B) CALL SS(0.0,4.2,P,Q,R) （ 多了一个 ） C) CALL SS(F,G,7.2,5.1) D) CALL SS(4.4*I,5.8*J,C,D)（ I,J可先赋值） A (30) 在下列语句函数的定义中正确 的是 A) F(X,Y)=(X+Y)/(X*Y)+7.0B) FUNCTION (I,J,K)=3*I+2*J+0.5*K C) H(A,B,C(I)=SIN(A) +SIN(B)+ C(I ) D) S(A,B,C)=A*B+S(A*A,B,C) B (31) COMMON语句的功能 是 A) 给同一程序
9、模块中的若干变量分配同一存储单元 B) 给不同程序模块中的变量分配相同的存储单元 C) 给程序中任意两个变量分配相同的存储单元 D) 给同一程序模块中的不同变量分配相同的存储单元 B (32) 下列表达式中值为整数4 的是 A) SQRT(16.0) B)27/6 C) 16*0.5 D) 4*1.0 C (34) 语句 K=2+3.0*2/2执行后，整型变量 K 的值是 A) 6.5 B) 5 C) 6D) 7 C (36) 适用于 字符型 I/O的 FORTRAN77 格式编辑将是 学习资料收集于网络，仅供参考 学习资料 A) Fw.d B) Iw.d C) AD) Gw.d D (37)
10、 给定子例行程序如下 SUBROUTINE SUB(K,A) B=K+2（K为整型， B）错误； A不是整型， A）错误； K为传入，可为表达式， A=A+B A为传出，不能为表达式） END 下列调用语句中正确的是 A) CALL SUB(N,N) B) CALL SUB(X,X) C) CALL SUB(N+2,X) D) CALL SUB(N,X+3) C (38) 下列 FORTRAN 语句中， 正确 的是 A) READ(*,*) (N,A(K),K=1,N) B) WRITE(*,*) (M(K,J),K=1,10, J=1,10) C) WRITE(*,*) (10,A(K),K
11、=1,10) D) DATA A,B,C/2*0.0 / C (39) 对于下列给定的FORTRAN 说明和赋初值语句： INTEGER A(2，2) DATA A/3，4，5， 6/ 数组元数A(2，1) 的初值为 A) 3 B) 5 C) 4 D) 6 C (40) 下列对公用区的说明语句中错误 的是 A) COMMON A(5), B B) COMMON/AB/ A(5), B C) COMMON AB/A(5), B/ D) COMMON/A(5), B D (41) 下列各逻辑IF 语句中正确的是 A) IF(X=0.0).AND.(X.LT.1.0)Y=2*X+1.0 C) IF(
12、0.0=X= 0.0.AND.X =500 .or. windspeed =10 ) then write(*,*) 停止上班上课 else write(*,*) 照常上班上课 end if stop end 运行上述程序时，如果从键盘输入 Rain ： 505 Wind： 8 则最后输出的结果为: 停止上班上课 4、阅读下列FORTRAN 程序 : program example implicit none real a,b,ans character operator read(*,*) a read(*,(A1) operator read(*,*) b select case(oper
13、ator) case(+) ans = a+b case(-) 学习资料收集于网络，仅供参考 学习资料 ans = a-b case(*) ans = a*b case(/) ans = a/b case default write(*,(Unknown operator ,A1) operator stop end select write(*,(F6.2,A1,F6.2,=,F6.2) a,operator,b,ans stop end 运行上述程序时，如果从键盘输入 100 ? 200 则最后输出的结果为: Unknown operator ? 5、阅读下列FORTRAN 程序： pro
14、gram example implicit none integer i integer strlen integer, parameter : key = 2 character(len=20) : string write(*,*) Encoded string: read(*,*) string strlen = len_trim(string) do i = 1, strlen string(i:i) = char( ichar(string(i:i) + key ) end do write(*,(String:,A20) string stop end BCDIJK 则最后输出的结
15、果为: DEFKLM 6、阅读下列FORTRAN 程序： program example implicit none integer i,j do i=1, 2 do j=2, 3, 2 write(*, (I2,I2) i,j end do 学习资料收集于网络，仅供参考 学习资料 write(*,*) another circle end do stop end 程序运行的结果是: 1 2 another circle 2 2 another circle （按输出格式，1、2 前均有一空格。若题目无特殊说明，不需表达出；若有说明，则空格 用“”表示） 7、阅读下列FORTRAN 程序： program example implicit none integer : dest = 6
