fortran模拟试题

1、软件技术基础(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 15B) 16.25 16.25 16.25C) 16.0 13.0 15.0 D) 1616162 .将数学式 改写为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

2、 .设 A=.TRUE., B=.FALSE., C=.FALS逻辑表达式(A.OR.BAND.Cf 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) 25B) 30C) 36D) 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 .关于参数语句 PARAMETE取其定义参数的正确说法是( B )。A)PARAMETE幅执行语句B)参数的值在执行期间

3、不能改变C)只能用常量定义符号参数D)可用含变量的表达式定义参数7 .语句 OPEN (9, FILE= DATA.TXT)打开的是(B )文件。A)无格式顺序B)有格式顺序C)无格式直接D)有格式直接8 .阅读下列FORTRAN序，程序运行时执行循环体的次数是(A )。X=0DO L=10, 5, 1X=X+1.0ENDDOA) 0 B) 1 C) 6 D)无穷9 .结构化程序设计中有三种基本结构A)顺序结构B)选择结构10 .对链表中的数据元素的插入和删除A)移动结点，不需要改变结点指针C)移动结点，并且需要改变结点指针END，下列不属于三种基本设计结构的是(D )。C)循环结构D)嵌套结

4、构(B )。B)不移动结点，需要改变结点指针D)不移动结点，不需要改变结点指针11 .具有12个记录的序列，采用冒泡排序最多的比较次数是(D )。A) 1B) 144C) 11 D) 6612 .下列形式中，不能作为形参的是(C )。A)函数 B)数组C)表达式D)变量13 . 一个深度为k (k0)的满二叉树的结点数应满足(A )。A) 2k+1 -1 B) 2k+1C) 2k+1D) 2 k14 .栈和队列都是 (D )。A）顺序存储线性表B）限制存取点的顺序存储线性表C）链式存储线性表D）限制存取点的线性表15 .进行二分法查找，则线性表（ D）A）必须以顺序方式存储B）必须以链接方式存

5、储C泌须以链接方式存储，且数据元素已按值排好序（每题3分，共15分）D）必须以顺序方式存储，且数据元素已按值排好序 二.阅读程序，并写出下列各程序的运行结果。1. CHARACTER LINE*19, DC*5 DC = *LINE =DO K = 16,12,-1 LINE(K7:K-3)= DC PRINT *,LINE DC(K11:K-11)=#LINE = ENDDO END2. INTEGER FUNCTION FUN(M) M = M/2FUN = M*MENDINTEGER:A,X=17,FUNA = FUN(X)/FUN(X)B= FUN(X)FUN(X)PRINT*,A,B

6、END3. INTEGER A(4,4) DO I=1,4DO J=1,457A(I,J)=I*J15811ENDDO 371115运行结果是：*#*#*#*#运行结果是：4运行结果是:3ENDDODO I=1,4N=5-IWRITE(*,30)(A(I,J),J=N,4)ENDDO30 FORMAT(1X,4I3)END4. INTEGER A(3, 4)运行结果是：6.00DATA A/12*0/DO M= 1, 3 DO N=1, 4CALL SUB (A, 3, 4, M , N) END DOEND DOWRITE (*, f6.2 ) ) F (A, 3, 4) ENDSUBROU

7、TINE SUB(P, M , N, I, J INTEGER P(M, N) P (I, J) = J- I END FUNCTION F (P, M , N) INTEGER P(M , N) F= 0.0 DO I=1, MDO J= 1, NF= F+P (I, JEND DOEND DOEND运行结果:5. A=3.0;B=5.0;C=4.0CALL SUBT(BA,C) 2.0 5.0WRITE(*, (1X,2F4.1-A,C )BENDSUBROUTINE SUBT(X,Y)X=X+2Y=Y+1END三.程序填空题(每空 2分，共30分)下面程序功能是，从键盘输入60个不超过4

8、位的正整数，并把它们写入一个顺序方式打开的文件NAP中，每10个数为一个记录，然后将这个文件中每个记录的偶数之和进行输出。 请在程序的横线处填上适当内容。DIMENSION K(10)OPEN(5,FILE= NAP ,FORM= FORMATTED ,ACCESS= SEQUENTIAL ,&STATUS= UNKNOW )DO 10 J=1,6READ(*, (10I4) )(K(I),I=1,10)WRITE(5, (10I4) )(K(I),I=1,10)ENDFILE 5REWIND 5DO 25 J= 1,6 READ(5, (10I4)(K(I),I=1,10)IS=0DO 30

9、 N=1,10IF(MOD( K(I),2)=0)IS=IS+K(I)CONTINUEPRINT*,ISCONTINUECLOSE END2 .下面程序的功能是：逐一判断读入的数 N是否能被7和9整除，若满足条件则输出该数， 当读入的数为0 (零)时结束。请填空。DOREAD (*, *) NIF (N .EQ. 0) THENEXITELSEIF (MOD(N,7).EQ.0.AND.MOD(N,9).EQ.0) THENPRINT *, NENDIFENDIFENDDOEND3 .求出19002100的闰年，要求把求出的闰年存入数组Y,并统计闰年的数目。以 7位宽度输出闰年年号，每行 10

10、个。INTEGER:丫(50), K=0DO I=1900,2100IF(MOD(I,400)=0 .OR. MOD(I,100)/=0 .AND. MOD(I,4)=0) THENK =K+1Y(K) = IENDIFENDDOPRINT (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)= ASCCH(ASC)= CHAR(ASC)E

11、NDDOPRINT 10, (CH(I),A(I),I=32,126)10 FORMAT(7(1X,A,=,I4)END四.简答题(共10分)已知NXM的二维数组，首元素A 0, 0存储地址是R单元，每个数组元素长 L字节，分别写出按行和按列存储数组时，数组元素A I, JO的存储地址(4分)答案按行：R+ ( I*M + J) *L按列：R+ ( J*N + I) *L（4分）2 .给定树如下，分别写出对该树进行中序和后序遍历的结果 答案：中序遍历结果是 GDBEAFC后序遍历结果是 GDEBFCA已知有序列A、B、C,如果按A、B、C的顺序入栈，请写出它们的各种不同的出栈序歹U。 分)答案

12、：A,B,C A,C,B B,C,A B,A,C C, B,A五.编程题(10分)(在下列2题中任选一题，按题目要求编写 FORTRA姗序。) 编写判断一个整数是否为偶数或奇数的子例行子程序，在主程序中调用它，以便分别求出 100个整数中奇数和偶数的个数。SUBROUTINE SUB(N,CH) CHARACTERS CH IF(MOD(N,2)=0)THEN CH= OELSECH= JEND IF END PROGRAM MAIN DIMENSION K(100) CHARACTERS CHA READ *,K NA=0NB=0DO I=1,100KN=K(I)CALL SUB(KN,CH

13、A)IF(CHA= O )NA=NA+1IF(CHA= J )NB=NB+1END DOPRINT*,偶数的个数为：，NAPRINT */奇数的个数为：，NB END2.已知一个实型数组由 6行5列组成，要求：(1)统计数组内每一行的所有元素和，(2)将这些元素的和进行升序排列，并输出排序结果；(3)按数组原有格式输出已知数组。REAL A(6,5),S(6) T READ *,ADO I=1,6S(I)=0DO J=1,5S(I)=S(I)+A(I,J)END DOEND DODO I=1,5DO J=I+1,6IF(S (J) S(I)THENT=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+ ProgrammingLanguage. 将其中的单词换成FORTRAN”,然后将结果显示在屏幕上。编写程序，首先键盘输入以下两个字符串：I am a student of Tianjin University ,