FORTRAN程序设计复习题及答案

1、选择题FO RTRAN程序设计复习题B (1)下列各FCR TRA N表达式中合法得就是A)S +T* 2P = 0、0C ) A 2+B 2/(C+D )< =NOT只跟一个表达式)C (2 )数学式(3/5) e x+y得FO RTRAN表达式就是 A) 3 * E XP(X+Y)/5C) (3 /5)*E XP (X + Y) (3 )下列FORTRN 7 7表达式中A) A。GT.B. EQV.C. GT DC) 、NOT。(X。LE。0、0)(4)下列叙述中 不正确得就是A) FORTRAN子程序可以单独编译 后可生成可执行文件C)即使编译与连接都正确无误，0、 0B)、NOT

2、 (A * D )(A +B)、NOT.B +C)A* B。GT.0、0(、?B) 3 * E* * (X + Y)/ 5、? D ( 3、0/5、0) EXP 不合法得就是?B) A.AND.B . AND C。(X+Y )AND.D? D) A丄T °B°LT. C.L T .D?B)对一个FORT RA N源程序进行编译与连接无误FORTRN程序运行时仍可能出错?D) F O连接得主要任务就是把函数库中得函数翻译成机器指令 为连接目标文件)(正确描述:RTR AN主要任务B(5)在下列FO RTR AN 77运算符中，优先级最高 得就是?A)、ANDB ) 、NOT、

3、C)、O R、D )、EQ、B(6)FORTRAN表达式"6/ 5 +9/ 2 * * 3/ 2"得值为?A)3 3B)1C) 5D)3A(7 )下列 FORTA N7 7表达式中，合法得就是：?A) 0、0、LE、X、AN D、NOTX、GE 10、0B )0、0、 GE、X、LT、 10。0D) 10、0、LC)0、 0、LE、X、OR、E、X、A NDGE、 10、X、GT、 0、提示：A)相当于0、(8 )关于编译一个A)允许编译只有一个主程序而没有子程序得源文件 源文件?C)允许编译只有一个子程序而没有主程序得源文件 个主程序得源文件(9) 在F ORTRAN 7

4、源程序中，续行标志符必须放在A) 第1列B) 第1-6列C) 第6列D) 第5列(10) 下列关于"SUBROTTI NE MAP (X,Y)”语句行得叙述中，不正确得就是 ?A)这 就是子程序得第一个语句 B)字符串"MAP”就是子程序名 ?C)变量X就是子程序得 形参D)子程序执行后,MAP将返回整型数据提示：子程序无返回值，A (1 1) FO RTR AN表达式"A)0 、 5 B) 1 提示：2/ 4默认等于整型，0、D ( 1 2) FORTRA N 表达式"A) 1、3 B) 0.0 A (1 3下列FORTA N运算符中A)逻辑运算符、A

5、N D(、NOT( X、0、LE、X、ANDFO RTFA N源程序文件，下列说法中GE1 0、0 ) 错误得就是?B )允许编译有多个子程序得 ?D) 允许编译有多自定义函数才有2/ 4 +0、5"C) 1、05=0、 0)得值就是D )0MOD(4 9, 1、C)4、9,优先级最低得就是B )算术运算符*3)"得值就是D)1、0>=C)关系运算符>=D)算术运算符+(14下列语句函数得定义中正确得就是?A) F(X,Y ) = ( X+ 丫)/ ( X *丫)+ 7、0F UNC TI O N FUN(I , J,K)=3 *I+ 2*J + 0、5* KC

6、)H (A, B,C ( I) ) = SI N( A) + SI N(B) +C(I )B+S( A* A, B, C)(1 5下列标识符中，不属于FORTR AN常量得就是B )FALSEC)，RO OT =，D) S (A ,B,C =A*D) / 123、(1 6 ) ”整型变量 M能被整型变量 K整除”得FORTRA N77表达式就是A) MO(M, K)=0 (MOD ( M ,K)= =0)B) M-M/K *K、E Q0?C)MO D( K,M) = 0D)MODM , K ) = 0(17)设有下列数组说明语句：REAL : A( 1: 10, -1 : 10)?亥数组说明语

7、句定义了数组A中得元素个数为?A)100 B ) 1 1 0C) 1 20 D )1 21A)、 T RUE=、TRUE、(18)按隐含规则(默认为整型)，语句I P=3、141592 6执行之后，IP得值就是A) 3D 3、 141 5 93B) 3.1416C) 3、141 5 9 2(1 9)下列数据中，不符合A) 25、6B25、6FO RT RA N常量表示法得就是)2、758D3? C) FOOT''='D) T RUE2) =4* 0=1、 05, 1、5* 2)C = (A+ B, A B )(2 0)设C就是复型变量，A与B为有定义得实型变量，下列赋值

8、语句中合法得就是(3、A) C=A+ B ? ?B) C=C) C=( 2、0 ,3D 2) ?B (21)有矩阵(数组)下列D AT A语句中正确得就是A) D ATA B/ 4 * 1、0, 4*2、0/I=1, 2 )/4 *1、0, 4 *C ) DAT A B/ 4* (1、0 ,2、0) /4* 1、0,4 *C (21)在使用DO循环及循环嵌套时A) 不仅可以从循环体内转到循环体外B) 外循环与内循环得 DO循环控制变量可以不同.也可以相同C) 可以从循环体内转到循环体外，但不能从循环体外转到循环体内D) DO循环控制变量在循环体内可以再赋值，也可以被引用B (2 2 )在F O

9、RT RAN表达式中，各种运算得顺序就是A)逻辑运算，关系运算，算术运算C)关系运算，逻辑运算，算术运算2、 0/2、0 /B ) DATA( B(I,J) ,J=1, 4),D) DA TA (B(I,J ) ,1=1 , 2), J= 1,4 ),下列叙述中正确得就是,也可以从循环体外转到循环体内?B)算术运算，关系运算，逻辑运算 D )关系运算，算术运算，逻辑运算(23)赋值语句X =4*( 6/1执行后，实型变量X得值就是2。0A) 2B)D 1、0Ew、d中w与d得关系应该就是?C) w >d + 4D)(2 4)为了保证正确出数据，格式编辑符A) w>d?B) w>

10、; d+2w>d + 6D)R EAD(*, *) (I=1 , 1 0,(25)设下列各语句中用到得数组都已定义A)RE AD (*,* ) (I ,A (I ),10,J =1,1 0)C) READ 严,* )N , (A (I ), I=1, A (I),则下列语句中 正确得就是1=1,10) ?BR EA D(* , *) (B, (l,J) ,1=1 ,(26)下列D O语句中，不正确实现循环得就是 (I N规则:A) DO 10 S= 1、6, - 5、3 ,-0、4?-5、3, 0、4C) DO 10 S = - 5、3, -1、6, 0、46, 5、 3, -1 、 4

11、IN会被视为整型)B) DO0 K = 1、6 ,D) D O 10 K=1、ELSE I F 语句或E LSE语句 每个ELSE IF语句要有一个对应得E ND IF语句 一个块 IF结构中只能有一个 END I F语句(2 8)A)C)下列数组说明语句中正确得就是INTEGER A( 1: 5,0: 6)DOU BLE Y (1: N+ 1)B) R E ALD DOUBLEM (10:5 )Z (14)(29)设有一个 FOR TRA N77子程序如下：S UB ROTI NE SS( X, Y ,S , T)S = X+Y(S , T为传出，即需要输出得(相当于求圆得面积中得a r e

12、 a), 只能T =X* Y 为确定得数；X,Y为传入(相当于ra di u s ),可为表达式)EN D调用上述子程序得正确语句就是A) CAL L SS(2、4,W*W, 5 , 5、9 , Z)(多了一个)B) CAL L SS (0、0, 4、2,P,Q, R)C) CALL S S (F , G 7、2,5、1)D) C A LL S S (4、4* I,5、8 *J , C D)T =X* Y(多了一个)(I , J可先赋值)(27)下列说法中 正确得就是A) 块IF结构中得T HEN块或ELS E块不能就是空块B) 块I F结构中至少有一个C)D)(31 )A)B)C)(30 )

13、在下列语句函数得定义中正确得就是B)FUNCTI ON(I,J,K)=3*I+2*JA) F (X,Y) =(X+ Y) /(X* Y) +7、0 ?+0、 5*KC) H(A,B,C (I ) )=SIN(A ) +SIN ( B) +C( I ) D S (A,B, C)= A*B+S (A*A,B,C)M ON语句得功能就是给同一程序模块中得若干变量分配同一存储单元 给不同程序模块中得变量分配相同得存储单元 给程序中任意两个变量分配相同得存储单元D) 给同一程序模块中得不同变量分配相同得存储单元B (3 2)下列表达式中值为整数4得就是A) S Q RT(16、0) ?3) 27/6C)

14、16*0、5?D) 4 * 1、0(34)语句K=2+3、0* * 2/ 2执行后，整型变量A) 6、5 ?) 5?) 6? ?D)K得值就是7(36 )适用于 字符型 I/O得FO RT RAN7 7格式编辑将就是A) Fw、d? B) Iw、d?C) A?D) Gw d(3 7 )给定子例行程序如下SUER OUT! NE SUB (K , A )B=K +2 (K为整型,B)错误；A不就是整型，A)错误；K为传入,可为表达式， A =A+B A为传出，不能为表达式)EN D下列调用语句中正确得就是A) CALL SUB(N N)B) CAL L SUB (X, X)?C) C A LL

15、SU B( N+2, X) D ) CA LL S UB (N,X +3)C (38)下列F OPTRA N语句中，正确 得就是 ？A) READ 严，*) ( N ,A(K ),K =1，N)B) WR! TE(衣,*)(M(K，J),K=1,10， J =1, 1 0)?C)WR ITE (*,*) (10 ，A(K)，K =1，1 0 ) D ) DATA A，B,C/2 * 0、0/C (3 9)对于下列给定得 FORTA N说明与赋初值语句：？I NTEG ER A( 2，2)DATA A/3,4，5, 6/数组元数A(2， 1 )得初值为A) 3B) 5C) 4得说明语句中 错误得

16、就是A)MONA ( 5) , BB) MON/ AB/ A( 5 ), BA B/A ( 5) , B/ D) M ON/ A( 5)， BON1、(4 1)下列各逻辑IF语句中正确得就是A)B)C)D)、阅读题阅读下列D) 6 ?C (4 0 )下列对公用区C) MIF ( X 0、0)T HEN 10IF (X=0、0)、AND (X、L T、1、0)Y = 2 *X +1、0 ! F(0、0>=X=1、0) Y = 2*IF( X >=0、0、AN DXX+1、 0< =1、0) Y=2 衣 X+1、0FOR TRAN程序:p r 0 g ram examplerea

17、l a, b, ca =1、 0、0b=2=3、0wr ite (*,”(3 (F5、2) ") a,bend3、0 0程序运行得结果就是：2、阅读下列FORR AN程序:Progr am ex ampleint eg er : : a= 1i n t ege r : b=2"(F5、2) ") ce nd程序运行结果就是：3、阅读下列 FORTEL N程序:pr ogram examplei m plic i tin tegerw rite(*,*rea d0、00write(*read(*,I f ( rain wr i te( elsenonera in,

18、wind s peed)"R ai n：( ,*) rain*) " W ind :") wind s=50 0p e edwi n dspeed = 1 0) th e nIIor、, * )"停止上班上课w rite ( , )"照常上班上课”end ifsto pend运行上述程序时，如果从键盘输入Rai n：50 5 V回车Wi n d:8 V回车 则最后输出得结果为：停止上班上课4、阅读下列 FORTRA程序:P rogram exa mpleimp lie i t non ereal achread(,b, ara cter r e

19、 a d(*, ”ansope ra tor) a(A1)”)o p er a torrealc=a /b w rit ee ad( , *) bs ele c t cas e (operator )c a se('+ ')an s = a+bcase(' ')a ns = a bc a se( ' *')an s = a*bc ase (' /')a nsa/bc as e defau Itw rl te(*，”(' Unknown operator ',A1)” )op erat or?5to pend sel

20、ectr ite(*,"(F6、2,A1,F6、2,' =' ,F 6、2)")to pa,o p e r a t or,b , ansend运行上述程序时，如果从键盘输入 1 0 0V回车 ?V回车200回车 则最后输出得结果为Un known o per ato r5、阅读下列F ORTRA N程序：Program e xampl eimp 1 icl nt el t no ger ii ntegint ege r , ch a rac t erw r ite (*,* ) r ead( * strledo i =1,r i nt r lenP a ra

21、m(len=20 )” E n cs trie t er:s troded stri ngk ey = 2 in gIIg(i :end dwriteo(*,"('ngentr lm( strrle=c ha r ( i cn g)har (st r i ng ( l: i)+ key )S tring',A2 0 ) ”)stri ngst ope ndBCD I J K 回车 则最后输出得结果为:DEFKL M6、阅读下列FORTA N程序: pr o gram e x ampl e im p l l in tecit nond o i=1dogeri , j ,

22、2 j=2, 3,write (* ,"(12,12)”) i ,je nd d o? r l t e( *,*)en d doIIa no t he r circ 1 e":1 2s to p en d 程序运行得结果就是ano ther cir clean o t h er circle（按输出格式, 用“”表示 7、阅读下列Fp rogram ex i mpl i cit in t eg e1、2前均有一空格。若题目无特殊说明，不需表达出；若有说明，则空格 ）ORTR AN 程序:mp lenonein t eg er floordo f1 o o r=1,des t

23、if(floor=2、or、write(* , * )f1 oo re n ddosto pen dd e s t = 6r程序运行得结果就是:1floor=4 ) cy cle8、阅读下列p r og r am imp 1 iciti nte g e r, i nt eg inte g er coun te rFORT RA N77 程序： exa m pl epa ra m eter :co un teran s = 01imit = 10d o whilec ount e r = limitans = a+ c o unt ercou n terc ou nt er +e n d d o

24、w r it e( * , * ) a n ssto pend程序运行得结果就是：_259、阅读下列F ORTRAND序：Program e xamp l eimpli c it noneinte ge r,int e geri nteger id o wh ilep a ram e :st ute rd en t(sts t ud e ntsd e nts )=(/ 80 , 90, 85 ,7 5,95 /)wr i te (*,r ea d(* , * ) i if ( i =0wr i t e (衣,*)e、)Que ry :tr Ustude nt> stude nt s )

25、ex i t(i)IIe nd dos t o pend运行上述程序时，如果从键盘输入 3回车则最后输出得结果为：10、阅读下列F ORTRN程序： pr ogra m examp 1 e imp 1 i c it noneeger, paraA( L,a1 :C(L,in treal :reali n t ege r :d o i=1 , Ldo j =1,NC(i , j )=do k =1,? C(i,j )='en d doen d dom et er : : L=2, M = 3, N = 2 M = (/ 1 , 2, 3, 4,5 , 6/)B (M, N) =(/ 1,

26、 2, 3, 4, 5, 6/)N)i, j ,k0、0MC( i,j)+ A( i,k) * B(k,j)dowri tend doi=1 , e( *,* ) C(i ,：)st o pen d程序运行得结果就是:224 911、阅读下列p rogram e i mp li c it in86 4FORTRN 程序：x a mpleno nelot eger o p1:Io op2:ifif ( j=2 ) write (*:i, jdo i=1 , 3 do j=1,3(i = 3cy"(') e x i t loop1cle lo o p2(/ , i2, '

27、 , ' , i2 ,')')") i ,d d o l oen d do loopist o pe nd程序运行得结果就是:enop2(1,1)(1, 3)(2 , 1)(2, 3)1 2、阅读下列FORTRAI程序：p rogrami m plicit nr ea lexa mp leo n e:a=1 、0callc a ll SS howl n t e ger (a) h owR eal( a )sto pends ubrout inimp 1 ici ti n tegerw rite (*re t urne Sho wl n t eger(n u m

28、) n one,*) nume ndsu broutine imp lie it rea 1 : write (*ShowReal(nu m)nonenum* ) numret u rne nd程序运行得结果就是：随机数1、0000001 3、阅读下列F ORT RAN程序：pro gr am e x ample im p1 ici t none int eger, in tege r,i n tege r :int e geri nt e g e rdata ( mwrite (*,p aramet e pa ra met e m (row, coro w = 2 co l =c(r, c)

29、"(I 3,r=1,2),13, /,I3,c=1,2) /113)")(,2, 3,4/m(r ,c ) , c =1, 2 ) , r = 1 , 2)2st opend程序运行得结果就是：14、阅读下列pro g imp lii nra m eFORTEN程序：x 0 8 0intci ttege reg er : b =wr i te( *, *) a,a)c al l ad d( c all add (b) wr i te(* , *)st op ends u brout in e add (num)imp lici tn o integ e rnenumm+1e

30、 turn end程序运行得结果就是15、阅读下列FO RTRA N程序:am ex a mpl ei c i t noneprog ri mpli nte g e r , teg e i nteger in tege do i=doif,sij=i+1(para m eter :a( siz:i,jtz e-1,sizea (i ) > a ':s iz e = 10e ) = (/ 5，3, 6，4,8 ,7 , 1 , 9, 2,1 0 /)(j) ) then? e nd i?3nd doe n d dt =a(i)a (i) =a (j ) a (j)= tfwr i

31、te(* , "(1014)"sto pend程序运行得结果就是：1 23456789101 6、阅读下列FORTRAI程序：pro gr am e x amp li m plicitrealnonea= 1r eal:b= 2r eal ,wr i te(e xter* *'n al : : addadd(a,b )s t ope n df unct i o na dd(a,b )imp li ci t nrea 1a ,br ea 1 :a ddadd =re t urne nd程序运行得结果就是：3、00 0 000（类似得题目，写3、0亦可，但不可写 3）1

32、7、阅读下列FORR AN 程序:prog ra m ex impi i cit noint e ger :m pl emon a,a=1b=2ca 1 lwriteShown) n ()* ) a, bs u brou t ineS howm on ()imp 1 icit noneint e ger : m o n num1 ,w rite ( *,* )n um1,num 2um2num1,nu m 2r e turne nd程序运行得结果就是:1 8、阅读下列FO RTRA程序:module g1 ob a limp licit re a l a,n onemo na,end modu

33、leprog r am euse g1xampob allei m plic ia = 1、0t n onb = 2、0c al1 s ub ()en d ps ubruse gr o g ra mou t ine sub()1 obal,bimp licit no ne wr it e( *r e turn end subrou t in e程序运行得结果就是：19、阅读下列F ORTRAND序:IN TEGER A( 3,D O L = 1 ,3A(K, L)EN D DO1、 0 000002、0000 0 03) ?DO K =1,3=K* 10+L'(1X,3 I 3) &#

34、39; ) AEND DOW RI TE( * ,END程序运行得结果就是1 1 21 311 2223 21 3 233 32 0、阅读下列 FORTR AN程序：？I NTE® R F ?F (X,Y) =X +Y ?A =-2、5B=4、0 ?B=1、0+F(A ,B) ?WR ITE (*, 20) B 20? FO RMAT( 1X, F4、1)E ND ?程序运行得结果就是：2、0阅读下列 FCR TR AN程序：21、X=0DO L =10,5,15X= X+1、0ENDDOEND ?程序运行时执行循环体得次数就是：22、阅读下列 FOTR AN77 程序：？DI ME

35、NSIGN M (4 ,4 )DAT A M/1,2,3,4 , 5 ,6,7 , 8,9,0,1, 2 ,3,4,5 ,6/ ?DO I = 1,4(M (I,J ),J =1, I )?E ND?END ?程序运行得结果就是：2 6WR ITE ( * , 10 0) 0 0 F ORMAT (1 X,4 I2 )2 3、阅读下列FOR TRAN程序：CHARAT ER (LE N=10)C H AR ACT ER (LE N =6 )D O I=1,10A (1:1)=''END DO ?A (1: 5)='A BCD E/?B ='FGH I J K'A (4 :9) =B ?WRITE(* , 100) A 100 F O RMA T (1 X, A) ?END程序运行结果就是：A BCFGHIJ K阅读下列F ORTRA N程序：X= 0、0丫=2、024、C AL L S U B(X, Y,Z,3、0)WRITE(*， (1X , 3F5、1)' ) X, Y ,