《fortran模拟试题.doc》由会员分享，可在线阅读，更多相关《fortran模拟试题.doc（6页珍藏版）》请在金锄头文库上搜索。
1、一概念选择题（单选题，将正确的答案填入括号内。每题1分，共15分）1. 已知整型变量L=5，M=13，N=4，表达式L*M/N、L/N*M和M/N*L的值分别是（A ）。 A）16 13 15 B）16.25 16.25 16.25 C）16.0 13.0 15.0 D）16 16 162将数学式 改写为FORTRAN表达式，正确的是( D )。1/2*(LOG(ABS(X)+E*(-5)1.0/2*(LN(ABS(X)+E*-5)1/2.0*(LN(ABS(X)+E-5)1.0/2*(LOG(ABS(X)+EXP(-5)3. 设A=.TRUE., B=.FALSE., C=.FALSE.,
2、逻辑表达式(A.OR.B).AND.C与A.OR.NOT.B的值是( B )。 A) .T. 与 .F. B).F. 与 .T. C) .T. 与 .T. D) .F. 与 .F.4. 数组REAL A（0:5，-1:5）的元素个数是 （ D ）。A）25 B）30 C）36 D）425. 下列数组说明符中错误的是（ A ）。 A）K(3:2,1:2) B ) K(-1:1,2) C）K(-2:2,-1:1) D）K(2:2,5)6. 关于USE语句的正确说法是（ C ）。A)USE语句是可执行语句 B)用USE语句可以代替INCLUDE语句C)USE语句必须放在程序单元体的开头 D)USE语
3、句的位置任意 7. 语句OPEN（9，FILE=DATA.TXT）打开的是 ( B ) 文件。A）无格式顺序 B）有格式顺序 C）无格式直接 D）有格式直接8. 阅读下列FORTRAN程序, 程序运行时执行循环体的次数是( A )。X=0DO L=10, 5, 1 X=X+1.0 ENDDOENDA) 0 B) 1 C) 6 D) 无穷9结构化程序设计中有三种基本结构,下列不属于三种基本设计结构的是( D )。A) 顺序结构 B) 选择结构 C) 循环结构 D) 嵌套结构10. 对链表中的数据元素的插入和删除 ( B )。 A）移动结点，不需要改变结点指针 B）不移动结点，需要改变结点指针C）
4、移动结点，并且需要改变结点指针 D）不移动结点，不需要改变结点指针11. 具有12个记录的序列，采用冒泡排序最多的比较次数是( D )。 A) 1 B) 144 C) 11 D) 6612下列形式中，不能作为形参的是 ( C )。A）函数 B）数组 C）表达式 D）变量13. 一个深度为k（k0）的满二叉树的结点数应满足 ( A )。 A）2k+1 -1 B）2k+1 C）2k+1 D）2 k14. 栈和队列都是 ( D )。 A）顺序存储线性表 B）限制存取点的顺序存储线性表 C）链式存储线性表 D）限制存取点的线性表15. 进行二分法查找，则线性表（D） A)必须以顺序方式存储B)必须以链
5、接方式存储C)必须以链接方式存储，且数据元素已按值排好序D)必须以顺序方式存储，且数据元素已按值排好序二阅读程序，并写出下列各程序的运行结果。（每题3分，共15分） 1. CHARACTER LINE*19，DC*5 运行结果是： DC = * * LINE = *# DO K = 16,12,-1 *# LINE(K-7:K-3)= DC *# PRINT *,LINE *# DC(K-11:K-11)=# LINE = ENDDO END2. INTEGER FUNCTION FUN(M) 运行结果是：4 3 M = M/2FUN = M*MENDINTEGER:A,X=17,FUNA =
6、 FUN(X)/FUN(X)B= FUN(X)-FUN(X)PRINT*,A,BEND3. INTEGER A(4,4) 运行结果是：DO I=1,43 DO J=1,45 7 A(I,J)=I*J-15 8 11 ENDDO3 7 11 15ENDDODO I=1,4N=5-I WRITE(*,30)(A(I,J),J=N,4) ENDDO 30 FORMAT(1X,4I3) END4. INTEGER A（3，4） 运行结果是： 6.00 DATA A/12*0/ DO M1，3 DO N1，4CALL SUB（A，3，4，M，N）END DOEND DO WRITE（*，f6.2）F（A
7、，3，4） END SUBROUTINE SUB（P，M，N，I，J） INTEGER P（M，N） P（I，J）JI END FUNCTION F（P，M，N） INTEGER P（M，N） F0.0 DO I1，M DO J1，N FFP（I，J）END DOEND DO END5. A=3.0;B=5.0;C=4.0 运行结果：CALL SUBT(B-A,C)2.0 5.0WRITE(*,(1X,2F4.1)B-A,CENDSUBROUTINE SUBT(X,Y)X=X+2Y=Y+1END三程序填空题（每空2分，共30分）下列模块中的子程序DECTOR的功能是用除R取余法将整数X转换成R
8、(2=R=9)进制的数字，并把结果存放在数组B中，B(0)存放R进制数的位数，其正负号与X相同，最低位放在B(1)中；模块中的函数ISPRIME的功能是判断整数X是否为一个素数，是返回.TRUE.，否则返回.FALSE.。MODULE INTMAPIMPLICIT NONE CONTAINS SUBROUTINE DECTOR(X,R,B) ！将整数X转换成R进制的数字存放在数组B中INTEGER, INTENT(IN): X, R INTEGER, INTENT(OUT): B(0:20)INTEGER: S=1,I=0,REMAINDER,X1IF( X0 ) S=-1 X1= ABS(X
9、) DO WHILE(X1 /= 0) I = I+1 REMAINDER = MOD( X1,R) B(I) = REMAINDER X1=X1/R ENDDOB(0) = I*S END SUBROUTINE FUNCTION ISPRIME(X) ！判断整数X是否为一个素数INTEGER:X,KLOGICAL:ISPRIMEISPRIME= .FALSE. DO K=2,X-1IF( MOD(X,K) =0 )EXITEND DOIF( K=X )ISPRIME=.TRUE.END FUNCTIONEND MODULE2求出19002100的闰年，要求把求出的闰年存入数组Y，并统计闰年的
10、数目。以7位宽度输出闰年年号，每行10个。INTEGER:Y(50), K=0DO I=1900,2100 IF(MOD(I,400)=0 .OR. MOD(I,100)/=0 .AND. MOD(I,4)=0) THEN K = K+1 Y(K) = I ENDIFENDDOPRINT (1X,I2,12H LEAP YEARS:),KPRINT ( 1X,10I7 ),(Y(I),I=1,K)END3. 下面的程序输出ACSII码对照表，请填空。 INTEGER A(32:126),ASCCHARACTER CH(32:126)PRINT*, ACSII码对照表DO ASC=32,126A
11、(ASC)= ASC CH(ASC)= CHAR(ASC) ENDDOPRINT 10, (CH(I),A(I),I=32,126)10 FORMAT(7(1X,A,=,I4)END四简答题（共10分）简述数据结构的内容。（2分）答案: 数据结构主要研究数据元素之间的逻辑关系、数据元素在计算机存储器中的物理关系、在数据元素集合上的运算。2给定树如下，分别写出对该树进行中序和后序遍历的结果 (4分)A阿AACFBDGE答案： 中序遍历结果是 GDBEAFC 后序遍历结果是 GDEBFCA 已知有序列A、B、C，如果按A、B、C的顺序入栈，请写出它们的各种不同的出栈序列。（2分）答案：A,B,C A,C,B B,C,A B,A,C C, B,A real function newton(a,f,df) real, parameter : zero=1.e-6 real : a ! 起始的猜值 real, external : f
