《大学FORTRAN考试试.docx》由会员分享，可在线阅读，更多相关《大学FORTRAN考试试.docx（8页珍藏版）》请在三一办公上搜索。
1、大学FORTRAN考试试高级语言程序设计(FORTRAN) 考试样题 一、选择题(每小题2分,共40分) 1. 下列标识符中不能作为FORTRAN的合法变量名的是_D_。 A) A_1 B) A1 C) A1A D) A+1 2. 在FORTRAN的变量类型说明语句中没有 B A) REAL语句 B)CHAR语句 C)INTEGER语句 D)LOGICAL语句 3FORTRAN90 源程序的扩展名是 C 。 A. TXT B. F C. F90 D. FOR 4.下列关于符号常量的说法正确的是_C_。 A.符号常量的定义应该放在所有语句之前 B.符号常量不可以是字符型常量 C.在一个程序单位中
2、定义一个符号常量后，不能再改变它的值 D.符号常量定义语句与赋值语句一样，是可执行语句 5、在下列写法中，_D_不是FORTRAN常量。 A. .TRUE. B.1E-2 C. (0.0,2.4) D.1,000,000 6表达式1542.0的值是 B 。 A整数2 B实数15 C实数225 D实数1. 3 7. 下列不是FORTRAN赋值语句的是 _D_。 A) X=.TRUE. B) X=X*X C) 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)/
3、2*H D)0.5*(A+B)*H 9. 要选拔身高T1.7米且体重W2.AND.A+B=C的值为： .FALSE. 。 3、将数学表达式e2x +ln|Sin2x-Sinx2|写成正确的FORTRAN表达式为： EXP(3.14/2*X)+LOG(ABS(SIN(X)*2-SIN(X*2) 。P.29 第9题 4、N是一个个位不等于0的两位自然数,写一个表达式将N的个位数与十位数互换，得到一个新的数。MOD(N,10)*10+N/10 。P.29 第6.4题 5、已知I是整型变量，当DO结构从“正常出口”结束时，语句“DO I= 3,15,2”共计完成了_7_次循环。 6、下列程序的运行显示
4、结果是什么 .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=0 DO N=21,10,-1 IF (MOD(N,2)=0)K=K+1 END DO PRINT*, K=,K END 8.下列程序的运行显示结果是什么 14 5 。P.64 第1.4题 M=0 DO J=1,4 DO K=J-1,4
5、 M=M+1 END DO END DO WRITE(*,*)M,J END 9.下列程序的运行显示结果是什么 5167.0 。P.64 第1.5题 SUM=1.0 J=1 DO WHILE(J.LE.3) F=1 DO I=2,2*J+1 F=F*I ENDDO SUM=SUM+F J=J+1 END DO 3 PRINT*,SUM END 10. 下列程序的运行显示结果是什么 S=15.00 。P.124 第1.4题 DIMENSION X(3,3) DATA X/1,2,3,4,5,6,7,8,9/ S=0 DO I=1,3 S=S+X(I,4-I) ENDDO WRITE(*,20)
6、S 20 FORMAT(1X,S=,F6.2) END 11. 下列程序将一个数组的元素逆序重新存放，例如存放顺序为: 8,6,5,4,1 。要求改为: 1,4,5,6,8。请在横线处填写适当语句，使程序完整。P.126 第3题 INTEGER,PARAMETER:N=5 INTEGER A(N),I,T DATA 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 DO WRITE(*,10)(A(I),I=1,5) 10 FORMAT(1X,5I4) END 12. 下列程序
7、完成按以下格式打印杨辉三角形的前N行: 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 请在横线处填写适当语句，使程序完整。P.126 第12题 PARAMETER(N=10) INTEGER A(N,N),I,J DO I=1,N A(I,1)=1 A(I,I)=1 ENDDO DO I=3,N DO J=2,I-1 A(I,J)=A(I-1,J)+A(I-1,J-1) ENDDO ENDDO DO I=1,N WRITE(*,10)(A(I,J),J=1,I) ENDDO 10 FORMAT(1X,10I5) 4 END 13. 下列子例行程序ProcMin(A,N,MIN)的
8、作用是返回数组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) ENDDO END 14.采用变化的冒泡排序法将N个数按从大到小的顺序排列：对N个数,从第一个直到第N个，逐次比较相邻的两个数，大者放前面，小者放后面，这样得到的第N个数是最小的，然后 4个对前面N-1个数，从第N-1个到第1个，逐次比较相邻的两个数，大者放前面，小者放后面，这样得到的第1个数是最大的。对余下的N-2个数重复上述过程，直至按从大到小的顺序排列完毕
9、。请在下列程序横线处填写适当语句，使程序完整。P.126 第5题 PARAMETER(N=10) INTEGER X(N),I,J,T X=(/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 DO ENDDO WRITE(*,10)(X(I),I=1,10) 10 FORMAT(1X,10I4) END 三、编程题(每小题8分，共24分) 1、输入年月，输出该月所对应的天数。编写程序。P.37 例3.4 2、设计一个子例行程序，计算一个任意矩阵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题 5
