FORTRAN90模拟测验Word文档下载推荐.docx

1、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 FUNCTIONPR

2、OGRAM 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 SUBROUTINEPROGRAMMAINCHARACTER（3） : S1=BD,S2=BC,S3=ABIF （S1S2） CALL swap（S1,S2）IF （S2S3） CALL swap（S2,S3）PRINT*,S1; PRIN

3、T*,S2; PRINT*,S3END PROGRAMMAIN 执行以上程序后，输出的第一行是 AB ，第二行是BC ，第三行是 BD 。3阅读以下程序：MODULE aaJ=2END MODULE aaSUBROUTINE p（）USE aaDO I=1,3J=J+1PRINT（I3）,JPRINT*DO I=0,2 CALL p（）PRINT*,I 执行以上程序后，输出的第一行是 3 4 5 ，第二行是 6 7 8 ，第三行是 9 10 11 。4 阅读以下程序： A（3,3）,I,J,K,NDO K=1,5 IF（K=N ）THENN!=,nfac （30）STOP M=M+1FORTR

4、AN90模拟试题四（笔试部分）一、 选择题（从4个可选答案中选择一个正确答案添入空白处）1 下面是5个准备用作子程序（辅程序）的形参,四组选择中其形参均正确的是 D 。常数符号名 变量名 数组元素名 形式过程 数组名A B C D2语句OPEN（3，FILE=ABC，ACCESS=DIRECT，RECL=40）打开的是 C 文件。 （教材335）A有格式顺序存取 B无格式顺序存取C有格式直接存取 D无格式直接存取3辅程序引用时，某实参可为常数、函数引用及表达式时，其相应形参是 A 。A变量名 B数组名 C过程名 D*4并非所有的标准函数名均可作为过程形实结合的实参，例如 C 就不能。 （教材2

5、77） AABS BSIN CREAL DLOG5以下程序片段中其值均为9的元素是 D 。 （教材206） INTEGER：N（-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 CBO

6、OT= DTRUE7运行下列程序时输入数据5E2后，其输出结果是 A 。 （教材121）READ（E5.2），XWRITE（*，（1X，F6.2）XA5.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（1X,5I4）,（B（

7、I,J）,J=1,5）,I=1,5）ELSE CALL twoENDIFSUBROUTINE oneUSE AA,C=INTEGER I,IT IT=C（I,X） C（I,X）=C（I,Y） C（I,Y）=ITSUBROUTINE twoUSE AA, X2=X,Y2=Y,D= IT=D（X2,I） D（X2,I）=D（Y2,I） D（Y2,I）=IT6.以下程序运行后，下列变量的输出结果是：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,1

8、00C=C+1; A（I）=C; B（I）=C*CCALL SS（A（10）,C,B（20）,A（10）,F）（1X,C=,I4/1X,F=,F6.1）,C,FSUBROUTINE SS（A,B,C,D,E）INTEGER A（50）,C（50）,B,DREAL EE=B+DA（20）=C（21）=,I4）,A（20）,C（21）7.下列程序运行后的输出结果，第二行为： （15）X=5.0 Z=7.0 。 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（

9、X,P（1）,Z,X）,F4.1,1X,Z=,F4.1）X,ZSUBROUTINE SS（A,B,X,W）REAL A,B,X,Y,WA=A+1B=B+1W=,WX=W+Y8下面程序的功能是统计输入英文句子中每个单词所包含的字母个数。程序中数组ICOUNT用于存放统计结果。假设英文句子由字母、空格和句点组成，单词个数不超过10，每个单词不超过10个字母，单词之间有一个空格，句子以句点（）结尾，句子长度不超过72个字符。 ICOUNT（10）,I,NUMCHARACTER*1 ICHR（72）READ（72A1）,ICHRNUM=1DO （16）I=1,72 IF （ICHR（I）=.） （17

10、）EXIT IF （ICHR（I）/= ） THEN （18） ICOUNT（NUM）=ICOUNT（NUM）+1 （19） NUM=NUM+1 （1X,72A1）,（ICHR（I）,I=1,72）（1X,10I5）,（ICOUNT（I）, （20） I=1,NUM ）9下面程序的功能是计算 的值，直到最后一项的绝对值小于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=

11、A*B Y=Y+T（1X,F5.2,I3,F12.7）,X,N-1,Y10下面程序的功能是输入十个任意四位整数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） CALL inver（A,B） C=A+B（1X,I5,=,I4,+,C,A,BSUBROUTINE inver（M,N）IMPLICIT NONE （24）INTEGER A,B I,JK,M,N,MN A

12、=MDO I=1,4 NN（I）=MOD（A,10） （25） A=A/10 B=0DO J=1,4 K=NN（J）*10*（4-J） B=B+K （26） N=B 11下面的程序建立一个链表，子程序fmax（）的功能是：求出链表所有结点中数据成员值最大的结点的位置，并由参数s返回给主函数。该函数的第一个参数是链表的首指针。 TYPE NODE INTEGER DATA TYPE（NODE）,POINTER:NEXT END TYPE NODECONTAINSSUBROUTINE FMAX（HEAD,S,I） 27 TYPE（NODE）,POINTER;HEAD,S,P INTEGER: I,

13、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; （29）P=P.NEXT SUBROUTINE PRINTL（H）H,PH PRINT*,P.DATAP.NEXTEND MODULE AA （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= P1.NEXT=CALL PRINTL（H）CALL FMAX（H,P,I）DDDIF（ASSOCIATED（P）PRINT*,P.DATA,IFORTRAN90模拟测验五（笔试部分）一.选择题（从4个可选答案中选择一个正确答案添入空白处）1. 一个完整的FORTRAN 90源程序的组成不应该 D 。 （教材59） A. 只有一个主程序没有外部子程