大学FORTRAN考试试题11.docx

1、大学FORTRAN考试试题111下列叙述中，正确的是 (D ) A语句标号的大小影响程度执行的顺序 B程序完全按语句出现的先后顺序执行C不同程序单位不能有相同的语句标号D同一程序单位不能有相同的语句标号2下列标识符中，不能作为合法的FORTRAN90标识符的是 ( C)AA3_B3 BVOID C_123 DIF3下列哪一个为正确的常量 ( D )A123,000 B. 3.5E+2.5 C. TRUE D. “HELLO”4若A=2，B=2，I=3，则表达式A*B*I的值为( C ) A. 64 B.12 C.256 D16.5圆的直径存放在整型变量D之中，下列计算圆面积的表达式中正确的是(

2、 D ) A. 3.14159*（D/2）*（D/2） B. 3.14159*(D*D/4)C. 3.14159*(D/2)*2 D. 3.14159*D*D/46下列运算符中，运算优先级最高的是(B ) A. 关系运算 B. 算术运算 C. 逻辑非运算 D. 逻辑与运算7下列FORTRAN的表达式中值为0.5的是( C)AMOD(4.8，0.5) B100/20/10 C50.0/4/25 DMOD（15，10）/108下列是完整的FORTRAN程序，编译时出错的语句是( C ) APROGRAM PRINT BPARAMETER (PI=3.1415926)CPI=PI+1 DWRITE(

3、*，*)SIN(PI+0.5) END 9变量的类型定义中，优先级由高到低的顺序为( A ) A类型说明语句、IMPLICIT 说明语句、隐含约定B隐含约定、IMPLICIT 说明语句、类型说明语句CIMPLICIT 说明语句、类型说明语句、隐含约定D隐含约定、类型说明语句、IMPLICIT 说明语句10“两整数M与N不能同时小于零”的FORTRAN表达式( D )AM0ANDB(MGE0ANDNLT0)OR(MLT0ANDNGE0）C(MLE0ANDNLE0)OR(MLE0ANDNGE0）DMGE0ORNGE0 11下列逻辑表达式描述的是(不会)XGT3ANDXLT10ANDMOD(X，3)

4、NE0ORXEQ2ORXEQ3 A10以内的素数 B10以内的合数C10以内的奇数 D10以内的偶数12下面正确的逻辑IF语句是(C )AIF(XEQY)THEN GOTO 10 BIF MLTN PRINT*，MC IF(ABS(X)LT1E-6) A=1 DIF(AAND(ALE00) A=313下列语句中正确的是( C )ADATA A，B，C/3*(-10.0）/ BREAD(*,*)（N,A(K),K=1,N）CWRITE(*,*)(10,A(K),K=1,10) DREAD(*,*)N,N+114. 如果J是整型变量，则循环语句：DO J=5.5，-1.5，-2.5 所执行的循环次

5、数是(C)A4 B3 C2 D115如有语言：INTEGER B (-1:-2,3:7),则数组 B 中所含的元素个数为( 无答案)A0 B.10 C.12 D.2116. 关于FORTRAN90 的CASE结构，SELECT CASE（表达式）中的表达式的数据类型不允许为( A) A. 实型 B. 字符型 C. 实型 D. 逻辑性17下面符号在FORTRAN90 中表示续行符的是( B) A! B. & C. # D. %18. 下列程序段中，错误的语句是( D)APARAMETER(N=10)B. INTEGER: M=20C. M=M+ND. PRINT(*, *)M, N 19. A.

6、 FUNCTION B. SUBROUTINE C. BLOCK DATA D. SUB 20.下列语句中，错误的语句是( D)。 A. PARAMETER(PI=3.1415) B. DIMENSION A(-5 : 0)C. INTEGER : : A=10 D. SELECT CAE(3.0) 21. 执行语句：WRITE(* ，（1X,A,=，I2）)“2+3”， 2+3后，屏幕上显示的结果是( 不会)。 A. 5 B. 2+3= 5 C5=5 D. 语句不正确22. 能得到一下数据正确输出结果的 FORTRAN 语句是( A ) X=1.34 M=3 Y=1.25A. 100 FOR

7、MAT(1X, F6.3， I3， E9.4)B. 100 FORMAT(1X, 2F8.3， I3)C. 100 FORMAT(1X, F8.4， I3， F3.1)D. 100 FORMAT(1X, F8.4， 2（1X, I3）)23.设有如下程序，下面描述正确的是( 一次也不循环) K = 10； DO WHILE(K=0); K=K-1; ENDDO A循环执行10次 B. 循环是无限循环24.C A, READ(*, *)(I, A(I), I=1, 10) B, READ(*, *)(B(I, J), I=1, 10, J=1, 10) C, READ(*, *)N, ( A(I

8、), I=1, N) D, READ(*, *)(I=1, 10， A（I）) 25.为了保证正确的输出数据，格式编辑符Ewd中w与d的关系应该是( B )Awd B.wd+2 C.wd+4 D.wd+626.若定义了语句函数S(X, Y, Z)=X+Y+Z 后，S(2.0 1.0 3.0)的值为( 6.0)A.17.0 B.11.0 C.20.0 D.29.027.下列说法中正确的是( D)A. 块IF结构中的THEN块或ELSE块不能是空块B. 块IF结构中至少要有一个ELSEIF语句或ELSE语句C. 每一个ELSE语句要有一个对应的ENDIF语句D. 一个块IF结构中只能有一个ENDI

9、F语句 28.在子程序SUB中，下列各语句的正确顺序是(A )1. 要放前2.见P129：为语句函数，语句函数是非执行语句，语句函数的定义语句要放在一个程序单位的所有其他说明语句之后，放在所有可执行语句之前，所以在前 F(A, B, C)=A*A+B*C IMPLICIT INTEGER(F, A, B, C)REAL D(M), E(N) PARAMETER(M=4)SUBROUTINE SUB(E, N)A. B. C. D.答案应该正确，有异议可以大家一起讨论，或Q我，树连学生班级_学生学号：学生姓名：_装订线装订线装订线试卷须与答题纸一并交监考教师装订线装订线装订线Fortran 语言

10、程序设计考试试题一、关键字解释及表达式互换（共10题，每题2分，共20分）1. READ*, X,Y2. REAL312 FORMAT(2X,I5)4COMPLEX5LOGICAL6INTEGER,DIMENSION(4,5):A7SELECT CASE(R3)8写出 的fortran表达式9写出COS（(A+1)*（A+1)）/(N*N+1)数学表达式10写出 的fortran表达式二、下面分别是程序中的一段代码，请指出其错误？（共2题，（共2题，1题12分，2题8分，共20分）1. E=(E*T+23) IF(E=500) GOTO 5 DO N=1,1O，0 5 T=SS*3.45 PR

11、INT*,R,TEND DO 2. PROGRAM ex IMPLICI NONE INTEGER : n CHARACTER(LEN=3) : a,b,c READ*, n a=n b=nkd_lixy c=sqrt(a*2+b*2) print*,c 三、请写出下面程序的运行结果（共4题，每题10分，共40分）1.写出下列程序的作用是解决什么问题的？ PROGRAM GH1 REAL X,Y READ*,X IF (X0) Y=SIN(X*3)+ABS(X)PRINT*,”Y=”,Y END 2写出下列程序的运行结果，程序运行时输入 5，6，7，8 四个数。 PROGRAM GH2 IMP

12、LICIT NONE INTEGER:M,N READ *, M,N,N,M ! 说明：程序运行时输入5，6，7，8 四个数 M=M+N N=M+N PRINT *,M,NEND 3.写出下列程序的结果，或分析下列程序结果。 PROGRAM GH3 IMPLICIT NONE INTEGER: i,k k=3 DO i=1,k PRINT*,i=,i,fact(i) END DO CONTAINS integer function fact(n) integer :n,t,j t=5 j=3 t=n*j+t fact=t END function fact END4写出下列程序实现的功能。PR

13、OGRAM ExampleIMPLICIT NONE INTEGER: i,k DO i=200,600 If(mod(i,7)=0) then PRINT*,i=,i End if END DO END四、根据题目要求画出程序一般流程图和盒图（即N-S图）。（共2图，每图10分，共20分） 题目：求u=。其中， ，。 标准答案一、关键字解释及表达式互换（共10题，每题2分，共20 分）1. 读入数据X,Y。2.实型变量说明语句，它的取值范围由其后跟随的种类参数（可略）说明。3定义数据输出形式。4复数型变量说明语句。5逻辑型变量说明语句。6 定义整型（4）的二维数组，数组名为A。7条件选择说明

14、语句，选择变量为CASE(R3)8 9 10（x/y）*(n-1)二、下面分别是程序中的一段代码，请指出其错误？（共2题，1题12分，2题8分，共20分）1. 不允许从循环体外转入循环体内（6分），循环步进值（增量）不能为零。（6分） 2. 赋值语句中，值与变量类型不匹配 （8分） .三、请写出下面程序的运行结果（共4题，每题10分，共40分）(结果写错，如果分析程序思路对，酌情给分)1求 函数式解的程序。2. 15 223. i= 1 6 i= 2 13 i= 3 32 4. 输出200600之间可以被7整除的数。四、画出程序一般流程图和盒图（即N-S图）。（共2图，每图10分，共20分）如

15、果画出部分或部分画错，根据画的情况酌情给相应的分值。软件技术基础(FORTRAN)笔试模拟试题(带答案)一概念选择题（单选题，将正确的答案填入括号内。每题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 )。A) 1/2*(LOG(ABS(X)+E*(-5)B) 1.0/2*(LN(ABS(X)+E*-5)C) 1/2.0*(LN(ABS(X)+E-5)D

16、) 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. 关于USE语句的正确说法是（ C

17、）。 A)USE语句是可执行语句 B)用USE语句可以代替INCLUDE语句 C)USE语句必须放在程序单元体的开头 D)USE语句的位置任意 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) 嵌

18、套结构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）限制存取点的顺

19、序存储线性表 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

20、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,4 3 DO J=1,4 5 7 A(I,J)=I*J-1 5 8 11 ENDDO 3 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

21、/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 S

22、UBT(X,Y)X=X+2Y=Y+1END三程序填空题（每空2分，共30分）1. 下列模块中的子程序DECTOR的功能是用除R取余法将整数X转换成R(2=R=9)进制的数字，并把结果存放在数组B中，B(0)存放R进制数的位数，其正负号与X相同，最低位放在B(1)中；模块中的函数ISPRIME的功能是判断整数X是否为一个素数，是返回.TRUE.，否则返回.FALSE.。MODULE INTMAP IMPLICIT NONE CONTAINS SUBROUTINE DECTOR(X,R,B) ！将整数X转换成R进制的数字存放在数组B中 INTEGER, INTENT(IN): X, R INTEG

23、ER, INTENT(OUT): B(0:20) INTEGER: S=1,I=0,REMAINDER,X1 IF( X0 ) S=-1 X1= ABS(X) DO WHILE(X1 /= 0) I = I+1 REMAINDER = MOD( X1,R) B(I) = REMAINDER X1=X1/R ENDDO B(0) = I*S END SUBROUTINE FUNCTION ISPRIME(X) ！判断整数X是否为一个素数 INTEGER:X,K LOGICAL:ISPRIME ISPRIME= .FALSE. DO K=2,X-1 IF( MOD(X,K) =0 )EXIT EN

24、D DO IF( K=X )ISPRIME=.TRUE. END FUNCTIONEND MODULE2求出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)END3. 下面的程序输出A

25、CSII码对照表，请填空。 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分）1 简述数据结构的内容。（2分）答案: 数据结构主要研究数据元素之间的逻辑关系、数据元素在计算机存储器中的物理关系、在数据元素集合上的运算。2给定树如下，分别写出对该树进行中序和后序遍历的结果 (4分)答案： 中序遍历结果是

26、GDBEAFC 后序遍历结果是 GDEBFCA 3 已知有序列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程序。）1. 编写判断一个整数是否为偶数或奇数的子例行子程序，在主程序中调用它，以便分别求出100个整数中奇数和偶数的个数。 SUBROUTINE SUB(N,CH) CHARACTER*1 CH IF(MOD(N,2)=0)THEN CH=O ELSE CH=J END IF END PROGRAM MAIN DIM

27、ENSION 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,

28、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)上机考试练习题1. 编写程序,首先从文件D:CJ1.TXT读入以下字符串： I am learning the C+ Programming Language. 将其中的单词换成FORTRAN，然后将结果显示在屏幕上。2. 编写程序,首先键盘输入以下两个字符串：I am a student of Tianjin University，I am learning the FORTRAN Programming Language；分别统计各字符串中字母出现的次