fortranquizfortran测试题.docxVIP

QUIZ分数： 100分 时间： 80分一、选择1、在下列写法中，（）不是FORTRAN常量。A .TRUE. B1E-2C (0.0,2.4) D1,000,0002、下列哪个是合法的F90变量名？（）AFORTRAN/90BFORTRAN_90C90_FORTRAND.FORTRAN3、以下声明中，不是数组声明的是：（）A.integera(4)B.integer(4) aC.integera(10,20)D.integera(-3:10)4、以下语句中，不正确的是：（）write(*, ‘(1x,f6.2)’) 6.3integer, parameter :: pi=3.14159tax=salary*3%integer, dimension(2,3) :: a5、FORTRAN表达式6/5+9/2**3/2的值为( )A 33B 1C 5D 36、以下为数组声明语句，则下列选项中不正确的是( ) INTEGER num(9)=(/1,2,3,4,5,6,7,8,9/), mm(5)Amm=num(5:9)Bmm=num(5:)Cmm=num(:5)Dmm=num(:)7、设A=.TRUE., B=.FALSE., C=.FALSE., 逻辑表达式(A.OR.B).AND.C与A.OR..NOT.B的值是()。A.TFB.FT C. TTD. FF8、阅读下列FORTRAN程序, 程序运行时执行循环体的次数是()。X=0A0B1DOL=10, 5, 1C6D无穷X=X+1.0ENDDOEND9、圆心在原点的两个同心圆,半径分别为2和4。描述点(X,Y) 在小圆外，大圆内(包括在两圆周上)的表达式是( )ABS（X）=4.0 .AND. ABS(Y)=2.02.0=SQRT(X*X+Y*Y)=4.0X*X+Y*Y=16.0 .AND. X*X+Y*Y=4.0（X .OR. Y）=2.0 .AND. (X .OR. Y)=4.010、自定义数组stl的定义如下：TYPE student INTEGER：：numCHARACTER(len=8)：：name ． REAL：：heightENDTYPE TYPE(student)，DIMENSION(10)：：stl则数组stl在常用的编译系统(如CVF)中占据内存单元字节 数是（ ）。A．140B．160C．180D．200填空11、数学表达式 x3 ln( x 2 + y2 )FORTRAN表达式为()x12、数组声明语句为：INTEGER, DIMENSION(-5:-1,-3:3,11:15) :: num数组元素num(-2,1,13)是存储结构中第( )个元素。 13、下列程序运行结果是（ ） 。INTEGER M(3,3)DATA M/1,2,3,4,5,6,7,8,9/WRITE(*,10)(M(3,J),J=1,3) 10 FORMAT(3I2)END14、右侧程序运行结 果是（ ）INTEGER A(4,4)DO I=1,4DO J=1,4 A(I,J)=I*J-1ENDDOENDDODO I=1,4N=5-I WRITE(*,30)(A(I,J),J=N,4)ENDDO30 FORMAT(1X,4I3)END15、右侧程序运行 结果是（）PROGRAM example INTEGER,DIMENSION(1:4) :: a=20, b=15 LOGICAL,DIMENSION(1:4) :: log=.FALSE. INTEGER:: reduce=8,increse=2 a(1:4:2)=25b(2:4:2)=10 WHERE(a20)a=a-reduce WHERE(b15) b=b+incresea=a-5ELSEWHERE log=.TRUE.END WHERE WRITE(*,(1X,4I6))a WRITE(*,(1X,4I6))b WRITE(*,(1X,4L6)) log END PROGRAM example16、求出1900～2100的闰年，要求把求出的闰年（“四年一润，百年不润，四百年再润”）存入数 组Y，并统计闰年的数目。以7位宽度输出闰年年号 每行10个。INTEGER::Y(50), K=0 DO I=1900,2100IF(MOD(I,400)==0 .OR. MOD(I,100)/=0MOD(I,4)==0) THEN)Y(K) = IENDIFENDDOWRITE（*, (1X,I2 “ LEAP YEARS”)）KWRITE (*, ‘()) (Y(I),I=1,K)END编程17、求100到999之间所有三位同构数，并将它们输出。所谓三位同构数就是该数出现在 其平方的末三位，如3762=141