2022年大学FORTRAN考试试题 .pdf

《2022年大学FORTRAN考试试题 .pdf》由会员分享，可在线阅读，更多相关《2022年大学FORTRAN考试试题 .pdf（5页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1 高级语言程序设计(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/

3、2 C)(A+B)/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 ”

4、共计完成了 _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 END7. 下列程序的运行显示结果是什么 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 第

5、1.4 题M=0 DO J=1,4 DO K=J-1,4 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 页，共 5 页 - - - - - - - - - 4 PRIN

6、T*,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) 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

7、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 FORMA T(1X,5I4) END 12. 下列程序完成按以下格式打印杨辉三角形的前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

8、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 FORMA T(1X,10I5) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 5 页 - - - - - - - - - 5 END 13. 下列子例行程序ProcMin(A,N,MIN)的作用是返回数组A 中的最小值。 请在横线处填写适当语句，使程序完整。SUBROUTINE PR

9、OCMIN(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 个数重复上述过程，直至按从大到小的顺序排列完毕。请在下列程序横线处填写适当语句，使程序完整。 P.126 第

10、 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

11、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 页，共 5 页 - - - - - - - - -