大学FORTRAN考试试题

1、高级语言程序设计(FORTRAN)考试样题、选择题(每小题2分，共40分)1 .下列标识符中不能作为FORTRA的合法变量名的是A) A_1 B) AlC) A1AD) A+l2 .在FORTRA的变量类型说明语句中没有BA) REAL语句B) CHAR语句C) INTEGER语句D) LOGICAL语句3 . F0RTRAN90源程序的扩展名是_C oA. TXTB. F C. F90D. FOR4 .下列关于符号常量的说法正确的是一C oA.符号常量的定义应该放在所有语句之前B,符号常量不可以是字符型常量C.在一个程序单位中定义一个符号常量后，不能再改变它的值D.符号常量定义语句与赋值语句

2、一样，是可执行语句5 .在下列写法中，_D是FORTRA常量。D. 1,000,000A. . TRUE. B. IE-2 C. (0. 0, 2. 4)6.表达式15/4/2. 0的值是BC实数2. 25 DD.实数1. 310.CFORTRAN 9(规定，变量类型声明的优先顺序是_A.隐含约定(I-N规则)、IMPLICIT声明、类型声明B.类型声明、隐含约定(I-N规则)、IMPLICIT声明C.类型声明、IMP LICIT声明、隐含约定(I-N规则)D. IMPLICIT声明、类型声明、隐含约定(I-N规则)贝W于CH(3:7),下面说法正确的是D.11 .假设CH是一个字符型变量，并

3、且具有足够的展朦，个数组定义形式A它是一个数组片段D.它是CH的一个子串，并且长度是5C.它是CH的一个子串，并且长度是412 .数组声明语句为：INTEGER, DIMENSION(-5:-1, -3:3, 11:15) : A数组共有A个元素。D. 17限17环哪J抽9语句甲旺确的是C oA) DATA /A, B/-1. 0, -1.0/B) DATA A, B/2*(T.O)/778989 AAAA整数2B.实数L 5B) X=X*X下列不是FORTRA髀酸牖为0 X=X*2*2D) X=X+H,计算其面积的FORTRA表达式中错误的是B)(A+B)*H/2瞿 髯 骷 翻1.7米 且

4、体 重1/2*(AB)*HT. ce. 1. 7. AND. w. Ie. 62. 5C)(A+B)/2*HD)0. 5*(A+B)*HW2. AND. A+B=二C的值为：.FALSE.。3、将数学表达式+1 n Si n2x-S in写成正确的FORTRA表达式为：EXP (3. 14/2*X)+L0G(ABS(SIN(X)*2-SIN(X*2)。P.29第9题4、N是一个个位不等于0的两位自然数，写一个表达式将N的个位数与十位数互换,得到一个新的数。MOD(N, 10)*10+N/10o P. 29第6.4题5、已知I是整型变量，当DO结构从“正常出口”结束时，语句“D0I=3, 15,

5、2 ”共计完成了 次循环。6、下列程序的运行显示结果是什么LOGICAL PINTEGER I, II, 12, 13P二.FALSE.1=123.TURE.。P. 42第1. 1题END DOI1=MOD(I, 10)I2=M0D(I/10, 10)13=1/100IF(I1+I3.EQ. 2*12) P=. TRUE.P RINT*, PEND7,下列程序的运行显示结果是什么 生K二0DO N=21, 10,-1IF (MOD(N, 2)=0)K=K+lEND DOP RINT*, K=，KEND8.下列程序的运行显示结果是什么14 5M=0DO J=l, 4DOK=JT, 4M=M+1E

6、ND DOEND DOWRITE (*, *)M, JEND9.下列程序的运行显示结果是什么5167.0SUM=1. 0J=1DO WHILE (J. LE. 3)F=1DO 1=2, 2*J+1F=F*IENDDOSUM=SUM+FJ = J+l P. 64第1.3题。P.64第L4题 P. 64第L 5题P RINT*, SUMEND10 .下列程序的运行显示结果是什么DIMENSION X(3, 3)DATA X/l, 2, 3, 4, 5, 6, 7, 8, 9/S=0DO 1=1,3S=S+X(I,4-I)ENDDOWRITE/ 20) S20 FORMAT (IX, S=,F6.

7、2)END11 .下列程序将一个数组的元素逆序重新存放，处填写适当语句，使程序完整。P. 126第3题例如存放顺序为：8, 6, 5,4, lo要求改为：1,4, 5, 6, 8。请在横线INTEGER ,P ARAMETER:N=5INTEGER A(N), I,TDATA A/8, 6, 5, 4, 1/WRITER, 10) (A(I),I=1,5)DO 1=1, N/2T二AA(1)=A(N-1+1)A(N-I+1)=TEND DOWRITER, 10) (A(I),I=1,5)10 FORMA T(1X, 514)END12.下列程序完成按以下格式打印杨辉三角形的前1请在横线处填写适

8、当语句，使程序完P -126第12题PARAMETER (N=10)INTEGER A(N, N), I, JDO 1=1, NA(I, 1)=1A(L 1)=1ENDDODO 1=3, NS=15. 00。P. 124第1.4题DO J=2,1-1A(l, J)=A(1-1, J)+A(l-1, J-l)ENDDOENDDODO 1=1, NWRITE(*, 10) (A(I, J), J=l, I)ENDDO10 FORMA T(1X, 1015) END13.下列子例行程序ProcMin(A,N,MIN)的作用是返回数组A中的最小值。请在横线处填写适当语句，使程序完整。SUBROUTIN

9、E P ROCMIN(A, N, MIN)INTEGER A(N), N, MINMIN二A DO 1=2, NIF(A(I)MIN)MIN=A(I) ENDDO END14.采用变化的冒泡排序法将N个数按从大到小的顺序排列：对N个数，从第一个直到第N个，逐次比较相邻的两个数，大者放前面，小者放后面，这样得到的第N个数是最小的，然后4个对前面NT个数，从第NT个到第1个，逐次比较相邻的两个数，大者放前面，小者放后面，这样得到的第1个数是最大的。对余下的N-2个数重复上述过程， 直至按从大到小的顺序排列完毕。 请在下列程序横线处填写适当语句， 使程序完整。P. 126第5题P ARAMETER(

10、N=10) INTEGER X(N), I, J,TX=(/10, 55, 25, 70, 45, 15, 25, 85,45, 35/) WRITE(*, 10) (X(I),I=1,10) DO 1=1, N-lDO J= 2, N-l+lIF( A(JT)A(J)；THENT=X(J-1) X(J-1)=X(J) X(J)=T END IF END DO ENDDO WRITE(*, 10) (X(l), 1=1, 10) 10 FORMAT(IX, 1014) END三、编程题(每小题8分，共24分)1、输入年月，输出该月所对应的天数。编写程序。P.37例3.42、设计一个子例行程序，计算