《大学FORTRAN考试试题3.doc》由会员分享,可在线阅读,更多相关《大学FORTRAN考试试题3.doc(26页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-date大学FORTRAN考试试题3高级语言程序设计(FORTRAN) 考试样题高级语言程序设计(FORTRAN) 考试样题一、选择题(每小题2分,共40分)1. 下列标识符中不能作为FORTRAN的合法变量名的是_D_。A) A_1 B) A1 C) A1A D) A+12. 在FORTRAN的变量类型说明语句中没有 BA) REAL语句 B)CHAR语句 C)INTEGE
2、R语句 D)LOGICAL语句3FORTRAN90 源程序的扩展名是 C 。A. TXT B. F C. F90 D. FOR4.下列关于符号常量的说法正确的是_C_。 A.符号常量的定义应该放在所有语句之前 B.符号常量不可以是字符型常量 C.在一个程序单位中定义一个符号常量后,不能再改变它的值 D.符号常量定义语句与赋值语句一样,是可执行语句5、在下列写法中,_D_不是FORTRAN常量。A. .TRUE. B.1E-2 C. (0.0,2.4) D.1,000,0006表达式1542.0的值是 B 。A整数2 B实数15 C实数225 D实数1. 37. 下列不是FORTRAN赋值语句的
3、是 _D_。A) X=.TRUE. B) X=X*XC) X=X*2*2 D) X=X+ 8. 梯形的上底为A,下底为B,高为H,计算其面积的FORTRAN表达式中错误的是_A_。A)1/2*(AB)*H B)(A+B)*H/2 C)(A+B)/2*H D)0.5*(A+B)*H9. 要选拔身高T1.7米且体重W2.AND.A+B=C的值为: .FALSE. 。3、将数学表达式e+ln|Sin2x-Sinx2|写成正确的FORTRAN表达式为: EXP(3.14/2*X)+LOG(ABS(SIN(X)*2-SIN(X*2) 。P.29 第9题4、N是一个个位不等于0的两位自然数,写一个表达式将
4、N的个位数与十位数互换,得到一个新的数。MOD(N,10)*10+N/10 。P.29 第6.4题5、已知I是整型变量,当DO结构从“正常出口”结束时,语句“DO I= 3,15,2”共计完成了_7_次循环。6、下列程序的运行显示结果是什么 .TURE. 。P.42 第1.1题LOGICAL P INTEGER I,I1,I2,I3 P=.FALSE. I=123 I1=MOD(I,10) I2=MOD(I/10,10) I3=I/100 IF(I1+I3.EQ.2*I2)P=.TRUE. PRINT*,P END 7.下列程序的运行显示结果是什么 K=6 。P.64 第1.3题K=0DO N
5、=21,10,-1 IF (MOD(N,2)=0)K=K+1END DOPRINT*, K=,KEND 8.下列程序的运行显示结果是什么 14 5 。P.64 第1.4题M=0DO J=1,4 DO K=J-1,4 M=M+1 END DOEND DOWRITE(*,*)M,JEND9.下列程序的运行显示结果是什么 5167.0 。P.64 第1.5题SUM=1.0J=1DO WHILE(J.LE.3) F=1 DO I=2,2*J+1 F=F*I ENDDO SUM=SUM+F J=J+1END DOPRINT*,SUMEND10. 下列程序的运行显示结果是什么 S=15.00 。P.124
6、 第1.4题 DIMENSION X(3,3)DATA X/1,2,3,4,5,6,7,8,9/S=0DO I=1,3 S=S+X(I,4-I)ENDDOWRITE(*,20) S20FORMAT(1X,S=,F6.2)END11. 下列程序将一个数组的元素逆序重新存放,例如存放顺序为: 8,6,5,4,1 。要求改为: 1,4,5,6,8。请在横线处填写适当语句,使程序完整。P.126 第3题INTEGER,PARAMETER:N=5INTEGER A(N),I,TDATA A/8,6,5,4,1/WRITE(*,10)(A(I),I=1,5)DO I=1,N/2 T=A(I) A(I)=A
7、(N-I+1) A(N-I+1)=T END DOWRITE(*,10)(A(I),I=1,5)10 FORMAT(1X,5I4)END12. 下列程序完成按以下格式打印杨辉三角形的前N行: 11 11 2 11 3 3 11 4 6 4 1请在横线处填写适当语句,使程序完整。P.126 第12题PARAMETER(N=10)INTEGER A(N,N),I,JDO I=1,N A(I,1)=1 A(I,I)=1 ENDDODO I=3,N DO J=2,I-1 A(I,J)=A(I-1,J)+A(I-1,J-1) ENDDOENDDODO I=1,N WRITE(*,10)(A(I,J),J
8、=1,I)ENDDO10 FORMAT(1X,10I5)END13. 下列子例行程序ProcMin(A,N,MIN)的作用是返回数组A中的最小值。请在横线处填写适当语句,使程序完整。SUBROUTINE PROCMIN(A,N,MIN)INTEGER A(N),N,MIN MIN=A(1) DO I=2,N IF(A(I)MIN)MIN=A(I) ENDDOEND14.采用变化的冒泡排序法将N个数按从大到小的顺序排列:对N个数,从第一个直到第N个,逐次比较相邻的两个数,大者放前面,小者放后面,这样得到的第N个数是最小的,然后 4个对前面N-1个数,从第N-1个到第1个,逐次比较相邻的两个数,大
9、者放前面,小者放后面,这样得到的第1个数是最大的。对余下的N-2个数重复上述过程,直至按从大到小的顺序排列完毕。请在下列程序横线处填写适当语句,使程序完整。P.126 第5题PARAMETER(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 I=1,N-1 DO J= 2,N-I+1 IF( A(J-1)A(J) ) THEN T=X(J-1) X(J-1)=X(J) X(J)=T END IF END DOENDDOWRITE(*,10)(X(I),I=1,10)10 FORMAT(1X,10I4)END三、编程题(每小题8分,共24分)1、输入年月,输出该月所对应的天数。编写程序。P.37 例3.42、设计一个子例行程序,计算一个任意矩阵A中的最大元素和最小元素。P.126 第7题3、对任意自然数n,设计一个求n的各位数字的立方和的函数子程序F(n)(如F(121)=1*3+2*3+1*2=1+8+1=10),并调用F(n)求1000以内的所有水仙花数(当一个数各个数位的立方和等于这个数本身时,称这样的数为水仙花数) P.176 第8题-
限制150内