Fortran90試題

Fortran90試題

ID:40528546

大?。?7.50 KB

頁數:4頁

時間:2019-08-04

Fortran90試題_第1頁
Fortran90試題_第2頁
Fortran90試題_第3頁
Fortran90試題_第4頁
資源描述:

《Fortran90試題》由會員上傳分享,免費在線閱讀,更多相關內容在教育資源-天天文庫。

1、Fortran復習題目類型:1、選擇題2、填空題3、簡答題4、編程題樣題一、選擇題1.下列名稱中,符合FORTRAN90命名規(guī)則的是 。A.a-b-c  B.$123 C.length_1 D.date.year2.關于FORTRAN90程序單元,以下四種說法中正確的是 。A.一個FORTRAN90程序由多個程序單元組成,其中有一個且只能有一個主程序單元B.一個FORTRAN90程序由多個程序單元組成,其中有一個且只能有一個模塊單元C.一個FORTRAN90程序允許有多個程序單元,但每類程序單元只能有一個D.

2、一個FORTRAN90程序允許有多個程序單元,但主程序單元和模塊單元只能有一個3.關于FORTRAN90的CASE結構,以下說法中正確的是 。A.CASE結構內必須取DEFAULT作為情況選擇器的最終值B.CASE結構的情況表達式不能是字符類型C.CASE結構的情況表達式和情況選擇器的取值類型必須相同D.CASE結構的不同情況選擇器取值可以重復4.已知數組說明REALA(20:22,0:9,-3:-1),數組A的數組元素個數是 。A.164B.360C.450D.905.子程序的形式參數(虛擬變元或啞元)可以

3、是 。A.變量名、數組名、過程名B.變量名、數組名、過程名和符號常量名C.變量名、數組名、數組片段、過程名D.任意符號名6.語句OPEN(3,FILE=’ABC’,ACCESS=’DIRECT’,RECL=40)打開的是 文件。A.有格式順序存取B.無格式順序存取C.有格式直接存取D.無格式直接存取7、下列關于"SUBROUTINEMAP(X,Y)"語句行的敘述中,不正確的是()A)這是子程序的第一個語句B)字符串"MAP"是子程序名C)變量X是子程序的形參D)子程序執(zhí)行后,MAP將返回整型數據8、FORTR

4、AN表達式"2/4+0.5"的值是()A)0.5B)1C)1.0D)09、閱讀下列FORTRAN程序:PI=3.14159265WRITE(*,'(F7.4)')PIEND程序運行后輸出結果是()A)3.142B)3.1415C)0.31416D)3.141610、圓的直徑存放在整型變量K之中,下列計算圓面積的表達式中正確的是()A)3.1415926*K*K/4B)3.1415926*(K*K/4)C)3.1415926*(K/2)**2D)3.1415926*(K/2)*(K/2)二、填空題1、下列FOR

5、TRAN函數子程序的功能是用以下公式計算一組數據Z1,Z2,…,Zn的標準差σ:σ2=(Z12+Z22+…+Zn2)/n-[(Z1+Z2+…+Zn)/n]2請在程序中的下劃線處填入合適的內容?!?】SIGMA(Z,N)REALZ(N)SUMX=0.0SUMX2=0.0DOK=1,N【2】SUMX=SUMX+XSUMX2=SUMX2+X*XENDDOAV=SUMX/NAV2=SUMX2/NS2=AV2-AV*AVSIGMA=【3】END【1】FUNCTION【2】X=Z(K)【3】SQRT(S2)三、簡答題1.

6、將下面的數學式子寫成FORTRAN90表達式。2.有一整型數組A(-1:1,2),請寫出它的存儲結構。參考答案1.log(a+b)/(exp(2*x)+sqrt(1+c))2.存儲結構A(-1,1)A(0,1)A(1,1)A(-1,2)A(0,2)A(1,2)四、編程題1、以循環(huán)來計算1/1!+1/2!+1/3!+1/4!+……+1/10!的值。2、利用選擇排序法編制程序,將數組A中所有的數值(5,3,6,4,8,7,1,9,2,10)從小到大排列。1、解題程序:programmainimplicitnone

7、integer,parameter::max=10integerirealitemrealansans=1.0item=1.0doi=2,maxitem=item/real(i)ans=ans+itemenddowrite(*,*)ansstopendprogram2、排序程序:programmainimplicitnoneinteger,parameter::size=10integer::a(size)=(/5,3,6,4,8,7,1,9,2,10/)integer::i,jinteger::tdoi=1

8、,size-1doj=i+1,sizeif(a(i)>a(j))thent=a(i)a(i)=a(j)a(j)=tendifenddoenddowrite(*,"(10I4)")astopend

當前文檔最多預覽五頁,下載文檔查看全文

此文檔下載收益歸作者所有

當前文檔最多預覽五頁,下載文檔查看全文
溫馨提示:
1. 部分包含數學公式或PPT動畫的文件,查看預覽時可能會顯示錯亂或異常,文件下載后無此問題,請放心下載。
2. 本文檔由用戶上傳,版權歸屬用戶,天天文庫負責整理代發(fā)布。如果您對本文檔版權有爭議請及時聯系客服。
3. 下載前請仔細閱讀文檔內容,確認文檔內容符合您的需求后進行下載,若出現內容與標題不符可向本站投訴處理。
4. 下載文檔時可能由于網絡波動等原因無法下載或下載錯誤,付費完成后未能成功下載的用戶請聯系客服處理。