2009FORTRAN90笔试试卷

FORTRAN 90笔试试卷

（二○○九年四月）

一、选择题

1、设有变量定义CHARACTER*15 str，则下列语句中正确的是 （1） 。 C A、str=\ B、str=2*3+61 C、str=\ D、str=\

2、以下为FORTRAN 90中的逻辑型常量，错误的是 （2） 。 B A、.TRUE. B、TRUE C、.false D、.FALSE._2

3、设有说明：REAL（4）：：x=123.4567，则可以将x的值保留小数点后2位，第3位四舍五入的表达式是 （3） 。 D

A、x*100+0.5/100.0 B、(x/100+0.5)*100 C、(x+0.5)*100 D、(x*100+0.5)/100.0

4、以下的参数语句使用正确的是 （4） 。 A A、INTEGER(1) i,j B、PARAMETER(i=30, j=3*i) PARAMETER(i=30, j=3*i) INTEGER(1) i,j

C、INTEGER(1) i,j D、PARAMETER(i=30, j=3*i)

i=10;j=20 PARAMETER(i=10, j=20) PARAMETER(i=30, j=3*i)

5、FORTRAN90中标准函数SIGN(a,b)的作用是符号传递，以下表达式中，返回值为2.5的是 （5） 。 B

A、SIGN(-2.5,-2.5) B、SIGN(-2.5,3.6)

C、SIGN(2.5,-2.5) D、SIGN(2.5,-3.6)

6、FORTRAN90中的数组有逻辑结构和存储结构，设有数组定义INTEGER a(3,2,4)，则数组元素a(2,2,2)对应存储结构中的位置是第 （6） 个元素。 A A、11 B、12 C、12 D、13

7、关于FORTRAN90中的内部函数子程序，以下说法正确的是 （7） 。 D A、内部函数子程序可以放在程序中的任何地方

B、内部函数子程序必须通过END FUNCTION语句结束执行 C、内部函数子程序中可以不对函数名赋值

D、内部函数子程序可以作为操作数出现在表达式的任何地方 8、设有语句：INTEGER,POINTER::p1，p2 INTEGER,TARGET::x=10 p1=>x

则下列语句中错误的是（8）。 C

A、x=p1*2+1 B、p1=x*2+1 C、p2=p1*2+1 D、p1=p1*2+1

9、关于FORTRAN90中子程序的形式参数，以下说法错误的是 （9） 。 C A、当形参为数组时，对应的实参可以是同类型的数组或数组元素 B、形参数组不能超过实参数组的大小

C、形参数组与实参数组必须有相同的维数 D、形参数组与实参数组按引用方式进行虚实结合

10、设有数组定义： INTEGER:: a(2,2), b(5)

用数组构造器给数组赋值：a=RESHAPE((/2,4,6,8/),(/2,2/)) b=(/RESHAPE(b,(/4/)),9/) 则数组b的值应为 （10） 。 D A、4 4 4 4 9 B、2 2 2 9 C、4 4 6 8 9 D、2 4 6 8 9

二、填空题

1、下列程序运行后，输出的第一行为 （1） ，第二行为 （2） ，第三行为 （3） 。 PROGRAM main 1 3 13 IMPLICIT NONE 1 5 21 INTEGER,PARAMETER::N=3 2 8 34 INTEGER,DIMENSION(1:N,1:N)::a INTEGER,DIMENSION(1:N*N)::b INTEGER i,j b(1)=1 b(2)=1 DO i=3,N*N b(i)=b(i-1)+b(i-2) ENDDO DO i=1,N DO j=1,N

a(j,i)=b((i-1)*N+j) ENDDO

ENDDO DO i=1,N

PRINT '(3i4)',(a(i,j),j=1,N) ENDDO

END PROGRAM

2、下列程序执行后，输出的第一行为 （4） ，第二行为 （5） 。 16 2 6 5 PROGRAM main 4 11 9 3 IMPLICIT NONE

INTEGER,PARAMETER::N=8 INTEGER::temp,i

INTEGER,DIMENSION(1:N)::a=(/2,6,5,4,11,9,3,16/) temp=a(N) DO i=N-1,1,-1 a(i+1)=a(i) ENDDO a(1)=temp

PRINT '(4I4)',(a(i),i=1,N) END

3、下列程序运行后，输出的第一行为 （6） , 第二行为 （7） ，最后一行为 （8） 。 PROGRAM main 5 1 5 2 15 IMPLICIT NONE INTEGER::x=5,y=3 PRINT*,f(x,y)

CONTAINS

RECURSIVE FUNCTION f(a,b) RESULT(f_result) INTEGER::a,b,f_result IF(b==1) THEN f_result=a ELSE

f_result=a+f(a,b-1) ENDIF

PRINT*,a,b

END FUNCTION f END PROGRAM main

4、下列程序运行后，输出第一行为 （9） , 第二行为 （10） 。MODULE CHARACTER_INTEGER INTERFACE OPERATOR(+) MODULE PROCEDURE sum END INTERFACE INTERFACE OPERATOR(-) MODULE PROCEDURE sub END INTERFACE

CONTAINS

FUNCTION sum(c1,i2) CHARACTER(LEN=1),INTENT(IN)::c1 INTEGER,INTENT(IN)::i2 INTEGER sum sum=IACHAR(c1)+i2

END FUNCTION sum

FUNCTION sub(c1,i2) CHARACTER(LEN=1),INTENT(IN)::c1 INTEGER,INTENT(IN)::i2 INTEGER sub

sub=IACHAR(c1)-i2

END FUNCTION sub

END MODULE CHARACTER_INTEGER

PROGRAM main

USE CHARACTER_INTEGER IMPLICIT NONE

CHARACTER(LEN=1)c1,c2 INTEGER i c1='A' c2='W' DO i=1,2

D T c1=c1+i c2=c2-i ENDDO PRINT *,c1 PRINT *,c2 END

5、下列程序运行后，若输入6，则输出结果为 （11） ，若输入7，则输出结果为 （12） 。 PROGRAM main 6=1*2*3 7=1*7 IMPLICIT NONE INTEGER::m,i=2 READ*,m

PRINT '(I2,A\\)',m,\DO WHILE(i

IF(MOD(m,i)==0) THEN PRINT '(I2,A\\)',i,'*' m=m/i ELSE i=i+1 ENDIF ENDDO

PRINT '(I2)',i

END PROGRAM main

6、下列程序运行后，若输入3，则输出的第一行为 （13） ，第二行为 （14） ，第三行为 （15） 。 2

PROGRAM MAIN 2 3 IMPLICIT NONE 2 INTEGER i,n, maxl(1) INTEGER array(3, 3)

INTEGER, ALLOCATABLE :: AR1(:)

array = RESHAPE((/7, 9, -1, -2, 5, 0, 3, 6, 9/),(/3, 3/)) n = SIZE(SHAPE(array)) PRINT*,n

ALLOCATE ( AR1(n))

AR1 = MAXLOC (array, MASK = array .LT. 7) PRINT*,(ar1(i),i=1,n)

maxl = MAXLOC((/1, 4, 3, 4/)) PRINT*,maxl END

8、下列程序可以实现在若干个字符串中查找包含关键词1或关键词2的字符串，查找条件表示为“关键词1，关键词2”。函数Find_or的功能是：在str数组中查找符合条件的字符串，并将查找到的符合条件的字符串所在行的行号依次保存到loc数组中。 PROGRAM main IMPLICIT NONE

CHARACTER*80,DIMENSION(4)::lines CHARACTER*80 cond INTEGER::n,i=0,rest(4)

lines=(/\ cond=\

n=Find_or( （16） ) lines,4,cond,rest DO i=1,n

PRINT*,lines(rest(i)) ENDDO