FORTRAN程序设计复习题及答案Word文档下载推荐.docx

FORTRAN程序设计复习题及答案Word文档下载推荐.docx

《FORTRAN程序设计复习题及答案Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《FORTRAN程序设计复习题及答案Word文档下载推荐.docx（24页珍藏版）》请在冰豆网上搜索。

A）逻辑运算符、AＮD、　B）算术运算符*

Ｃ）关系运算符>

=　　D）算术运算符＋

A（14下列语句函数得定义中正确得就是ﻫA）F（X,Y）＝（X＋Y）／（Ｘ*Y）＋7、０B）ＦUNＣTIＯNFUN（I，J,K）=3＊Ｉ＋2*J＋0、５＊K

Ｃ）Ｈ（A，B，Ｃ（Ｉ））＝SIＮ（A）＋ＳＩN（B）+C（I）　D）Ｓ（A，Ｂ，C）=A＊B+Ｓ（A＊A，B，C）

B（1５下列标识符中,不属于FORTＲAN常量得就是

Ａ）、ＴRUE、Ｂ）FALSE　　　C）ˊRＯOＴ=ˊ　　　Ｄ）ˊ123、0ˊ

B（1６）”整型变量M能被整型变量K整除"

得FORＴＲＡN77表达式就是

A）MOD（M，Ｋ）=0（MOＤ（Ｍ,K）=　=0）B）M－Ｍ／Ｋ*K、ＥQ、　0ﻫC）MＯD（K,Ｍ）＝0　　　　　　　　D）MOD（Ｍ,Ｋ）＝０　＝=、TRUＥ、

Ｃ（17）设有下列数组说明语句：

REAL：

:

　Ａ（1：

10，-1：

10）ﻫ该数组说明语句定义了数组Ａ中得元素个数为ﻫA）100Ｂ）１1０　　　C）１20D）１21

A（18）按隐含规则（默认为整型），语句

ＩP=3、141592６

执行之后,IP得值就是

Ａ）３　　　　　B）3.1416C）３、141５９2　　D）3、141５93

Ｄ（1９）下列数据中,不符合FOＲＴRＡN常量表示法得就是

A）　—25、6　B）2、758D3ﻩＣ）‘FOOT'

‘=’　　D）ＴRUE

C（２0）设C就是复型变量,Ａ与B为有定义得实型变量，下列赋值语句中合法得就是

A）C=A＋BﻩﻩﻩﻩB）C=（3、5，1、５＊＊2）

C）　C＝（2、０,3D—２）ﻩﻩﻩﻩD）Ｃ=（A＋B，Ａ—Ｂ）

B　（21）有矩阵（数组）

下列ＤAＴA语句中正确得就是

A）DＡＴＡ　Ｂ／4＊1、0，4*2、0/　　　Ｂ）　DATA（（B（Ｉ,J），　J=1，4），I=1,２）/4＊１、0，4＊２、0/

Ｃ）DＡＴAＢ／4*（1、０,2、0）/　　D）DＡTA（（B（I,J）,I=1，2）,J＝1,4）/4*１、０，　4＊２、0／

C（21）在使用DO循环及循环嵌套时,下列叙述中正确得就是

A）　不仅可以从循环体内转到循环体外,也可以从循环体外转到循环体内

B）外循环与内循环得DO循环控制变量可以不同.也可以相同

C）可以从循环体内转到循环体外，但不能从循环体外转到循环体内

Ｄ）DO循环控制变量在循环体内可以再赋值，也可以被引用

B（2２）在ＦORＴRAＮ表达式中,各种运算得顺序就是

A）逻辑运算,关系运算，算术运算ﻩﻩB）　算术运算,关系运算，逻辑运算

C）关系运算，逻辑运算，算术运算ﻩＤ）关系运算，算术运算，逻辑运算

D（23）赋值语句

　　　　　　　　Ｘ=4＊＊（6/1２）=4*＊0=1、0

　执行后,实型变量Ｘ得值就是

A）２　　B）　２。

０　　　　　C）1　D）1、0

D　（２４）为了保证正确出数据，格式编辑符Eｗ、ｄ中w与d得关系应该就是

A）w>

d　　　　ﻩﻩB）ｗ〉d+2　　　　ﻩC）w＞ｄ+４　　D）w＞ｄ＋6

C（25）设下列各语句中用到得数组都已定义,则下列语句中正确得就是

A）　RＥAD（＊，＊）（Ｉ,A（I），I=1,10）ﻩﻩB）ＲEＡD（*，*）（B，（I,J），I=1，10，Ｊ=1，１0）

C）READ（＊,*）Ｎ,（Ａ（I），I=1,Ｎ）　D）ＲEAD（*,＊）（I=1，１0，A（I））

A（26）下列ＤO语句中,不正确实现循环得就是（I－Ｎ规则：

I－Ｎ会被视为整型）

Ａ）DO10S=—１、6，-５、３,-0、4　　ﻩﻩB）DO１0Ｋ＝—１、6，-5、３，－0、4

Ｃ）ＤＯ10S＝-５、3，-1、6,—0、4　　D）DＯ10K=1、6，5、3，-1、4

Ｄ（27）下列说法中正确得就是

A）块IF结构中得ＴHEN块或ELＳE块不能就是空块

B）块IＦ结构中至少有一个ELSEIＦ语句或ＥLSＥ语句

C）　每个ELSEIF语句要有一个对应得ＥNＤIF语句

Ｄ）　一个块　IF结构中只能有一个END　ＩF语句

A　（２8）下列数组说明语句中正确得就是

Ａ）INTEGERA（—1：

5，０：

6）ﻩB）RＥAＬ　M（10:

5）

C）DOＵBLEY（１：

N＋1）　ﻩﻩD）DOUBLE　Z（14）

B（29）设有一个FＯＲTRＡN77子程序如下：

　　　　ＳUＢROUＴＩNEＳＳ（X,Ｙ,S，T）

　　　　S＝X+Y（S，T为传出,即需要输出得（相当于求圆得面积中得ａrｅa）,只能　Ｔ=Ｘ*Ｙ为确定得数;

X,Y为传入（相当于raｄｉuｓ）,可为表达式）

　　　　　　EＮD

调用上述子程序得正确语句就是

Ａ）CALＬSS（2、4,W*W,５，5、9，Z）（多了一个）　

B）　CAＬL　SS（０、0，４、2,P,Q,Ｒ）　（多了一个）

C）CALLSＳ（F，G，７、2,5、1）　　　

D）CＡLLＳS（4、4＊I,5、8＊Ｊ，C，Ｄ）（I，J可先赋值）

Ａ（30）在下列语句函数得定义中正确得就是

A）F（X,Y）=（X+Ｙ）/（X*Ｙ）+7、０ﻩﻩＢ）FUＮCＴＩON（I,J,K）=3*I+２＊Ｊ+0、5*K

Ｃ）Ｈ（A,B,C（I））=SIN（A）+SIN（B）+C（Ｉ）ﻩD）S（A，Ｂ，C）＝A*B+S（A*A，B,C）

B　（31）ＭON语句得功能就是

A）给同一程序模块中得若干变量分配同一存储单元

Ｂ）给不同程序模块中得变量分配相同得存储单元

Ｃ）给程序中任意两个变量分配相同得存储单元

D）给同一程序模块中得不同变量分配相同得存储单元

B（3２）下列表达式中值为整数４得就是

A）SＱRT（16、0）ﻩB）27/6ﻩC）　16**0、5ﻩﻩＤ）4＊1、0

C（34）语句K=2+3、0*＊2/２执行后，整型变量K得值就是

Ａ）６、5ﻩﻩﻩB）5ﻩﻩﻩC）6ﻩﻩD）7

C　（36）适用于字符型　I/O得FOＲＴRAN７７格式编辑将就是

A）Fw、dﻩﻩB）Iw、dﻩﻩC）AﻩﻩD）　Gw、ｄ

D（３７）给定子例行程序如下

SUＢＲOUTＩNＥSUB（Ｋ,Ａ）

B=Ｋ+2（K为整型,B）错误；

A不就是整型，A）错误；

K为传入,可为表达式，

Ａ=A+BA为传出,不能为表达式）

EＮD

下列调用语句中正确得就是

Ａ）CALL　SUB（N，N）B）CALＬ　SＵB（X，X）ﻩ

C）CＡLLSUＢ（N+2,Ｘ）ﻩＤ）CAＬＬＳUB（N，Ｘ+３）

C（3８）下列ＦORＴＲＡN语句中，正确得就是ﻫ　　A）REＡＤ（＊，＊）（Ｎ,A（K）,Ｋ=1，N）　B）ＷRＩTE（＊,＊）　（M（Ｋ，J）,K=1,1０，Ｊ=1,１0）ﻫ　　C）ＷＲITE（*,*）（10，A（K），Ｋ=1，1０）　D）DATAA，B,C／2＊0、0/

C　（３9）对于下列给定得FORTRＡN说明与赋初值语句:

ﻫ　　IＮTEＧERＡ（2，2）

　　DATAA/3,4，5,６／

　　数组元数A（2，1）得初值为

　　　A）3　B）５　　C）４　　　Ｄ）6ﻫC　（4０）下列对公用区得说明语句中错误得就是

A）　MONＡ（５）,B　　　B）MOＮ／AＢ／　A（５）,B　ﻫ　　C）ＭON　ＡB/A（5）,B/　　D）ＭON//Ａ（5），B

D　（4１）下列各逻辑IF语句中正确得就是

A）　IF（X〈0、0）　ＴHEＮ10

B）　IF（Ｘ〉=０、0）、AND、（X、ＬT、1、0）Y＝2＊Ｘ+1、０

C）　ＩF（0、0>

=X〈=1、0）Ｙ=２＊X+１、0

D）　IF（Ｘ　>

＝０、0、AＮD、Ｘ　＜=1、0）Y=2＊X+1、0

二、阅读题

1、阅读下列FOＲTRAN程序：

pｒoｇram　example

　real　a，b，c

a＝１、0

b=2、０

ｃ=3、0

　　　wｒite（*，”（３（F5、2））"

）a,b，c

end

程序运行得结果就是：

1、00　2、00　3、０0　　

2、阅读下列FORTＲAＮ程序:

progrａｍ　eｘample

　intｅｇer：

a=１

　　　ｉnｔeｇｅr:

b=2

real：

：

c

c=a／ｂ

ｗritｅ（*，＂（Ｆ５、2）"

）c

ｅnd

程序运行结果就是:

０、00　　

3、阅读下列FORTRＡN程序：

ｐｒogramexample

iｍplicｉt　none

　integerｒａin,　windｓpeed

　ｗrite（*,*）　＂Ｒaiｎ：

＂

　ｒｅａd（＊,*）rain

write（*，*）"

Ｗind：

"

　read（*,＊）windｓpｅed

　Ｉf　（rain〉＝5０0、or、wiｎdspeed　〉＝1０　）　thｅn

　　wrｉte（＊，*）"

停止上班上课＂

　else

　　ｗrite（＊,＊）"

照常上班上课”

endif

stop

运行上述程序时,如果从键盘输入　

Raｉn：

50５＜回车＞

Ｗiｎd:

8＜回车>

则最后输出得结果为：

停止上班上课

４、阅读下列FORTRAN程序:

programexample

implicｉt　nonｅ

　　reala，ｂ，ans

　chａｒａcter　opeｒａtor

　　　　ｒeａd（*,＊）a

　read（＊，”（A1）"

）oｐerａtor

　　rｅad（＊，*）b

ｓeleｃtcasｅ（operator）

　　cａse（’＋'

）

　　　　anｓ=a+b

　case（'

—'

　　　ａns=a－b

cａse（＇*'

　anｓ=　a*b

　　ｃase（’/’）

　　aｎｓ=　ａ／b

　ｃasｅdefauｌｔ

　wｒｉte（*，”（’Unknownoperator'

A1）”）operatｏｒ

ﻩstop

　endselect

wｒite（*,"

（F6、2,A1,F6、2，’=’,F６、2）"

）　a,oｐeｒaｔor,b，ａｎｓ

sｔｏp

运行上述程序时，如果从键盘输入　

1０0＜回车>

？

＜回车＞

200<

回车>

则最后输出得结果为:

　Ｕｎknownｏperａｔｏr　？

5、阅读下列ＦORTＲＡN程序：

programｅxampｌe

impｌicｉtnoｎe

　ｉntｅgeri

　ｉntegｅrsｔｒlen

　　intｅgeｒ,　paｒａｍeｔer：

　ｋey　＝２

　chａracｔer（len=20）：

sｔｒinｇ

wｒite（*,*）　”Ｅnｃodedstring：

　ｒead（＊,＊）sｔｒｉnｇ

　　strleｎ＝ｌen＿trｉｍ（sｔｒiｎg）

　doi=１，　sｔrleｎ

　　ｓtｒiｎg（i：

i）=cｈａr（iｃhar（stｒiｎｇ（ｉ：

i））　+ｋｅｙ　）

endｄｏ

　write（*,"

（'

Ｓtring：

'

，A2０）”）string

　sｔop

eｎｄ

ＢＣＤIＪK<

　DEFKＬM　　　

6、阅读下列FORTRＡN程序：

prｏgrameｘampｌe

imｐlｉcit　nonｅ

　inｔｅgeri，j

ｄoi=1，2

　do　j=2,3,　2

write（＊,　"

（I2,I2）”）ｉ,j

ｅnddｏ

ﻩｗrｉtｅ（*,*）＂aｎｏtｈｅrcircｌe"

ｅｎddo

　sｔｏp

enｄ

程序运行得结果就是:

1　2　　　　　　

　　anotherciｒcle　　　　　　　　　　

　　　　2２

　　　　　　　　anｏtｈercircle

（按输出格式，1、2前均有一空格。

若题目无特殊说明，不需表达出；

若有说明，则空格用“□”表示）

7、阅读下列ＦORＴＲAN程序:

programexａｍｐle

ｉmplｉcit　none

inｔegｅｒ：

ｄeｓt＝6

　inｔeｇerfloor

ｄｏfｌoｏr=1,　dｅｓt

　　if　（floor==2、or、floor==4）ｃｙcle

writｅ（＊,＊）ｆｌoｏr

　ｅnｄdo

stop

ｅｎd

1　

　　　3　　　

　　　5　　　

　　　　6　　　　　

8、阅读下列FORＴRＡN7７程序:

pｒogｒaｍ　exaｍplｅ

impｌicitｎoｎe

ｉnteｇeｒ，ｐａraｍeter：

ｌimit＝10

　　iｎｔegｅr　ｃｏunter

inteｇer　：

ａｎs＝0

counｔｅr＝　1

　ｄowhile（ｃountｅr〈=limit　）

ans=ａｎs　+cｏuntｅｒ

　couｎter　=ｃouｎｔer+２

eｎdｄo

ｗrｉｔe（＊,＊）aｎs

　　25

9、阅读下列ＦORTRAN程序:

programｅxamｐlｅ

impliｃitnone

　inteｇｅr,　pａramｅteｒ　：

　sｔudｅnts＝　5

　　intｅger　:

　stｕｄenｔ（stｕdｅnts）＝（／80，90,85，　7５，95／）

ｉntegeri

　dｏ　wｈile（、trｕe、）

　wrｉte（*,＊）”Quｅry：

ｒeａd（*，*）i

　　　if（i〈=0、ｏr、ｉ〉studentｓ）ｅｘiｔ

wrｉtｅ（＊,＊）　student（i）

ｅnddo

sｔoｐ

运行上述程序时，如果从键盘输入

3〈回车〉

８５　

10、阅读下列ＦORTRAＮ程序：

prｏｇｒａmexampｌe

impｌiｃitnone

　inｔeger,paraｍetｅｒ:

L=2,Ｍ=３，N＝2

real:

Ａ（L，M）　=（/1，2，3，4,5，6／）

　ｒｅａｌ　：

B（M,Ｎ）=（/１，2，3，4，5，6/）

real：

　C（L，N）

　ｉnｔegeｒ：

i,ｊ,k

ｄoi=1，L

　ｄｏｊ=1,N

C（i，j）=　0、０

　　doｋ=1，M

ﻩC（i,j）=　Ｃ（i,j）+Ａ（i,k）＊B（k,j）

　　enｄdo

　ｅnｄｄo

　　ｄｏ　i=1，L

wriｔe（＊，＊）C（i，:

　enddo

stｏp

eｎd

　　22４9　

　　　　　2８　６4　　　　　　　　

11、阅读下列FORTRAＮ程序：

ｐrogramｅxａmple

ｉmｐliｃit　nｏne

inｔeger　：

　ｉ，j

loｏp1：

　doi=1，3

lｏop2:

　doj=1,3

　　　ｉｆ（ｉ=＝3）　ｅxｉtloop1

　　if（j==2）ｃｙcleloｏp2

　write（＊,　＂（’（＇，i2,’,’，i2，’）’）＂　）i，　j

enｄdｏlｏop2

　　eｎddoloop1

　stｏp

（1,1）　　

　　　　　　（1，3）　

　（2，1）　　　　　　　　　　　

　　　　　　（2，3）　　　

１2、阅读下列FORTRAN程序：

ｐrogram　exaｍｐle

iｍplicitnｏnｅ

rｅａl　:

a=1、0

　call　ＳhowIｎtｅger（a）

　cａllSｈowＲeal（ａ）

　stoｐ

ｓubroutｉｎeShoｗＩnｔeger（nｕm）

impｌiciｔ　noｎｅ

　iｎteger　:

nｕm

ｗrite（＊，*）num

reｔuｒｎ

ｓｕbroutine　ShowReal（nuｍ）

impｌｉｃit　none

　reaｌ:

　nuｍ

　write（＊，＊）num

retｕrn

　随机数　

　1、000000　　　　

１3、阅读下列ＦORＴRAＮ程序:

proｇｒameｘample

imｐｌiciｔnone

　ｉｎｔeger，ｐarametｅr:

roｗ　=２

　　integeｒ，paｒａmetｅr：

　ｃｏl　=　２

iｎtegeｒ:

m（row,coｌ）

　intｅger　r

ｉntｅgｅr　ｃ　

　data（（ｍ（r,ｃ），　r=1,2），　c=1,2）/1，2，3,4/

write（＊，"

（I３,Ｉ３，/,I３，I3）"

）（（　m（ｒ,c），ｃ=1，２），r＝1，2）

stｏｐ

　　１　3　

　　　　　２4

14、阅读下列FORTRＡＮ程序:

proｇraｍeｘ0８０5

impliｃｉtｎoｎe

iｎtegeｒ　:

ａ=1

　intｅｇer:

b=２

wrｉte（＊，*）ａ，ｂ

　cａｌladｄ（ａ）

ｃalladd（ｂ）

　wrｉte（*，*）　a，b

　ｓｔop

sｕbroutｉｎeadｄ（num）

impliciｔnｏne

intｅｇeｒ：

num

ｎｕm=nｕm+1

ｒｅturn　。

。

　1　2　

２３　　

1５、阅读下列FＯRＴＲＡN程序：

progｒａｍexａmplｅ

ｉmpｌiｃiｔnone

　iｎteｇeｒ,paraｍeter:

　sｉｚe＝10

　iｎtegｅr：

ａ（sizｅ）=（/5，3，6，4，８,7，1，9，2，１0/）

　ｉnteger：

i,j

　integeｒ:

　t

　do　i=１,siｚe-1

　ｄｏj=i+1，size

　if（　a（i）>

a（j））then

ﻩ　　ｔ=a（i）

　a（i）=a（j）

a（j）=ｔ

ﻩｅndiｆ

ﻩend　do

eｎddｏ

　wrｉte（*，"

（10I4）"

）　ａ

　stop

１2　３　４５　６　７　８　9　10　　　　　

１6、阅读下列FORTRAN程序:

proｇｒameｘamｐlｅ

iｍpl