下载文档原格式
FORTRAN90试题_3_计算机基础部分单项选择题（每题1分，共⼗分）（⼀）微型机的性能指标主要取决于 1 。
1．A) 内存 B) 中央处理器 C) 硬盘 D) 显⽰卡（⼆）与⼗进制数35等值的⼆进制数为 2 。
2．A) 100011 B) 110001 C) 11101 D) 101011 （三）硬盘⼯作时，应尤其注意防⽌ 3 。
3．A) 空⽓潮湿 B) 空⽓中的尘埃 C) 光线直射 D) 强烈震动（四）下列选项中， 4 不属于系统软件。
4．A) C 语⾔编译程序B)Windows C) Unix D)Office （五）计算机联⽹的主要⽬的是 5 。
5．A) 数度快 B) 资源共享 C) 精度⾼ D) 容量⼤（六）下列⽹络的IP 地址中， 6 正确的是。
6．A) 202.245.101.201 B) 204.256.9.101 C) 202.155.98.C D) 249.220.258.202（七）在多媒体计算机系统中，不能⽤于存储多媒体信息的是 7 。
7．A) 光缆 B)光盘 C) 硬盘 D) 磁带（⼋）计算机病毒不能通过 8 传播。
8．A) 硬盘 B) 优盘 C) D 打印机 D) ⽹络（九）在Windows 98中，将⼀个应⽤程序窗⼝最⼩化后，该应⽤程序 9 。
9．A) 任在后台运⾏ B) 暂时停⽌运⾏ C) 完全停⽌运⾏ D) 从任务栏退出（⼗）在Windows 环境下，若要将当前窗⼝存⼊剪贴板，则可以按 10 。
10．A) Ctrl + Print Screen B) Alt + Print Screen C) Shift + Print Screen D) Print ScreenFORTRAN90语⾔⼀、语⾔基础单项选择(每题2分，共20分)(⼀) 下⾯程序段中，错误的语句是 1 。
1. A) REAL,PARAMETER :: S = 1.73B) REAL :: X = 3 C) S = S + XD) PRINT *, S, X(⼆) ⼀个梯形的上底长为A,下底长为B,⾼为H,正确计算这个梯形⾯积的FORTRAN90表达式为 2 。
1．下列叙述中，正确的是(D )A．语句标号的大小影响程度执行的顺序B．程序完全按语句出现的先后顺序执行C．不同程序单位不能有相同的语句标号D．同一程序单位不能有相同的语句标号2．下列标识符中，不能作为合法的FORTRAN90标识符的是( C)A．A3_B3 B．VOID C．_123 D．IF3．下列哪一个为正确的常量( D )A．123,000 B. 3.5E+2.5 C. TRUE D. “HELLO”4．若A=2，B=2，I=3，则表达式A**B**I的值为( C )A. 64B.12C.256 D16.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/46．下列运算符中，运算优先级最高的是(B )A. 关系运算B. 算术运算C. 逻辑非运算D. 逻辑与运算7．下列FORTRAN的表达式中值为0.5的是( C)A．MOD(4.8，0.5) B．100/20/10 C．50.0/4/25 D．MOD（15，10）/108．下列是完整的FORTRAN程序，编译时出错的语句是( C )A．PROGRAM PRINT B．PARAMETER (PI=3.1415926)C．PI=PI+1 D．WRITE(*，*)SIN(PI+0.5)END9．变量的类型定义中，优先级由高到低的顺序为( 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．011．下列逻辑表达式描述的是(不会) 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)THEN GOTO 10 B．IF M．LT．N PRINT*，M C．IF(ABS(X)．LT．1E-6) A=1 D．IF(A．AND．(A．LE．0．0) A=313．下列语句中正确的是( C )A．DATA A，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+114. 如果J是整型变量，则循环语句：DO J=5.5，-1.5，-2.5 所执行的循环次数是(C)A．4 B．3 C．2 D．115．如有语言：INTEGER B (-1:-2,3:7),则数组B 中所含的元素个数为( 无答案) A．0 B.10 C.12 D.2116. 关于FORTRAN90 的CASE结构，SELECT CASE（表达式）中的表达式的数据类型不允许为( A)A. 实型B. 字符型C. 实型D. 逻辑性17．下面符号在FORTRAN90 中表示续行符的是( B)A．! B. & C. # D. %18. 下列程序段中，错误的语句是( D)A．PARAMETER(N=10)B. INTEGER:: M=20C.M=M+ND.PRINT(*, *)M, N19.A. FUNCTIONB. SUBROUTINEC. BLOCK DA TAD. SUB20.下列语句中，错误的语句是( D)。
FORTRAN90笔试试卷（二○○八年四月）一、选择题1、关于FORTRAN90的CASE结构，SELECT CASE（表达式）中的表达式的数据类型不允许为（1）。
CA、整型B、字符型C、实型D、逻辑型2、DO循环控制的一般形式为：variable=e1,e2,e3，则下列计算循环次数的公式正确的是（2）。
BA、MIN((e2-e1+e3)/e3,0)B、MAX((e2-e1+e3)/e3,0)C、(e2-e1+e3)/e3D、(e3-e1+e2)/e33、FORTRAN90中函数MOD(m,n)的定义为：m-INT(m/n)*n，则MOD(-13,-5)的值为（3）。
DA、2B、-2C、3D、-34、设有数组定义COMPLEX(4)::C(3,4:7,-1:2)，则SIZEOF(C)的值为（4）。
A、384B、192C、216D、108A5、设有结构体定义：TYPE studentINTEGER noCHARACTER name*8,sex*1INTEGER ageENDTYPE student以下定义结构体变量并初始化正确的是（5）。
BA、TYPE(student)::st1=(990101,"Smith","M",20)B、TYPE(student)::st1=student(990101,"Smith","M",20)C、TYPE(student)，st1=student(990101,"Smith","M",20)D、TYPE(student)，st1=(990101,"Smith","M",20)6、设有下列变量和指针的定义：INTEGER,TARGET::i,jINTEGER,POINTER::p1,p2,p3i=15;j=25p1=>i;p2=>j能够正确实现两个变量交换的语句是（6）。
一、选择题1、下列关于"ＳUＢRＯUTＩNE MAＰ(X，Ｙ)＂语句行的叙述中，不正确的是（)A) 这是子程序的第一个语句 B) 字符串"MＡＰ"是子程序名C）变量X是子程序的形参 D) 子程序执行后，MAP将返回整型数据２、 FORTRAN表达式"２/４+0.5＂的值是( )A) 0.5 Ｂ) 1 C） 1.０Ｄ) 03、阅读下列FORTＲＡN程序:PI=3.1４15926５WＲＩTE(*,'(F7.４）')PI ﻫEＮD程序运行后输出结果是（ ) ﻫA) ３.142 B）３.1４15 C) 0.3１４16 D) ３．14164、圆的直径存放在整型变量K之中,下列计算圆面积的表达式中正确的是( )Ａ) 3.14１5９２６＊K*K/4 B） 3.１415926＊(K＊K／4)Ｃ) 3.１4１592６*(Ｋ/2)＊*2 D） 3.14１5９26*(Ｋ／２）*(K／2)５、要判断"月收入M在２０00元以上(含2０00元)且5００0元以下)不含５000元)"的职工,应该使用的逻辑表达式是( ) ﻫＡ) M .ＧE. 2０00 .AND. M .LE. 5000 B）M ．GE. ２０００．ＯR． M .LE. ５000C）Ｍ .ＧＥ. 2000 .AND．Ｍ．LT．５0０0 D) M .GE. 2000 .OＲ. M .LＴ. 50006、设FORTRAＮ子程序如下:SUBＲOUTIＮE SUB(I，X)B=Ｉ+１X=Ｘ+B ﻫEND ﻫ若主程序中的变量M,B已按I-N规则赋值,则调用上述子程序的语句中正确的是( ）A) CAＬL ＳＵB(M,M） B) CALL SUB(M＋4,B) ﻫC） CALL SUB（Ｂ,B) D) CALＬ SＵB(M,B+4)7、下列不是FORTＲAN常量的是（) ﻫA）(3.0,4.0) B) 3.１416Ｄ+00 Ｃ) 2／3 D) 'Very good!'8、阅读下列FOＲＴＲAN程序:F=1．0 ﻫDO 20 K＝3, ７， 3ＤＯ 20 L=K-1, Ｋ20 WＲTTE(*,'(I３, Ｆ8．1)'Ｋ，F＊KEＮＤﻫ程序运行结果的最后一行是( ）ﻫA) 3 6．0 Ｂ) 6 6.0 C) 6 180.０Ｄ) 7 180.09、在ＦOＲTRＡN中，下列运算符的优先顺序是( ）ﻫA) 逻辑运算,关系运算,算术运算B) 关系运算，逻辑运算,算术运算C）算术运算，关系运算,逻辑运算 D) 关系运算,算术运算，逻辑运算10、使用ＦORTRAN内部函数时，所给的自变量（ )A) 只能是常量 B) 只能是变量C) 只能是常量或者变量 D) 可以是常量、变量或者表达式11、设X＝2.0，Y=8.0, Z=6.0，Ｌ＝.TRUE.,则下列ＦOＲTRAN表达式中值为.TRUＥ.的是( ) ﻫA） X＋Z.GT.Y.ANＤ．L Ｂ) .NOT.（Y.LT.Z+X).NEQV..NOT．LC）．NOT.L.OR.(Ｌ.EQV．Y＋Ｘ.ＥQ.Z) Ｄ) Y＋X.GＥ．Z＋Ｘ．AＮD．(Ｌ.AＮD.．FALSE．)１2、下列输出语句行中正确的是( )Ａ) ＷRＩTＥ（＊，*)(Ａ(Ｋ,L),K=１，３,Ｌ＝１，３)Ｂ) WＲITE(*，*)A(Ｋ，L）,K＝1,3，Ｌ=1，3C) WRITE(*,*）((A(Ｋ,L)，K=1,3), L=1，3) ﻫD) WＲＩTE(*,*)(A(K,L），K=1,３),Ｌ＝１，31３、给定下列FORTRAN子程序如下：ﻫSＵＢROUTＩNE ＳUB(K，A) ﻫA＝SQRT(K*K+1．0) ﻫEND ﻫ下列调用语句中正确的是( )A) CALL SUＢ(N,N) B) CALL SＵB（Ｘ,Ｘ) ﻫC) CＡLL SUB(N，X*Ｘ) D) CALL SUＢ(11,Ｘ)１4、阅读下列FORTRAN程序:INTEGEＲ AA(2，3）DATA AA／1,２，3,4,5,６／CALL Ｓ２Ｄ１9（AＡ) ﻫCALL S2Ｄ1９(AA(1,2））ENDSUＢROUTINＥ S２D1９(ＢB)INＴEGEＲＢＢ(2,2)WRITE(*,'(1Ｘ，2I3)') BB（1,1）,BB(2,2) ﻫEND程序运行结果是( ) ﻫA) 1 4 B) 1 ５ C) １ 4 D) １ 23 6 2 6 2 ５ 3 4１5、阅读下列FORＴRAN程序:ＩNＴEGER A(３,3)。
fortran考试题及答案分开1. 以下哪个选项是Fortran语言中正确的整型变量声明？A. INTEGER xB. REAL xC. COMPLEX xD. LOGICAL x答案：A2. Fortran程序中，哪个关键字用于定义数组？A. ARRAYB. LISTC. VECTORD. DIMENSION答案：D3. 在Fortran中，以下哪个选项是正确的条件语句？A. IF (x > 0) THENPRINT *, 'x is positive'B. IF x > 0 THENPRINT *, 'x is positive'C. IF (x > 0)PRINT *, 'x is positive'D. IF x > 0PRINT *, 'x is positive'答案：A4. Fortran中用于循环结构的关键字是什么？A. LOOPB. ITERATEC. DOD. FOR答案：C5. 如何在Fortran程序中包含另一个文件？A. 使用INCLUDE语句B. 使用IMPORT语句C. 使用INCLUDE关键字D. 使用IMPORT关键字答案：A6. Fortran中，哪个函数用于计算数组元素的总和？A. SUMB. TOTALC. AGGREGATED. ACCUMULATE答案：A7. 在Fortran中，如何声明一个具有默认值的变量？A. INTEGER :: x = 0B. INTEGER x = 0C. INTEGER x DEFAULT 0D. INTEGER x = DEFAULT 0答案：A8. Fortran程序中的主程序必须以哪个关键字开始？A. PROGRAMB. MAINC. PROCEDURED. FUNCTION答案：A9. 在Fortran中，如何声明一个二维数组？A. INTEGER :: matrix(10, 10)B. INTEGER :: matrix[10][10]C. INTEGER :: matrix(10)(10)D. INTEGER :: matrix(10,10)答案：A10. Fortran中用于计算数组元素平均值的函数是什么？A. AVGB. MEANC. AVERAGED. SUM答案：C。
FORTRAN90语言部分一、 语言基础单项选择(每题2分，共20分)(一)下面的函数计算中，错误的是 1 。
A) SQRT(9) B) REAL(9) C) ABS(9) D) MOD(9,2)(二)运行下面的程序时(P,W,X,Y 都是实型变量)， READ(*,10) P,W,X,Y WRITE(*,20)X,Y10 FORMAT(1X,F3.1,3(1X,F4.2)) 20 FORMAT(1X,F4.1,3(1X,F5.2)) END如果从键盘输入数据：12345678901234567890，则输出结果为 2 。
A) 1.23 56.78 B) 12.3 67.89 C) 12.3 45.67 D) 34.5 67.89(三)数学式a acb x 24sin 22-+的FORTRAN 表达式为 3 。
A) SIN(X**2)+SQRT(B*B-4*A*C)/2/A B) SIN(X)**2+ SQRT(B*B-4*A*C)/2/AC) (SIN(X**2)+SQRT(B*B-4*A*C))/(2*A) D) (SIN(X)**2+SQRT(B*B-4*A*C))/(2*A)(四)表示条件“A 加B 大于C 并且C 大于等于D ”的FORTRAN90逻辑表达式是 4 。
A) A+B>C >=D B) (A+B)>C >=DC) A+B>C.AND. C>=DD) (A+B)>C.OR. C>=D(五)通过下面的赋值，字符变量LINE 的值是 5 。
表示空格。
CHARACTER(LEN=4)::LINE LINE=’10’A) 10 B) 1000 C) ‘10’ D) ’10 ’(六)下面对二维数组的说明语句中，正确的语句是 6 。
A) 显式形状数组的说明：REAL,DIMENSION(10,:) ::AB) 动态数组的说明方式：REAL,DIMENSION(:,:), ALLOCATE ::A C) 假定形状数组的说明：REAL,DIMENSION(10,:) ::A D) 指针数组的说明：POINTER,DIMENSION(1:3,2:4) ::A (七)下面的模块中，错误的语句是 7 。
大学FORTRAN语言试题一、选择题（15×1分=15分）1．Fortran程序设计语言允许使用的专用字符集是。
A．（），．；［］＋－＊／＝：空格B．（），．αβ＋－＊／＝：空格C．（），．＋－＊／＄＇＝：空格D．｛｝，．；？＋－＊／＝：空格２．按隐含规则确定变量的数据类型，Fortran表达式（A112/BC1+15.123456789.0_8）-（1000.0_4/3.0+ABI*ABJ）的值的数据类型为。
A．复型B．整型C．实型（种别为8）D．实型（种别为4）3．执行循环语句DO I=0.5，4.5，1.5，正常退出循环后，循环执行的次数和循环变量I的值分别为。
A．4和4.5 B．5和5 C．4和6 D．5和64．语句A（M（I））=MOD（I，7）是。
A．函数定义语句B．赋值语句C．非法语句D．说明语句5．下列不合法的是：_____A．A<B<C<D B．.NOT.(X<0) C．A>B.EQV.C>D D．A.AND.B.AND.C6．若数组说明符ARRAY（-5：5，-10：0）的元素个数为。
A．144 B．121 C．110 D．1007．设循环初值、终值和增量分别为M1，M2和M3，循环次数的计算公式是。
A．INT（（M2-M1）/M3）B．INT（（M2-M1）/M3）+1C．MAX(INT(M2-M1+M3)/M3,0) D．MIN(INT(M2-M1+M3)/M3,0)8．下列字符表达式中正确的是。
A．’ABCD’+’MN’’D’B．’ABCD’//’MN’’D’C．CHAR（65）+’N’//’CH’D．’123 45’-’5’9．语句integer,dimension(1:-1)::a,下列说法中正确的是：_____A．a数组的元素个数为0 B．a数组的元素个数为3C．a数组的元素个数为1 D．该说明语句是错误的10．子程序的虚元可以是：A．变量名、数组名、过程名B．变量名、数组名、过程名和符号常量名C．变量名、数组名、数组片段、过程名D．任意符号名11．c为复型量，下列正确的是：A．c=(1/2,1/5) B．c=sqrt((0.1,4.5)) C．c=1.0+4i D．c=(x,y)12．数学式的FORTRAN表达式是（）A．2/3*SIN（3.14/4）B．2SIN（3.14/4）/3C．2.0*SIN( /4.0)/3.0 D．2*SIN（3.14/4）/313．执行下列赋值语句后，变量X的值为（）X=4+36**(7/14)A．10.0 B．5.0 C．10 D．514．下列不合法的是：A．A<B<C<D B．.NOT.(X<0) C．A>B.EQV.C>D D．A.AND.B.AND.C15．执行下列程序时由键盘输入13579.2468，输出结果为：READ’(2(F4.1,2X))’,A，BPRINT’(2(F4.1,2X))’,A，BA．135.7 246.8 B．13.5 24.6 C．**** **** D．*** ****二、填空题（15×1分=15分）1．FORTRAN90自由格式的程序续行标记为______字符，一般写在_____位置；自由格式的程序注释标记为____字符。
《高级语言程序设计 (FORTRAN)》考试样题一、选择题(每小题 2 分,共 40 分)1. 下列标识符中不能作为 FORTRAN 的合法变量名的是_____D_____。
A) A_1 B) A1 C) A1A D) A+12. 在 FORTRAN 的变量类型说明语句中没有 BA) REAL 语句B)CHAR 语句C)INTEGER 语句 D)LOGICAL 语句3．FORTRAN90 源程序的扩展名是 C 。
A. TXTB. FC. F90D. FOR4.下列关于符号常量的说法正确的是___C____。
A.符号常量的定义应该放在所有语句之前B.符号常量不可以是字符型常量C.在一个程序单位中定义一个符号常量后，不能再改变它的值D.符号常量定义语句与赋值语句一样，是可执行语句5、在下列写法中， __D______不是 FORTRAN 常量。
A. .TRUE.B.1E-2C. (0.0,2.4)D.1,000,0006．表达式 15／4／2.0 的值是 B 。
A．整数 2 B．实数 1．5 C．实数 2．25 D．实数 1. 37. 下列不是 FORTRAN 赋值语句的是 _____D______。
A) X=.TRUE. B) X=X*X C) X=X**2**2 D) X=X++8. 梯形的上底为 A,下底为 B,高为 H,计算其面积的 FORTRAN 表达式中错误的是____A____。
A)1/2*(AB)*H B)(A+B)*H/2 C)(A+B)/2*H D)0.5*(A+B)*H9. 要选拔身高 T>1.7 米且体重W<62.5 公斤的人,FORTRAN 的逻辑表达式是__C_____。
A)T.ce.1.7.AND.w.le.62.5 B)T.le.1.7.OR.w.ge.62.5C)T.gt.1.7. AND.w.lt.62.5 D)T.gt.1.7.OR.w.lt.62.510．FORTRAN 90 规定，变量类型声明的优先顺序是 C 。
FORTRAN90笔试试卷(二○一○年四月)一、选择题1、关于FORTRAN90中的标识符 (如变量名、过程名)，以下说法中错误的是 (1) 。
DA、标识符只能由英文字母、数字、下划线组成B、标识符第一个字符必须是英文字母C、标识符长度不能超过31个字符D、标识符不能用FORTRAN90的关键字2、关于FORTRAN90中的程序单元，以下说法错误的是 (2) 。
DA、FORTRAN90 规定有 4 种程序单元B、一个 FORTYAN90 程序可由多个程序单元组成，其中至少包含一个主程序单元C、主程序单元是 FORTRAN90 程序运行的入口点D、一个程序的多个程序单元必须统一编译，生成可执行程序3、关于FORTRAN90中的主程序单元，以下说法正确的是 (3) 。
AA、一个主程序单元可以只含一个 END 语句B、一个主程序单元必须由 PROGRAM 语句开始C、PROGRAM 语句可以在主程序单元中多次出现D、主程序单元中可以包含其他外部子程序单元4、设有说明：CHARACTER(LEN=20)：：string="This is a computer."BCHARACTER(LEN=15)：：subs执行语句：subs=string(:4)//string(5:5)//string(11:)后，变量subs的值是 (4) 。
A、This isB、This computerC、is aD、a computer5、说明整型数组array并给其赋初值的正确语句是 (5) 。
CA、INTEGER array(3)=(/2， 4， 6/)B、DIMENSION::array(3)=(/2， 4， 6/)C、INTEGER,DIMENSION(3)::array=(/2， 4， 6/)D、INTEGER,DIMENSION(3)::array(3)=(/2， 4， 6/)6、关于FORTRAN90中的EXTERNAL语句，以下说法正确的是 (6) 。
一、判断题（共20分，每题1分，√表示对，×表示错）1．FORTRAN源程序的一条语句无法在一行内写下时，在行末用续行标志“！”，表示下一行是当前行的继续。
2．语句X=X+1的含义是将内存中名为X+1的存储单元的值赋给变量X。
3．如果程序单元中有说明语句PARAMETER（A=2.1），则不允许在该程序单元中改变A的值。
4．主程序和子程序可以储存到不同的文件中。
5．即使编译和连接都正确无误，FORTRAN程序运行时仍可能出错。
6．在数据块子程序中，可以调用另一个数据块子程序。
7．设有如下输入语句READ '(1X, F5.2)' , X若由键盘输入：12.3456789，则变量Y的值为12.34。
8．如果有以下程序段CHARACTER::A=’FORTRAN’则A内存储的实际值是’F’。
9．M=2000，为了在屏幕上输出□□***2000*** （其中□表示空格）。
则应使用的语句为：WRITE(*,100)M100 FORMAT(2X,’***’,I4,’***’)10．模块可用USE引用，也可用CALL调用。
11．语句函数定义语句在程序内的位置是：在程序块开头语句之后，END语句之前。
12．若有以下程序段：INTEGER,POINTER ::P1, P2INTEGER,TARGET::I=20, J=30P1=>I; P2=>J; P1=>P2; P2=>P1运行程序，I、J的值都为20。
13．COMMON语句的功能是给不同程序模块中的若干变量分配同一存储单元。
14．设C是复型变量，A、B是实型变量。
把A 的值赋给C的实部，把B的值赋给C的虚部的赋值语句是C=CMPLX(A,B)。
15．顺序存储结构的存储一定是连续的，链式存储结构的存储空间不一定是连续的。
16．A2B的FORTRAN表达式为A**2*B。
17．程序中说明了变量a具有POINTER属性，若a=>b，则b应具有PARAMETER属性。
一、判断题（共20分，每题1分，√表示对，×表示错）1．FORTRAN源程序的一条语句无法在一行内写下时，在行末用续行标志“！”，表示下一行是当前行的继续。
2．语句X=X+1的含义是将内存中名为X+1的存储单元的值赋给变量X。
3．如果程序单元中有说明语句PARAMETER（A=2.1），则不允许在该程序单元中改变A的值。
4．主程序和子程序可以储存到不同的文件中。
5．即使编译和连接都正确无误，FORTRAN程序运行时仍可能出错。
6．在数据块子程序中，可以调用另一个数据块子程序。
7．设有如下输入语句READ '(1X, F5.2)' , X若由键盘输入：12.3456789，则变量Y的值为12.34。
8．如果有以下程序段CHARACTER::A=’FORTRAN’则A内存储的实际值是’F’。
9．M=2000，为了在屏幕上输出□□***2000*** （其中□表示空格）。
则应使用的语句为：WRITE(*,100)M100 FORMAT(2X,’***’,I4,’***’)10．模块可用USE引用，也可用CALL调用。
11．语句函数定义语句在程序内的位置是：在程序块开头语句之后，END语句之前。
12．若有以下程序段：INTEGER,POINTER ::P1, P2INTEGER,TARGET::I=20, J=30P1=>I; P2=>J; P1=>P2; P2=>P1运行程序，I、J的值都为20。
13．COMMON语句的功能是给不同程序模块中的若干变量分配同一存储单元。
14．设C是复型变量，A、B是实型变量。
把A 的值赋给C的实部，把B的值赋给C的虚部的赋值语句是C=CMPLX(A,B)。
15．顺序存储结构的存储一定是连续的，链式存储结构的存储空间不一定是连续的。
16．A2B的FORTRAN表达式为A**2*B。
17．程序中说明了变量a具有POINTER属性，若a=>b，则b应具有PARAMETER属性。
18．若程序中用语句INTEGER A(3,4)定义了数组，则A数组的第9个元素是A(3,3)。
19．打开一个已存在A盘中的有格式的顺序文件，其文件名是STU.DAT，应使用语句OPEN(3, FILE='STU.DAT', ACCESS='DIRECT') 。
20．在FORTRAN中，语句DIMENSION A(10)中的A(10)是数组元素，语句A(10)=2.5中的A(10)是数组说明符。
二、单项选择题（共20分，每题1分）1．下列FORTRAN 90源程序的变量名之中，不符合规则的是（）。
A．SU B．SU3 C．SU-3 D．S332．在下列写法中，不是FORTRAN常量。
A. .TRUE.B.1E-2C. (0.0,2.4)D.1,000,0003．c 为复型量，下列正确的是：A ．c=(1/2,1/5)B ．c=SQRT((0.1,4.5))C ．c=1.0+4iD ．c=(x,y)4．下列哪个是正确的表达式，其中A 、B 、C 、D 均为实型。
（A ）MOD(A/B ，2 ) （B ）MIN(A ，MAX(C ，D ，B))（C ）COMPLEX(A*B ，22.3) （D ）SIGN(INT(A)，SIN(INT(B)))5．执行下列程序段后，J 和Y1的值分别为：IMPLICIT REAL(I, L)IMPLICIT INTEGER(X-Z)K=3.3; Y1=2.5; I=5.6J=K+I; Y1=J+Y1（A ）8.9 11.1 （B ）8 10.5 （C ）8 10 （D ）8.9 116．rewind （）语句的作用是 。
A ．重新打开文件 B. 使文件位置指针重新回到文件的开始C. 使文件位置指针重新回到文件的末 D . 返回文件长度值7．下列字符表达式中正确的是 。
A ．’ABCD’+’MN’’D’B ．’ABCD’//’MN’+’D’C ．CHAR(65)//’N’//’CH’D ．’123 45’-’5’8．有下面的说明语句：INTEGER,DIMENSION(8:50)::A下面对于数组某些元素引用的形式中是不正确的是A . A(1:30:3)B . A(8::5)C . A(:23:5)D . A9．下列程序从键盘输入两个数和一个运算符，作相应的运算，select case 语句后面选择一个正确的答案：CHARACTER OP READ*,X,Y ,OP SELECT CASE （ ） CASE ("+") Z=X+Y CASE ("-") Z=X+Y CASE ("*")Z=X+YCASE ("/")Z=X+YEND SELECTPRINT*, Z*ZENDA. XB. YC. OPD. ”OP”10．数学式4sin 32π的FORTRAN 表达式是（ ） A ．2/3*SIN （3.14/4） B ．2SIN （3.14/4）/3C ．2.0*SIN(π/4.0)/3.0D ．2*SIN （3.14/4）/311．执行下列赋值语句后，变量X 的值为（ ）X=4+36**(7/14)A ．10.0B ．5.0C ．10D ．512．执行下列程序时由键盘输入13579.2468，输出结果为：READ '(2(F4.1,2X))',A,BPRINT '(2(F4.1,2X))',A,BA ．135.7 246.8B ．13.5 24.6C ．**** ****D ．*** ****13．设有数学函数⎪⎩⎪⎨⎧≤<<-++-≤=xx x x x x e y x1ln 11112则能正确表示以上函数关系的程序段是：A ．Y=EXP(X)B ．Y=LOG(X)IF(X>-1.0.OR.X<1.0) Y=X*X+X+1 IF(X>-1.0.OR.X<1.0) Y=X*X+X+1 IF(X>=1.0) Y=LOG(X) IF(X<=-1.0) Y=EXP(X)C ．Y=X*X+X+1D ．IF(X<=-1.0) Y=EXP(X)IF(X>=1.0) Y=LOG(X) IF(X>-1.0.AND.X<1.0) Y=X*X+X+1 IF(X<=-1.0) Y=EXP(X) Y= LOG(X)14．在调用子程序时，以下说法正确的是（ ）A ．子程序调用后必须带回返回值B ．实参和形参可以同名C ．子程序间的数据传递不可以使用公用区D ．主调函数和被调函数总是在同一个文件里15．设有以下子程序：SUBROUTINE SS(X,Y ,S,T)S=X+YT=X*YEND调用上述子程序的正确语句是：A. CALL SS(2.4, 5.9, W*2.4 , Z)B. CALL SS(0.0, 4.2, P, Q, R)C. CALL SS(F, G, 7.2)D. CALL SS(4.4*I, 5.8*J, C, D)16．下述程序段的输出是（ ）PRINT 100,((10*I+J,J=1,3),I=1,4)100 FORMAT(1X,4I4)A. 11 12 13 21 22 23 31 32 33 41 42 43C. 11 12 13 2122 23 31 3233 41 42 4317．CASE 结构中情况表达式的类型有一定的限制，它不能是（ ）。
A ．实型、复型、双精度型B ．字符型、逻辑型C ．整型、逻辑型D ．整型、字符型18．关于FORTRAN 90的派生类型，以下四种说法中，错误的是（ ）。
A ．派生类型定义从“TYPE 派生类型名”开始到“END TYPE ”结束B ．派生类型名不得和系统内定类型同名，在同一程序单位内也不得重复定义C ．派生类型的分量(或称成员)不能是派生类型名，即派生类型不允许嵌套定义D ．引用派生类型变量的成员可用“%”号或“.”，例如abc%a 或abc.a 均可19．已知C 盘“f90”文件夹下的文件“STU.DAT ”已与设备号“2”建立关联，访问方式为直接存取，文件为无格式文件，欲访问文件中第一个记录，则下面读写语句中正确的是(其中，NUM 是整型变量，NAME 是长度为10的字符型变量)：A. READ(2,'(I4,A10)')NUM,NAMEB. READ(2,'(I4,A10)',REC=1)NUM,NAMEC. READ(2，*，REC=1)NUM,NAMED. READ(2,REC=1)NUM,NAME20．若有B. 11 12 13 1421 22 23 2431 32 33 34D. 11 22 33 44 12 23 34 45 13 24 35 46LOGICAL MA=2.5; B=7.5; C=5.0; D=6.0; M=.FALSE.逻辑表达式C/2.0+ A < D.OR..NOT.M.AND. C==D的值为（）。
A. .TRUE.B. .FALSE.C. 1D. 0三、阅读程序（20分，每空2分）。
1．INTEGER A(50)DO I=1,50READ(*,*) A(I)END DOWRITE(*,200) A200 FORMA T(1X,10I8)END在执行上述程序时，数组A的数据需要（1）行输入，输出时会产生（2）行记录。
2. INTEGER FN_2,FN_1,FNDATA FN_2,FN_1 /0,1/DO N=3,6FN = FN_2+FN_1FN_2=FN_1FN_1=FNEND DOWRITE(*, *) 'FN=',FN,',N=',NEND执行上述程序，输出为：FN= （3）,N= （4）。
3．INTEGER A(6)A=(/1,2,3,4,5,6/)CALL S(A(2))PRINT *,'A(1)=',A(1),';A(4)=',A(4)ENDSUBROUTINE S(B)INTEGER,DIMENSION(2,2)::BB=B+1END执行上述程序，输出为：A(1)=（5）;A(4)=（6）。
4．下面程序段执行后，M的值为：INTEGER X,Y,SUY=SU(X,Y)PRINT *,'Y=', YZ=SU(X,Y)PRINT *,'Z=', ZENDFUNCTION SU(X,Y)INTEGER X, Y,SU, II=1; X=3*I; Y=2*ISU=X+YEND执行上述程序，输出为：Y= （7）Z= （8）5．下面程序的运行结果是：MODULE A1COMPLEX X, YEND MODULESUBROUTINE COMP(A,B)USE A1COMPLEX A, BA=X+YB=X-YEND SUBROUTINEPROGRAM MAINUSE A1X=(3.0, 4.0)Y=(4.0,3.0)CALL COMP(X, Y)PRINT *,'X=', X, ' Y=',YEND执行上述程序，输出为：X= （9）Y= （10）四、完善程序（20分，每空2分）1.下列程序的功能是求2到500之间所有的亲密数对。
