大学FORTRAN考试试题样题

高级语言程序设计(FORTRAN) 考试样题一、选择题(每小题2分,共40分)1. 下列标识符中不能作为FORTRAN的合法变量名的是_D_。A) A_1 B) A1 C) A1A D) A+12. 在FORTRAN的变量类型说明语句中没有 BA) REAL语句 B)CHAR语句 C)INTEGER语句 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赋值语句的是 _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) 。4、N是一个个位不等于0的两位自然数,写一个表达式将N的个位数与十位数互换，得到一个新的数。MOD(N,10)*10+N/10 。5、已知I是整型变量，当DO结构从“正常出口”结束时，语句“DO I= 3,15,2”共计完成了_7_次循环。6、下列程序的运行显示结果是什么 .TURE. 。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 。K=0DO N=21,10,-1 IF (MOD(N,2)=0)K=K+1END DOPRINT*, K=,KEND 8.下列程序的运行显示结果是什么 14 5 。M=0DO J=1,4 DO K=J-1,4 M=M+1 END DOEND DOWRITE(*,*)M,JEND9.下列程序的运行显示结果是什么 5167.0 。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 。 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。请在横线处填写适当语句，使程序完整。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(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请在横线处填写适当语句，使程序完整。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=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个，逐次比较相邻的两个数，大者放前面，小者放后面，这样得到的第1个数是最大的。对余下的N-2个数重复上述过程，直至按从大到小的顺序排列完毕。请在下列程序横线处填写适当语句，使程序完整。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、输入年月，输出该月所对应的天数。编写程序。2、设计一个子例行程序，计算一个任意矩阵A