FORTRAN90模拟测验.doc

FORTRAN90模拟测验三（笔试部分） 一、选择题（从4个可选答案中选择一个正确答案添入空白处） 1.下列字符串中可用作FORTRAN90变量名的是 A 。 （教材78） AABC B. A-BCD C. 2ABC D. AB.C2.下列数据中不符合FORTRAN90常数表示的为 D 。 （教材70） A. 21.50 B. +0.0D0 C. .TRUE. D. $10003.执行WRITE(8,(1X,2I4)(I,I=1,3)后生成 B 个记录。 （教材146） A. 1 B. 2 C. 3 D. 124.数学表达式的FORTRAN表达式为 B 。 （教材103） A. SQRT(X)*3)*LOG(X*2+Y*2)/X B. SQRT(X*3)*LOG(X*2+Y*2)/X) C. (SQRT(X)*3*LN(X*2+Y*2)/X) D. SQRT(X*3)*LN(X*2)+Y*2)/X)5.表达式：B+SQRT(B*B-4.0*A*C).LE.3E-5值的类型是 A 。 （教材84） A. 逻辑型 B. 整型 C. 实型 D. 字符型6.下面格式输入语句 （教材119） READ(*,(3F3.1)X 如果输入 1234.567 则X的值为 B 。 A. 123.0 B. 12.3 C. 1234. D. 1234.5677.FORTRAN90语言中变量名长度为 C 个字符。 （教材58） A. 1-8 B. 8 C. 1-31 D. 318.按隐含约定，设X=2.5,Y=1.0,Z=3.0 （教材93） 执行赋值语句I=X+Y/Z后I的值为 B 。 A. 2.0 B. 2 C. 3 D. 3.09.下列语句中那个语句是错误的是 C 。 （教材98） A. READ(*,*)X B. READ*,X C. PRINT(*,*)X D. PRINT *,X10.说明语句REAL A(1:2,-1:10)说明数组A的元素个数为 D 。 （教材200） A. 11 B. 12 C. 22 D. 2411.M能被N整除的FORTRAN表达式为 D 。 （教材88） A. (M/M)=0 B. (M MOD N).EQ.0 C. (M/N).EQ.0 D. MOD(M,N).EQ.012以下关于接口块的说法中，不正确的是 C 。 （教材365） A通知编译程序主调程序调用过程时所需要的接口信息。 B. 可用于重载赋值 C. 接口块中可以包含可执行语句 D.可用于自定义运算符13以下关于FORTRAN90中有关哑元(形参)、实元(实参)说法中，不正确的是 A 。（教材265） A实元和哑元个数一定要相等 B实元和哑元个数可以不相等C哑元可以用可调数组 D哑元可以用假定形状数组14下列关键字中不能用于说明变量属性的是 C 。 （教材182） ASAVE BOPTIONAL CCYCLE DINTENT15以下关于派生类型的说法中，不正确的是 C 。 （教材294）A 派生类型说明中，不能有任何可执行语句 B 可将一个派生类型变量的值整体赋给另一个派生类型变量C 派生类型成员为字符型时，长度可以不确定 D 派生类型成员可以是自身同类型的指针 二、填空题（在空白处添入正确内容）1阅读以下程序： FUNCTION fac(A) RESULT(rfac)INTEGER A,rfacINTEGER,SAVE:C=3B=1C=C+1rfac=A+B+CEND FUNCTION PROGRAM mainINTEGER:A=3,J,facDO J=0,2PRINT*,fac(J)ENDDOEND PROGRAM main 执行以上程序后，输出的第一行是 5 ，第三行是 9 。 2. 阅读以下程序：SUBROUTINE swap(S1,S2)CHARACTER(*) S1,S2CHARACTER(3)TT=S1;S1=S2;S2=TEND SUBROUTINE PROGRAMMAINCHARACTER(3) : S1=BD,S2=BC,S3=ABIF (S1S2) CALL swap(S1,S2)IF (S2S3) CALL swap(S2,S3)IF (S1S2) CALL swap(S1,S2)PRINT*,S1; PRINT*,S2; PRINT*,S3END PROGRAMMAIN 执行以上程序后，输出的第一行是 AB ，第二行是BC ，第三行是 BD 。3阅读以下程序：MODULE aaINTEGER:J=2END MODULE aa SUBROUTINE p()USE aaDO I=1,3J=J+1PRINT(I3),JENDDOPRINT*END SUBROUTINE PROGRAMMAINUSE aaDO I=0,2 CALL p()ENDDOPRINT*,IEND PROGRAMMAIN 执行以上程序后，输出的第一行是 3 4 5 ，第二行是 6 7 8 ，第三行是 9 10 11 。4 阅读以下程序：PROGRAMMAININTEGER: A(3,3),I,J,K,NDO K=1,5 IF(K=N )THEN PRINT*,N!=,nfac (30)STOP ENDIF M=M+1 ENDDO ENDFORTRAN90模拟试题四（笔试部分）一、 选择题（从4个可选答案中选择一个正确答案添入空白处）1 下面是5个准备用作子程序(辅程序)的形参,四组选择中其形参均正确的是 D 。(教材265)常数符号名 变量名 数组元素名 形式过程 数组名A B C D2语句OPEN（3，FILE=ABC，ACCESS=DIRECT，RECL=40）打开的是 C 文件。 (教材335)A有格式顺序存取 B无格式顺序存取C有格式直接存取 D无格式直接存取3辅程序引用时，某实参可为常数、函数引用及表达式时，其相应形参是 A 。(教材265)A变量名 B数组名 C过程名 D*4并非所有的标准函数名均可作为过程形实结合的实参，例如 C 就不能。 (教材277) AABS BSIN CREAL DLOG5以下程序片段中其值均为9的元素是 D 。 (教材206) INTEGER：N（-1：1，-1：1，-1：1） N=RESHAPE(/1,2,3,4,5,6,7,8,9,10,11,12,13,14,13,12,11,10,9,8,7,6,5,4,3,2,1/),(/3,3,3/)AN(1，1，-1)与N（-1，-1，0） BN（1，1，0）与N（-1，-1，0）CN（1，1，1）与N（1，-1，-1） DN（1，1，-1）与N（-1，-1，1）6下列数据中，不符合FORTRAN90常量表示的是 D 。 (教材77)A-25.6 B3.2344D0 CBOOT= DTRUE7运行下列程序时输入数据5E2后，其输出结果是 A 。 (教材121)READ（E5.2），XWRITE（*，（1X，F6.2）XENDA5.00 B500.00 C0.05 D*圆心在原点的两个同心圆,半径分别为2和4。描述点(X,Y)在小圆外，大圆内(包括在两圆周上)的表达式是 C 。 (教材89)AABS（X）=2.0 B2.0=SQRT(X*X+Y*Y)=4.0CX*X+Y*Y=4.0 D（X .OR. Y）=2.0 .AND.(X .OR. Y)ALOGICAL LINTEGER I,JREAD*,X,Y,LIF (L) THEN CALL one PRINT(1X,5I4),(B(I,J),J=1,5),I=1,5)ELSE CALL two PRINT(1X,5I4),(B(I,J),J=1,5),I=1,5)ENDIFENDSUBROUTINE oneUSE AA,C=AINTEGER I,ITDO I=1,5 IT=C(I,X) C(I,X)=C(I,Y) C(I,Y)=ITENDDOENDSUBROUTINE twoUSE AA, X2=X,Y2=Y,D=AINTEGER I,ITDO I=1,5 IT=D(X2,I) D(X2,I)=D(Y2,I) D(Y2,I)=ITENDDOEND6.以下程序运行后，下列变量的输出结果是：C= (11) 101 ，F= (12) 112.0 ，A(20)= 30 (13) ，C(21)= (14)。1681INTEGER A(100),B(100),C,IREAL FC=1DO I=1,100C=C+1; A(I)=C; B(I)=C*CENDDOCALL SS(A(10),C,B(20),A(10),F)PRINT(1X,C=,I4/1X,F=,F6.1),C,FENDSUBROUTINE SS(A,B,C,D,E)INTEGER A(50),C(50),B,DREAL EE=B+DPRINT(1X,A(20)=,I4/1X,C(21)=,I4),A(20),C(21)END7.下列程序运行后的输出结果，第二行为： (15)X=5.0 Z=7.0 。REAL: P(5)=(/2.0,3.0,5.0,1.0,3.0/),X,Y,ZINTEGER K,L,M,NN(K,L,M)=K+L/MX=1.0+REAL(N(2,3,2)Y=2.0CALL SS(X,P(1),Z,X)WRITE(*,(1X,X=,F4.1,1X,Z=,F4.1)X,ZENDSUBROUTINE SS(A,B,X,W)REAL A,B,X,Y,WA=A+1B=B+1Y=2.0PRINT(1X,W=,F4.1),WX=W+YEND8下面程序的功能是统计输入英文句子中每个单词所包含的字母个数。程序中数组ICOUNT用于存放统计结果。假设英文句子由字母、空格和句点组成，单词个数不超过10，每个单词不超过10个字母，单词之间有一个空格，句子以句点（）结尾，句子长度不超过72个字符。INTEGER: ICOUNT(10),I,NUMCHARACTER*1 ICHR(72)READ(72A1),ICHRNUM=1DO （16）I=1,72 IF (ICHR(I)=.) （17）EXIT IF (ICHR(I)/= ) THEN （18） ICOUNT(NUM)=ICOUNT(NUM)+1 ELSE （19） NUM=NUM+1 ENDIFENDDOPRINT(1X,72A1),(ICHR(I),I=1,72)PRINT(1X,10I5),(ICOUNT(I), （20） I=1,NUM )END9下面程序的功能是计算 的值，直到最后一项的绝对值小于1.0E-5为止。REAL X,Y,A,B,TINTEGER NREAD*,XT= （21） X B=1.0Y=TN=2DO WHILE( （22） ABS(T)1.0E-5 ) A=X*(2*N-1)/(2*N-1) B= （23） B*(2*N-3)/(2*N-2) T=A*B Y=Y+T N=N+1ENDDOPRINT(1X,F5.2,I3,F12.7),X,N-1,YEND 10下面程序的功能是输入十个任意四位整数A，用来检验inver子程序的可靠性。其中CALL inver(A，B)应能将A中四位数倒过来成为B（如A=1966，可得B=6691）。最后计算并输出由具体数字构成的算式C=A+B。INTEGER A,B,C,IDO I=1,10 READ*,A DO WHILE(A9999) READ*,A ENDDO CALL inver(A,B) C=A+B PRINT(1X,I5,=,I4,+,I4),C,A,BENDDOEND SUBROUTINE inver(M,N)IMPLICIT NONE （24）INTEGER A,B I,JK,M,N,MN A=MDO I=1,4 NN(I)=MOD(A,10) （25） A=A/10 ENDDOB=0DO J=1,4 K=NN(J)*10*(4-J) B=B+KENDDO （26） N=B END11下面的程序建立一个链表，子程序fmax()的功能是：求出链表所有结点中数据成员值最大的结点的位置，并由参数s返回给主函数。该函数的第一个参数是链表的首指针。MODULE AA TYPE NODE INTEGER DATA TYPE(NODE),POINTER:NEXT END TYPE NODECONTAINS SUBROUTINE FMAX(HEAD,S,I) 27 TYPE(NODE),POINTER;HEAD,S,P INTEGER: I,J=0 P=HEAD;S=P IF(.NOT.(ASSOCIATED(P)RETURN DO WHILE(ASSOCIATED(P) J=J+1 IF( P.DATAS.DATA （28) )THEN I=J;S=P ENDIF （29）P=P.NEXT ENDDOEND SUBROUTINE SUBROUTINE PRINTL(H) TYPE(NODE),POINTER:H,P P=H DO WHILE(ASSOCIATED(P) PRINT*,P.DATA P=P.NEXT ENDDOEND SUBROUTINEEND MODULE AA PROGRAMMAIN （30）USE AA TYPE(NODE),POINTER:H,P,P1INTEGER A,INULLIFY(P)PRINT*,INPUT DATAREAD*,ADO WHILE(A/=-1) ALLOCATE(P) P.DATA=A IF(.NOT.(ASSOCIATED(H)THEN H=P;P1=P ELSE P1.NEXT=P;P1=P ENDIF PRINT*,INPUT DATA READ*,AENDDONULLIFY(P)CALL PRINTL(H)CALL FMAX(H,P,I)PRINT*,DDDIF(ASSOCIATED(P)PRINT*,P.DATA,IENDFORTRAN90模拟测验五（笔试部分）一.选择题（从4个可选答案中选择一个正确答案添入空白处）1. 一个完整的FORTRAN 90源程序的组成不应该 D 。 (教材59) A. 只有一个主程序没有外部子程序 B. 只有一个主程序和若干子程序 C. 只有一个主程序和一个子程序 D. 只有外部子程序而没有主程序2. 下列关于FORTRAN 90源程序编辑规则的叙述之中,正确的是 A 。 (教材62) A. 任何以符号“!”开头的内容均是注释行。 B. 主程序第一行必须是PROGRAM语句。 C. 要实现有格式输入输出，必须有FORMAT语句。D. 每个子程序中必须有一个RETURN语句。3. 下列关于FORTRAN 90源程序编辑规则的叙述之中,正确的是 B 。 (教材61) A. IMPLICIT语句可以放在REAL语句行之后。B. DATA语句可以放在说明语句位置。 C. 注释行不可以放在END语句行之后。 D. FORMAT语句可以放在PROGRAM语句行之前。4. 阅读下列程序 (教材179) F=1.0 DO J=3,7,2 DO K=J-1,J F =F*K ENDDO ENDDO WRITE(*,(I3,F8.1) J,F END 程序运行结果是 C 。 A. 3 6.0 B. 5 120.0 C. 9 5040.0 D. 9362880.05. 阅读下列程序 (教材265) A=3.5 CALL suna(A,A,A) WRITE(*,(F4.1) A CONTAINS SUBROUTINE suba(X,Y,Z) Y=Y-2.0; Z=Z+X END SUBROUTINE END 程序运行的结果是 C 。A. 7.0 B. 5.0 C. 3.0 D. 1.56. 阅读下列程序 (教材125) CHARACTER A*4,B*5,C*4 DATA A,B,C/BIG,MIDDLE,SMALL/ WRITE(*,20) A,B,C 20 FORMAT(1X,A2,A3,A4) END 程序运行结果是 D 。A. BIGMIDDLE B. * C. BIGMIDSMA D. BIMIDSMAL7. 阅读下列程序 (教材248) FUN(c,d)=a*c+b/d DATA a,b/1.0,-1.0/ WRITE(*,(F4.1)FUN(a,b)-FUN(b,a) END 程序运行结果是 B 。 A. 0.0 B. 4.0 C. 2.O D. 3.O8. 阅读下列程序 (教材119) READ(*,500)R,W WRITE(*,500)R,W 500 FORMAT(F5.2,F5.3) END 程序运行时输入初始值01234567899,结果显示的是 A 。 A. 12.34* B. 12.3456.789 C. * D. 123.4567.8999. 阅读下列程序 (教材216) DIMENSION M(3,3) DATA M/1,2,3,4,5,6,7,8,9/ WRITE(*,100) (M(3,J),J=1,3) 100 FORMAT(3I2) END 程序运行结果是 B 。A. 2 5 8 B. 3 6 9 C. 4 5 6 D. 7 8 910. 阅读下列程序 (教材265) DIMENSION S(3) DATA S/1.0,2.0,3.0/ WRITE(*,*) LA(3,S) CONTAINS FUNCTION LA(N,X) DIMENSION X(N) LA=0 L=2 DO I=1,N LA=LA+X(I)/L ENDDO END FUNCTION END 程序运行结果是 D 。 A. 1.0000000 B. 2.0000000 C. 1 D. 211. 阅读下列程序 (教材185) DIMENSION N(2) DO I=1,2 N(I)=0 ENDDO K=2 DO I=1,K DO J=1,K N(J)=N(I)+1 ENDDO ENDDO WRITE(*,100),N 100 FORMAT(I3,I3) END 程序运行结果是 B 。 A. 2 3 B. 3 3 C. 2 2 D. 3 212. 阅读下列程序 (教材137) INTEGER A(3,3) DATA A/9,8,7,6,5,4,3,2,1/ WRITE(*,10)(A(M,N),N=1,M),M=1,3) 10 FORMAT(I2/,2I2/,3I2) END 程序运行结果是 C 。 A.9 6 3 B.9 8 7 C.9 D.9 5 2 5 4 8 5 6 5 1 1 7 4 1 3 2 1 CHARACTER*4 A,B,C*5 DATA A,B,C/YOUR,BOYS,GIRLS/ WRITE(*,(1X,A4,A5,A6,A1)A,B,C,! END 程序运行结果是 B 。 A. YOURBOYSGIRLS! B. YOUR凵BOYS凵GIRLS! C. YOUR凵BOYSGIRLS! D. YOURBOYS凵GIRLS!14. 对用作实元的外部过程名，在调用程序单位必须用 A 加以说明。 (教材285) A. EXTERNAL语句 B. INTRINSIC语句 C. FUNCTION语句 D. SUBROUTINE 语句15. 在程序中有输出语句WRITE（1，REC=5）A，B，C 那么逻辑设备号1所连接的文件类型是 A 。A. 有格式顺序文件 B. 无格式顺序文件 C. 有格式直接文件 D. 无格式直接文件二.填空题（在空白处添入正确内容）1. 阅读下列程序.其功能是求出方程2X3-3X2+4X-11=0在区间(1,5)中的一个实数根,运行结果是显示根值和对分次数.使用的是二分算法. 请在其中_处填入适当的内容. FUN(X)=2.0*X*3-3.0*X*2+4.0*X-11.0 DATA XL,XR,N/1.O,5.0,0/ DO _ (1)_ N=N+1 _ X=(XL+XR)/2.0 _ (2) FX=FUN(X) _ IF (ABS(FX) =1000)THEN WRITE(*,(A2,F12.7,A5,I4) X=,X,N=,N EXIT ELSE IF(FUN( _ (3)XR )*FX=0.0)THEN XR=X ELSE XL=X ENDIF ENDIF ENDDO END2. 阅读下列程序，其功能是当X=3.1时计算Y=1+1.1X+1.2X2+1.3X3+1.4X4+1.5X5的值，主程序调用了函数子程序。请在其中_处填入适当的内容. PROGRAM PVALUE INTERFACE FUNCTION POLY(B,M,V)RESULT(P_result) DIMENSION B(M) INTEGER : M END FUNCTION END INTERFACE _(4) REAL A(6) _ DATA A/1.0,1.1,1.2,1.3,1.4,1.5/,N,X/6,3.1/ _ (5) Y=POLY(A,N,X) _ WRITE(*,(A5,6F5.1)a(k)=,A WRITE(*,(A2,F5.1,A6,F8.2)X=,X,; Y=,Y END FUNCTION POLY(B,M,V)RESULT(P_result) DIMENSION B(M) INTEGER : M REAL : V P_result=B(1) FV=1.0 DO K=2,M FV=FV*V _ (6) _P-result_= P_result+B(K)*FV ENDDO END FUNCTION3. 函数子程序dtoh能够将一个十进制正整数DEC转换为一个表示十六进制数的字符串,其长度不超过8.例如127转换为7F。 算法:将dec除16取余,将所得的商再除16取余,如此反复,直到商和零为止,最后按照逆序输出所得各余数。 请在其中_处填入适当的内容. MODULE Change INTEGER : decade CHARACTER(LEN=8) :HEX CONTAINS FUNCTION dtoh(dec) RESULT(D_result) CHARACTER*8 D_result,dtoh INTEGER : dec,R,pos pos=9 dtoh= DO WHILE ( (7)dec/=0 ) _ (8) pos=pos-1 _ IF(pos=1)THEN R=MOD(dec,16) IF(R10)THEN _ (9) D-result(pos:pos) _=CHAR(ICHAR(0)+R ) ELSE D_result(pos:pos)=CHAR(ICHAR(A)+R-10) ENDIF ELSE D_result=* EXIT ENDIF dec=dec/16 ENDDO END FUNCTION END MODULE Change PROGRAM dechex _ (10) USE change _ CHARACTER*8 hex1 READ(*,*) decade _ (11) hexl=dtoh(decade) _ WRITE(*,*) hex1 END PROGRAM dechex4. 阅读下列程序.其功能是使用筛法选出N以内的所有素数并显示。 算法:在N以内的自然数列中先筛除2的倍数;在2之后筛乘下的第一个数是3,于是再筛除3的倍数;在3之后筛剩下的第一个数是5,于是再筛除5的倍数;如此重复下去,直到遇见筛剩下的第一个数是最接近N的平方根的那个数为止。 请在其中_处填入适当的内容