大学FORTRAN考试试题11.docx

大学FORTRAN考试试题11.docx

《大学FORTRAN考试试题11.docx》由会员分享，可在线阅读，更多相关《大学FORTRAN考试试题11.docx（26页珍藏版）》请在冰点文库上搜索。

大学FORTRAN考试试题11

1．下列叙述中，正确的是（D）

A．语句标号的大小影响程度执行的顺序

B．程序完全按语句出现的先后顺序执行

C．不同程序单位不能有相同的语句标号

D．同一程序单位不能有相同的语句标号

2．下列标识符中，不能作为合法的FORTRAN90标识符的是（C）

A．A3_B3B．VOIDC．_123D．IF

3．下列哪一个为正确的常量（D）

A．123,000B.3.5E+2.5C.TRUED.“HELLO”

4．若A=2，B=2，I=3，则表达式A**B**I的值为（C）

A.64B.12C.256D16.

5．圆的直径存放在整型变量D之中，下列计算圆面积的表达式中正确的是（D）

A.3.14159*（D/2）*（D/2）B.3.14159*（D*D/4）

C.3.14159*（D/2）**2D.3.14159*D*D/4

6．下列运算符中，运算优先级最高的是（B）

A.关系运算B.算术运算C.逻辑非运算D.逻辑与运算

7．下列FORTRAN的表达式中值为0.5的是（C）

A．MOD（4.8，0.5）B．100/20/10C．50.0/4/25D．MOD（15，10）/10

8．下列是完整的FORTRAN程序，编译时出错的语句是（C）

A．PROGRAMPRINTB．PARAMETER（PI=3.1415926）

C．PI=PI+1D．WRITE（*，*）SIN（PI+0.5）

END

9．变量的类型定义中，优先级由高到低的顺序为（A）

A．类型说明语句、IMPLICIT说明语句、隐含约定

B．隐含约定、IMPLICIT说明语句、类型说明语句

C．IMPLICIT说明语句、类型说明语句、隐含约定

D．隐含约定、类型说明语句、IMPLICIT说明语句

10．“两整数M与N不能同时小于零”的FORTRAN表达式（D）

A．M＞＝0．AND．Ｎ＞＝０

B．（M．GE．0．AND．N．LT．0）．OR．（M．LT．0．AND．N．GE．0）

C．（M．LE．0．AND．N．LE．0）．OR．（M．LE．0．AND．N．GE．0）

D．M．GE．0．OR．N．GE．0

11．下列逻辑表达式描述的是（不会）

X．GT．3．AND．X．LT．10．AND．MOD（X，3）．NE．0．OR．X．EQ．2．OR．X．EQ．3

A．10以内的素数B．10以内的合数

C．10以内的奇数D．10以内的偶数

12．下面正确的逻辑IF语句是（C）

A．IF（X．EQ．Y）THENGOTO10B．IFM．LT．NPRINT*，M

C．IF（ABS（X）．LT．1E-6）A=1D．IF（A．AND．（A．LE．0．0）A=3

13．下列语句中正确的是（C）

A．DATAA，B，C/3*（-10.0）/B．READ（*,*）（N,A（K）,K=1,N）

C．WRITE（*,*）（10,A（K）,K=1,10）D．READ（*,*）N,N+1

14.如果J是整型变量，则循环语句：

DOJ=5.5，-1.5，-2.5所执行的循环次数是（C）

A．4B．3C．2D．1

15．如有语言：

INTEGERB（-1:

-2,3:

7）,则数组B中所含的元素个数为（无答案）

A．0B.10C.12D.21

16.关于FORTRAN90的CASE结构，SELECTCASE（表达式）中的表达式的数据类型不允许为（A）

A.实型B.字符型C.实型D.逻辑性

17．下面符号在FORTRAN90中表示续行符的是（B）

A．!

B.&C.#D.%

18.下列程序段中，错误的语句是（D）

A．PARAMETER（N=10）

B.INTEGER:

:

M=20

C.M=M+N

D.PRINT（*,*）M,N

19.

A.FUNCTIONB.SUBROUTINE

C.BLOCKDATAD.SUB

20.下列语句中，错误的语句是（D）。

A.PARAMETER（PI=3.1415）B.DIMENSIONA（-5:

0）

C.INTEGER:

:

A=10D.SELECTCAE（3.0）

21.执行语句：

WRITE（*，‘（1X,A,‘=’，I2）’）“2+3”，2+3后，屏幕上显示的结果是（不会）。

A.□5B.2+3=□5

C．5=□5D.语句不正确

22.能得到一下数据正确输出结果的FORTRAN语句是（A）

X=1.34

M=3

Y=1.25

A.100FORMAT（1X,F6.3，I3，E9.4）

B.100FORMAT（1X,2F8.3，I3）

C.100FORMAT（1X,F8.4，I3，F3.1）

D.100FORMAT（1X,F8.4，2（1X,I3））

23.设有如下程序，下面描述正确的是（一次也不循环）

K=10；DOWHILE（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）,I=1,N）

D,READ（*,*）（I=1,10，A（I））

25.为了保证正确的输出数据，格式编辑符Ewd中w与d的关系应该是（B）

A．w>dB.w>d+2C.w>d+4D.w>d+6

26.若定义了语句函数S（X,Y,Z）=X+Y+Z后，S（2.01.03.0）的值为（6.0）

A.17.0B.11.0C.20.0D.29.0

27.下列说法中正确的是（D）

A.块IF结构中的THEN块或ELSE块不能是空块

B.块IF结构中至少要有一个ELSEIF语句或ELSE语句

C.每一个ELSE语句要有一个对应的ENDIF语句

D.一个块IF结构中只能有一个ENDIF语句

28.在子程序SUB中，下列各语句的正确顺序是（A）1.④要放③前2.见P129：

①为语句函数，语句函数是非执行语句，语句函数的定义语句要放在一个程序单位的所有其他说明语句之后，放在所有可执行语句之前，所以②在①前

①F（A,B,C）=A*A+B*C②IMPLICITINTEGER（F,A,B,C）

③REALD（M）,E（N）④PARAMETER（M=4）

⑤SUBROUTINESUB（E,N）

A.⑤④③②①B.⑤②④③①

C.⑤③②④①D.⑤②③④①

答案应该正确，有异议可以大家一起讨论，或Q我，树连

学生班级________________学生学号：

□□□□□□□□□□□□学生姓名：

________________

………………装订线………装订线………装订线…………试卷须与答题纸一并交监考教师…………装订线………装订线………装订线………………

《Fortran语言程序设计》考试试题

一、关键字解释及表达式互换（共10题，每题2分，共20分）

1.READ*,X,Y

2.REAL

3．12FORMAT（2X,I5）

4．COMPLEX

5．LOGICAL

6．INTEGER,DIMENSION（4,5）:

:

A

7．SELECTCASE（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）GOTO5

DON=1,1O，0

5T=SS*3.45

PRINT*,R,T

ENDDO

………………

2.PROGRAMex

IMPLICINONE

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.写出下列程序的作用是解决什么问题的？

PROGRAMGH1

REALX,Y

READ*,X

IF（X<=0）Y=LOG（SQRT（X*X+1））

IF（X>0）Y=SIN（X**3）+ABS（X）

PRINT*,”Y=”,Y

END

2．写出下列程序的运行结果，程序运行时输入5，6，7，8四个数。

PROGRAMGH2

IMPLICITNONE

INTEGER:

:

M,N

READ*,M,N,N,M!

说明：

程序运行时输入5，6，7，8四个数

M=M+N

N=M+N

PRINT*,M,N

END

3.写出下列程序的结果，或分析下列程序结果。

PROGRAMGH3

IMPLICITNONE

INTEGER:

:

i,k

k=3

DOi=1,k

PRINT*,'i=',i,fact（i）

ENDDO

CONTAINS

integerfunctionfact（n）

integer:

:

n,t,j

t=5

j=3

t=n**j+t

fact=t

ENDfunctionfact

END

4．写出下列程序实现的功能。

PROGRAMExample

IMPLICITNONE

INTEGER:

:

i,k

DOi=200,600

If（mod（i,7）==0）then

PRINT*,'i=',i

Endif

ENDDO

END

四、根据题目要求画出程序一般流程图和盒图（即N-S图）。

（共2图，每图10分，共20分）

题目：

求u=

。

其中，

，

。

标准答案

一、关键字解释及表达式互换（共10题，每题2分，共20分）

1.读入数据X,Y。

2.实型变量说明语句，它的取值范围由其后跟随的种类参数（可略）说明。

3．定义数据输出形式。

4．复数型变量说明语句。

5．逻辑型变量说明语句。

6．定义整型（4

）的二维数组，数组名为A。

7．条件选择说明语句，选择变量为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.1522

3.i=16

i=213

i=332

4.输出200～600之间可以被7整除的数。

四、画出程序一般流程图和盒图（即N-S图）。

（共2图，每图10分，共20分）

如果画出部分或部分画错，根据画的情况酌情给相应的分值。

软件技术基础（FORTRAN）笔试模拟试题

（带答案）

一．概念选择题（单选题，将正确的答案填入括号内。

每题1分，共15分）

1.已知整型变量L=5，M=13，N=4，表达式L*M/N、L/N*M和M/N*L的值分别是（A）。

A）161315B）16.2516.2516.25

C）16.013.015.0D）161616

2．将数学式

改写为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）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.数组REALA（0:

5，-1:

5）的元素个数是（D）。

A）25B）30C）36D）42

5.下列数组说明符中错误的是（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语句的位置任意

7.语句OPEN（9，FILE=‘DATA.TXT’）打开的是（B）文件。

A）无格式顺序B）有格式顺序C）无格式直接D）有格式直接

8.阅读下列FORTRAN程序,程序运行时执行循环体的次数是（A）。

X=0

DOL=10,5,1

X=X+1.0

ENDDO

END

A）0B）1C）6D）无穷

9．结构化程序设计中有三种基本结构,下列不属于三种基本设计结构的是（D）。

A）顺序结构B）选择结构C）循环结构D）嵌套结构

10.对链表中的数据元素的插入和删除（B）。

A）移动结点，不需要改变结点指针B）不移动结点，需要改变结点指针

C）移动结点，并且需要改变结点指针D）不移动结点，不需要改变结点指针

11.具有12个记录的序列，采用冒泡排序最多的比较次数是（D）。

A）1B）144C）11D）66

12．下列形式中，不能作为形参的是（C）。

A）函数B）数组C）表达式D）变量

13.一个深度为k（k≥0）的满二叉树的结点数应满足（A）。

A）2k+1-1B）2k+1C）2k+1D）2k

14.栈和队列都是（D）。

A）顺序存储线性表B）限制存取点的顺序存储线性表

C）链式存储线性表D）限制存取点的线性表

15.进行二分法查找，则线性表（D）

A）必须以顺序方式存储B）必须以链接方式存储

C）必须以链接方式存储，且数据元素已按值排好序

D）必须以顺序方式存储，且数据元素已按值排好序

二．阅读程序，并写出下列各程序的运行结果。

（每题3分，共15分）

1.CHARACTERLINE*19，DC*5运行结果是：

DC="*****"*****

LINE=""****#

DOK=16,12,-1***##

LINE（K-7:

K-3）=DC**###

PRINT*,LINE*####

DC（K-11:

K-11）="#"

LINE=""

ENDDO

END

2.INTEGERFUNCTIONFUN（M）运行结果是：

43

M=M/2

FUN=M*M

END

INTEGER:

:

A,X=17,FUN

A=FUN（X）/FUN（X）

B=FUN（X）-FUN（X）

PRINT*,A,B

END

3.INTEGERA（4,4）运行结果是：

DOI=1,43

DOJ=1,457

A（I,J）=I*J-15811

ENDDO371115

ENDDO

DOI=1,4

N=5-I

WRITE（*,30）（A（I,J）,J=N,4）

ENDDO

30FORMAT（1X,4I3）

END

4.INTEGERA（3，4）运行结果是：

6.00

DATAA/12*0/

DOM＝1，3

DON＝1，4

CALLSUB（A，3，4，M，N）

ENDDO

ENDDO

WRITE（*，"f6.2）"）F（A，3，4）

END

SUBROUTINESUB（P，M，N，I，J）

INTEGERP（M，N）

P（I，J）＝J－I

END

FUNCTIONF（P，M，N）

INTEGERP（M，N）

F＝0.0

DOI＝1，M

DOJ＝1，N

F＝F＋P（I，J）

ENDDO

ENDDO

END

5.A=3.0;B=5.0;C=4.0运行结果：

CALLSUBT（B-A,C）2.05.0

WRITE（*,’（1X,2F4.1）’）B-A,C

END

SUBROUTINESUBT（X,Y）

X=X+2

Y=Y+1

END

三．程序填空题（每空2分，共30分）

1.下列模块中的子程序DECTOR的功能是用除R取余法将整数X转换成R（2<=R<=9）进制的数字，并把结果存放在数组B中，B（0）存放R进制数的位数，其正负号与X相同，最低位放在B

（1）中；模块中的函数ISPRIME的功能是判断整数X是否为一个素数，是返回.TRUE.，否则返回.FALSE.。

MODULEINTMAP

IMPLICITNONE

CONTAINS

SUBROUTINEDECTOR（X,R,B）！

将整数X转换成R进制的数字存放在数组B中

INTEGER,INTENT（IN）:

:

X,R

INTEGER,INTENT（OUT）:

:

B（0:

20）

INTEGER:

:

S=1,I=0,REMAINDER,X1

IF（X<0）S=-1

X1=ABS（X）

DOWHILE（X1/=0）

I=I+1

REMAINDER=MOD（X1,R）

B（I）=REMAINDER

X1=X1/R

ENDDO

B（0）=I*S

ENDSUBROUTINE

FUNCTIONISPRIME（X）！

判断整数X是否为一个素数

INTEGER:

:

X,K

LOGICAL:

:

ISPRIME

ISPRIME=.FALSE.

DOK=2,X-1

IF（MOD（X,K）==0）EXIT

ENDDO

IF（K==X）ISPRIME=.TRUE.

ENDFUNCTION

ENDMODULE

2．求出1900～2100的闰年，要求把求出的闰年存入数组Y，并统计闰年的数目。

以7位宽度输出闰年年号，每行10个。

INTEGER:

:

Y（50）,K=0

DOI=1900,2100

IF（MOD（I,400）==0.OR.MOD（I,100）/=0.AND.MOD（I,4）==0）THEN

K=K+1

Y（K）=I

ENDIF

ENDDO

PRINT'（1X,I2,12HLEAPYEARS:

）',K

PRINT'（1X,10I7）',（Y（I）,I=1,K）

END

3.下面的程序输出ACSII码对照表，请填空。

INTEGERA（32:

126）,ASC

CHARACTERCH（32:

126）

PRINT*,"ACSII码对照表"

DOASC=32,126

A（ASC）=ASC

CH（ASC）=CHAR（ASC）

ENDDO

PRINT10,（CH（I）,A（I）,I=32,126）

10FORMAT（7（1X,A,"=",I4））

END

四．简答题（共10分）

1．简述数据结构的内容。

（2分）

答案:

数据结构主要研究数据元素之间的逻辑关系、数据元素在计算机存储器中的物理关系、在数据元素集合上的运算。

2．给定树如下，分别写出对该树进行中序和后序遍历的结果（4分）

答案：

　　中序遍历结果是GDBEAFC

　　后序遍历结果是GDEBFCA

3．已知有序列A、B、C，如果按A、B、C的顺序入栈，请写出它们的各种不同的出栈序列。

（2分）

答案：

A,B,CA,C,BB,C,AB,A,CC,B,A

五．编程题（10分）（在下列2题中任选一题，按题目要求编写FORTRAN程序。

）

1.编写判断一个整数是否为偶数或奇数的子例行子程序，在主程序中调用它，以便分别求出100个整数中奇数和偶数的个数。

SUBROUTINESUB（N,CH）

CHARACTER*1CH

IF（MOD（N,2）==0）THEN

CH=’O’

ELSE

CH=’J’

ENDIF

END

PROGRAMMAIN

DIMENSIONK（100）

CHARACTER*1CHA

READ*,K

NA=0

NB=0

DOI=1,100

KN=K（I）

CALLSUB（KN,CHA）

IF（CHA==’O’）NA=NA+1

IF（CHA==’J’）NB=NB+1

ENDDO

PRINT*,’偶数的个数为:

’,NA

PRINT*,’奇数的个数为:

’,NB

END

2.已知一个实型数组由6行5列组成，要求：

（1）统计数组内每一行的所有元素和，

（2）将这些元素的和进行升序排列，并输出排序结果；

（3）按数组原有格式输出已知数组。

REALA（6,5）,S（6），T

READ*,A

DOI=1,6

S（I）=0

DOJ=1,5

S（I）=S（I）+A（I,J）

ENDDO

ENDDO

DOI=1,5

DOJ=I+1,6

IF（S（J）

T=S（J）

S（J）=S（I）

S（I）=T

ENDIF

ENDDO

ENDDO

PRINT*,（S（I）,I=1,6）

WRITE（*,10）（（A（I,J）,J=1,5）,I=1,6）

10FORMAT（1X,6F8.1）

END

软件技术基础（FORTRAN）上机考试练习题

1.编写程序,首先从文件D:

\CJ1.TXT读入以下字符串：

"IamlearningtheC++ProgrammingLanguage."将其中的单词""换成"FORTRAN"，然后将结果显示在屏幕上。

2.编写程序,首先键盘输入以下两个字符串：

"IamastudentofTianjinUniversity"，"IamlearningtheFORTRANProgrammingLanguage"；分别统计各字符串中字母出现的次