學(xué)生會(huì)學(xué)習(xí)部一選擇題用鉛筆把選中方格涂黑40140分

一、(40×1=40分ABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCD

ABCDABABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCD 二、填空題（25×2=50分1M、N的最大公約數(shù)，要求寫主程序。注：變量M、N的值從文件Myfile1.dat中。一、選擇題（40×1=40分 SUB()語(yǔ)句的敘述中，正確的 A、子程序執(zhí)行后，SUB將返回整型數(shù) B、SUB不能作為子程序C、子程序缺少虛 (sin42、Fortran90中表達(dá)式 2axln(23、FORTRAN90源程序必須經(jīng)過(guò)A、匯編B、編 C、解釋D、翻4、下列敘述錯(cuò)誤的是。 B、 6、print‘(A)AAA的意義分別為7CHARACTER(5)::CH（10）的含義是A、CH5B、CH10C、CH510D、CH105 ATYPEB、派生類型成員為字符型時(shí)，其長(zhǎng)度必須確定，不可用9、’HoHai‘HHU’。 C、 （，（ B、 C、 D、語(yǔ)法 A、函數(shù)過(guò)程可有參或無(wú)參，函數(shù)名名方式與變量相同C B、INTENTC、POINTER::a(:)a A、if(x>2)B、if(x>2) C、if(x>2)y=x+2endifD、if(x>2) C、只能是數(shù)組片 A、IMPLICITNONE語(yǔ)句必不可少18、If(L)PrintPrint*設(shè)給邏輯型變量L賦值.TRUE.，則以上代碼執(zhí)行后輸出的結(jié)果 B、 C、.True B、NULIFYC說(shuō)明為B（10，6，4，則數(shù)組片斷B（8：11：2，5，2：3）的結(jié)果是 C、一維數(shù) IF(MOD(J,10)==0) PRINT*,JEND該語(yǔ)句輸出的J的值是 B、 C、 22、INTEGER,DIMENSION(-2:2,1:5)::A，SHAPE(A)的結(jié)果 B、 BSUBROUTINEC24、以下是有格式順序文件的OPEN語(yǔ)句，其中錯(cuò)誤的是 C．OPEN（2，F(xiàn)ILE=‘A.DAT’，F(xiàn)ORM=‘FORMATTED’ A=’YOUR’;B=’BOYS’;C=’GIRLS’ B、YOURBOYSC、YOUR D、YOURBOYS C、邏輯型、復(fù) 27、執(zhí)行read ③必須分三行完成輸 3 B、 C、 28、PRINT*,’a’J=12II=1 1 B、’a’‘a(chǎn)’ ‘a(chǎn)’‘a(chǎn)’C、 INTEGER,TARGET::i,jINTEGER,POINTER::p1,p2,p3 p1=>i A、p1=p2;p2=p3; B、p3=p1;p1=p2;C、p1=>p2;p2=>p3; D、p3=>p1;p1=>p2; B、 32FORTRAN90中一個(gè)INTEGER型數(shù)據(jù)的KIND值是那么該數(shù)據(jù)值的范圍 B、-C、 D、- BAREAD*,(A(K,1:4),K=1,3) B、 C、 D、 A、DO循環(huán)結(jié) B、WHERE結(jié)C、CASE選擇結(jié) D、塊IF選擇判定結(jié) A、REAL,EXTERNAL:: B、REAL,INTRINSIC::C、寫該實(shí)元的接口 D、EXTERNAL::39、以下關(guān)于DOWHILE(expression)……ENDDO循環(huán)結(jié)構(gòu)的敘述中，正確的 A、expressionB、expressionC、expressionD、expression ×2=50分 RECURSIVEFUNCTIONF(n,x)RESULT(r)IMPLICITNONEINTEGER::nREAL::x,rIF(n==1)r=xr=(1+x)*F(n-1,x)ENDFUNCTION!PROGRAMMAINIMPLICITNONEREAL::FPRINT‘(F7.3)’,F(2,0.5),F(3,0.8)ENDPROGRAMMAIN PROGRAMpointerIMPLICITNONE PRINT'(3I4)' c=>a PRINT'(3I4)'ENDPROGRAM3（5）（6）（7）INTEGER,DIMENSION(8)::ARRINTEGER::I,J,SUMAARR=(/((3*J,J=1,3),2*I,I=1,2)/)SUMA=SUM(ARR,MASK=ARR>3)PRINT‘(4I3)’,ARRPRINT‘(I3)’,SUMAENDPROGRAMABC INTEGER::KREAL::SDOK=2,4,2WRITE(*,*)S5、以下程序執(zhí)行后，輸出的內(nèi)容 ，自定義運(yùn)算符.exchange.的功能是 PROGRAMINTERFACEOPERATOR(.exchange.FUNCTIONchange(x)RESULT(y)INTEGER::i,constantCHARACTER(LEN=*),INTENT(in)::xCHARACTER(LEN=50)::yENDFUNCTIONchangeENDINTERFACECHARACTER(LEN=50)::x,yx='2014,nANJINGyOUTHoLYMPICgAMES,successy=.exchange.(x)PRINT*,yENDPROGRAMFUNCTIONchange(x)RESULTINTEGERiconstant32!ASCIICHARACTER(LEN=*)::x,yDOi=1,LEN(x)IF(x(i:i)>=‘A’.AND.x(i:i)<=‘Z’)y(i:i)=CHAR(ICHAR(x(i:i))+constant)ELSEIF(x(i:i)>=‘a(chǎn)’.AND.x(i:i)<=‘z’)y(i:i)=CHAR(ICHAR(x(i:i))-constant)y(i:i)=x(i:i)ENDFUNCTION6（11）（12）PROGRAMMAINIMPLICITNONEINTEGER::I,KDOPRINT*,‘I=’,I,FACT(I)ENDDOINTEGERFUNCTIONFACT(N)INTEGER::N,T,JT=2;J=2T=N**J+TFACT=TENDFUNCTION7、下列程序執(zhí)行后，輸出的第一行是（13），第四行 PROGRAMMAINIMPLICITNONETYPEROWENDTYPEINTEGER::iTYPE(ROW),DIMENSION(1:5)::s,tDOi=1,5ALLOCATE(t(i)%R(1:t(i).R(1:i)=i**2ENDDOsDOt(i).R(1:i)=t(i).R(1:i)+s(i).R(1:i)PRINT*,t(i).R(1:i)ENDENDPROGRAM1、2、3、45，請(qǐng)完善下列程序。PROGRAMIMPLICITNONEREAD*DOWHILE( DO !保證從數(shù)字到低位數(shù)字的輸出順 ENDDOPRINT ENDPROGRAMMODULETYPE_MODULETYPESTUDENTENDTYPEENDMODULEPROGRAMIMPLICIT DOI=PRINT'(1X,A,I1,A)'請(qǐng)輸入第',I,'個(gè)學(xué)生的學(xué)號(hào)和三門課的成績(jī)：'