fortran模拟试题.docx

软件技术基础(FORTRAN)笔试模拟试题2004.6(带答案)一概念选择题（单选题，将正确的答案填入括号内。每题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., 逻辑表达式(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. 关于参数语句PARAMETER及其定义参数的正确说法是（ B ）。A)PARAMETER是执行语句 B)参数的值在执行期间不能改变C)只能用常量定义符号参数 D)可用含变量的表达式定义参数 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）移动结点，并且需要改变结点指针 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)必须以链接方式存储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 = 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，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分）下面程序功能是，从键盘输入60个不超过4位的正整数，并把它们写入一个顺序方式打开的文件NAP中，每10个数为一个记录，然后将这个文件中每个记录的偶数之和进行输出。请在程序的横线处填上适当内容。 DIMENSION K(10) OPEN(5,FILE= NAP _,FORM=FORMATTED,ACCESS=SEQUENTIAL,& STATUS= UNKNOW _) DO 10 J=1,6 READ(*,(10I4)(K(I),I=1,10) _WRITE(5,(10I4)_ (K(I),I=1,10) ENDFILE 5 REWIND 5DO 25 J= 1,6 _READ(5,(10I4)(K(I),I=1,10) IS=0 DO 30 N=1,10 IF(MOD( K(I),2 _)=0)IS=IS+K(I)CONTINUEPRINT*,ISCONTINUE CLOSE _ END2. 下面程序的功能是：逐一判断读入的数N是否能被7和9整除，若满足条件则输出该数，当读入的数为0（零）时结束。请填空。DO READ（*，*）N IF（N .EQ. 0）THEN EXIT ELSE IF（ MOD(N,7).EQ.0.AND.MOD(N,9).EQ.0 ）THEN PRINT *，N ENDIF ENDIF ENDDOEND3求出19002100的闰年，要求把求出的闰年存入数组Y，并统计闰年的数目。以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)END下面的程序输出ACSII码对照表，请填空。 INTEGER A(32:126),ASCCHARACTER CH(32:126)PRINT*, ACSII码对照表DO ASC=32,126A(ASC)= ASC CH(ASC)= CHAR(ASC) ENDDOPRINT 10, (CH(I),A(I),I=32,126)10 FORMAT(7(1X,A,=,I4)END四简答题（共10分）已知NM的二维数组，首元素0，0存储地址是R单元，每个数组元素长L字节，分别写出按行和按列存储数组时，数组元素I，J的存储地址 (4分)答案 按行： R+（I*M + J）*L 按列： R+（J*N + I）*L 2给定树如下，分别写出对该树进行中序和后序遍历的结果 (4分)答案： 中序遍历结果是 GDBEAFC 后序遍历结果是 GDEBFCA 已知有序列A、B、C，如果按A、B、C的顺序入栈，请写出它们的各种不同的出栈序列。（2分）答案：A,B,C A,C,B B,C,A B,A,C C, B,A 五编程题（10分）（在下列2题中任选一题，按题目要求编写FORTRAN程序。）编写判断一个整数是否为偶数或奇数的子例行子程序，在主程序中调用它，以便分别求出100个整数中奇数和偶数的个数。 SUBROUTINE SUB(N,CH) CHARACTER*1 CH IF(MOD(N,2)=0)THEN CH=O ELSE CH=J END IF END PROGRAM MAIN DIMENSION K(100) CHARACTER*1 CHA READ *,K NA=0 NB=0 DO I=1,100 KN=K(I) CALL SUB(KN,CHA) IF(CHA=O)NA=NA+1 IF(CHA=J)NB=NB+1 END DO PRINT *,偶数的个数为:,NA PRINT *,奇数的个数为:,NB END2. 已知一个实型数组由6行5列组成，要求：（1）统计数组内每一行的所有元素和，（2）将这些元素的和进行升序排列，并输出排序结果； （3）按数组原有格式输出已知数组。 REAL A(6,5),S(6)，T READ *,A DO I=1,6S(I)=0DO J=1,5 S(I)=S(I)+A(I,J) END DO END DO DO I=1,5 DO J=I+1,6 IF(S（J）S(I)THEN T=S(J)S(J)=S(I)S(I)=T ENDIF END DO ENDDOPRINT *,(S(I),I=1,6) WRITE(*,10)(A(I,J),J=1,5),I=1,6)10 FORMAT(1X,6F8.1) END软件技术基础(FORTRAN)上机考试练习题编写程序,首先从文件D:CJ1.TXT读入以下字符串： I am learning the C+ Programming Language. 将其中的单词换成FORTRAN，然后将结果显示在屏幕上。编写程序,首先键盘输入以下两个字符串：I am a student of Tianjin Universit