FORTRAN程序设计复习题及答案.docx
《FORTRAN程序设计复习题及答案.docx》由会员分享，可在线阅读，更多相关《FORTRAN程序设计复习题及答案.docx（24页珍藏版）》请在冰豆网上搜索。
FORTRAN程序设计复习题及答案
FＯRTRＡＮ程序设计复习题
一、选择题
B
（1）下列各FOＲTＲＡN表达式中合法得就是
Ａ）Ｓ+Ｔ＊2P 〉=0、０ B）、NOT、（A＊Ｂ+C）
Ｃ）Ａ2＋Ｂ2/（C+D）＜＝０、0 D）（Ａ+B）、NOＴ．A＊B。
GＴ．０、0（、NOT、只跟一个表达式）
C
（2）数学式（3/5）ｅx+y得ＦＯRTRAN表达式就是
Ａ）３*ＥXP（X+Y）/5 ﻩﻩﻩB）3＊E* ＊（X＋Y）/５、0
C）（３/5）*EＸＰ（X＋Y）ﻩﻩﻩD） （３、0/5、0）ＥＸＰ（X＋Ｙ）
D （3）下列FORTRAＮ７7表达式中不合法得就是
A）A。
GT.B．EQV.C．GT。
Ｄ ﻩﻩB）A.AND.B．AND。
Ｃ。
AND.D
C）、NOＴ。
（X。
LE。
0、0） ﻩﻩ D）A.LT。
Ｂ。
ＬＴ．C.LＴ.D
D（４）下列叙述中不正确得就是
A）FORTRAN子程序可以单独编译ﻫB）对一个FORＴRＡN源程序进行编译与连接无误后可生成可执行文件
Ｃ）即使编译与连接都正确无误，FORTRAＮ程序运行时仍可能出错ﻫD）FＯRTＲAN连接得主要任务就是把函数库中得函数翻译成机器指令 （正确描述：
主要任务为连接目标文件）
Ｂ（5）在下列ＦＯRＴＲAＮ77运算符中,优先级最高得就是ﻫA）、AND、B）、ＮＯＴ、 C） 、ＯR、 Ｄ）、EＱ、
B（6）FORTRAN表达式＂6/５+9/２*＊3/２＂得值为ﻫA） ３３B）1C）5 D） 3
A （7）下列FORTRＡN7７ 表达式中，合法得就是：
ﻫA）0、０、ＬE、X、AＮD、、NOT、X、GE、10、0 B） 0、０、GＥ、X、LT、10。
0
C） 0、0、ＬE、X、ＧＥ、1０、 D）10、0、LＥ、X、OＲ、、ＡND、X、GＴ、0、0
提示：
A）相当于0、0、LE、X、AND、（、NOT、（X、GE、1０、０））
D （8）关于编译一个FＯRTRＡN源程序文件，下列说法中错误得就是
A）允许编译只有一个主程序而没有子程序得源文件ﻫＢ）允许编译有多个子程序得源文件ﻫC）允许编译只有一个子程序而没有主程序得源文件 ﻫＤ）允许编译有多个主程序得源文件
C（9）在ＦORTRAN７7源程序中,续行标志符必须放在
A）第1列Ｂ）第1－6列C）第6列Ｄ）第5列
D （10）下列关于＂SUBROＵＴＩNEＭAＰ（Ｘ，Ｙ）”语句行得叙述中,不正确得就是ﻫA）这就是子程序得第一个语句 B）字符串"MAＰ”就是子程序名ﻫC）变量X就是子程序得形参D） 子程序执行后,MAP将返回整型数据
提示：
子程序无返回值， 自定义函数才有）
A（1１）FＯRTＲAN表达式＂２／4＋０、５＂得值就是
Ａ）0、5 Ｂ）1 C）1、0D）０
提示：
2/４默认等于整型，0、5=》０、0
D（1２）FORTＲＡN表达式＂MOD（4、9，1、3）"得值就是
A）1、3 Ｂ）0.0 C）4、９D）1、0
A（1３下列FORTRＡN运算符中,优先级最低得就是
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
end
运行上述程序时,如果从键盘输入
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
end
运行上述程序时，如果从键盘输入
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
stop
end
程序运行得结果就是:
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ｐ
end
运行上述程序时，如果从键盘输入
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
ｅｎddo
ｅ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
ｅnd
程序运行得结果就是：
（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ｐ
end
ｓubroutｉｎeShoｗＩnｔeger（nｕm）
impｌiciｔ noｎｅ
iｎteger :
：
nｕm
ｗrite（＊，*）num
reｔuｒｎ
ｅnd
ｓｕbroutine ShowReal（nuｍ）
impｌｉｃit none
reaｌ:
:
nuｍ
write（＊，＊）num
retｕrn
ｅnd
程序运行得结果就是:
随机数
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ｏｐ
end
程序运行得结果就是:
１ 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
end
sｕbroutｉｎeadｄ（num）
impliciｔnｏne
intｅｇeｒ：
：
num
ｎｕm=nｕm+1
ｒｅturn 。
。
end
程序运行得结果就是:
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
end
程序运行得结果就是：
１2 ３ ４５ ６ ７ ８ 9 10
１6、阅读下列FORTRAN程序:
proｇｒameｘamｐlｅ
iｍpl
升级会员 