FORTRAN知識(shí)要點(diǎn)及筆試試卷分析.ppt

FORTRAN 知識(shí)要點(diǎn),第2章FORTRAN90基礎(chǔ)知識(shí)：程序單元的概念、語(yǔ)言元素、數(shù)據(jù)類型、變量名的命名規(guī)則 第3章基本語(yǔ)句：類型說(shuō)明語(yǔ)句、種別、p38頁(yè)屬性表、算術(shù)表達(dá)式、P40頁(yè)函數(shù)表、輸入輸出（表控格式、有格式I,F）,第4章選擇結(jié)構(gòu)程序設(shè)計(jì)：關(guān)系與邏輯表達(dá)式（關(guān)系運(yùn)算符=與/=）（邏輯運(yùn)算符P61）、混合運(yùn)算符的優(yōu)先級(jí)別（P62表4-2）、IF語(yǔ)句與IF結(jié)構(gòu)的區(qū)別、CASE結(jié)構(gòu),第5章循環(huán)結(jié)構(gòu)程序設(shè)計(jì)：三種循環(huán)結(jié)構(gòu)：不帶循環(huán)變量的DO、帶循環(huán)變量的DO、DO While結(jié)構(gòu)、隱DO循環(huán)、P80頁(yè)EXIT和CYCLE語(yǔ)句,第6章程序單元和過(guò)程：函數(shù)子程序、子例子程序、接口塊（P116必須使用接口塊的情況）、虛實(shí)結(jié)合、虛過(guò)程、模塊、遞歸、P136頁(yè)其他部分（內(nèi)部過(guò)程、類屬過(guò)程、超載運(yùn)算符、自定義運(yùn)算符、超載賦值號(hào)） P142：進(jìn)行超載賦值運(yùn)算時(shí)，必須編寫(xiě)子例子程序形式；要實(shí)現(xiàn)超載運(yùn)算符功能時(shí)，必須編成函數(shù)子程序形式。,第7章數(shù)組：數(shù)組的基本概念（P154數(shù)組片段與數(shù)組構(gòu)成器）、二維數(shù)組按列存放、數(shù)組函數(shù)、P165 RESHAPE函數(shù)、數(shù)組形式（常、可調(diào)、假定形狀、動(dòng)態(tài)、假定大?。?、數(shù)組做變?cè)?、P191頁(yè)數(shù)組運(yùn)算,第8章字符型數(shù)據(jù)：字符常量、變量、子串、表達(dá)式、P208頁(yè)字符函數(shù) 第9章派生類型和指針：派生類型、指針（P229頁(yè)注意問(wèn)題） 第10章數(shù)據(jù)文件：文件P260頁(yè)各參數(shù)的含義、文件的操作（上機(jī)）,8,2010秋二級(jí)FORTRAN 筆試試卷,選擇題(10分）,9,21、 FORTRAN90標(biāo)準(zhǔn)規(guī)定有五個(gè)邏輯運(yùn)算符，以下不屬于規(guī)定但可以自定義的邏輯運(yùn)算符是 21 。,.NOT. .EQV. .XOR. .NEQV.,10,22、語(yǔ)句CHARACTER(len=15):str說(shuō)明str是長(zhǎng)度為15的字符變量，下述賦值語(yǔ)句中正確的是 22 。,A. str=“abcd“+26 B. str=“I am a “ / “student“ C. str=2*3+61 D. str=“A“B“,11,23、若有說(shuō)明語(yǔ)句REAL(4):x=123.4567，則下述表達(dá)式能將x的值舍入成123.46的是 23 。,A. (x*100.0+0.5)/100.0 B. (x/100.0+0.5)*100.0 C. (x+0.5)/100.0)*100.0 D. INT(x*100.0+0.5)/100.0,12,24、有程序片斷: INTEGER:a(2,2),b(5) a=RESHAPE(/2,4,6,8/),(/2,2/) b=(/RESHAPE(a,(/4/),9/) 那么數(shù)組b的內(nèi)容是 24 。,A. 2 4 6 8 9 B. 2 2 2 9 C. 4 4 6 8 9 D. 4 4 4 4 9,A數(shù)組的值：2 6 4 8,13,25、關(guān)于動(dòng)態(tài)數(shù)組（假定數(shù)組名為a）的以下說(shuō)法中，錯(cuò)誤的是 25 。,A. 要說(shuō)明標(biāo)識(shí)符a為動(dòng)態(tài)數(shù)組，必須在數(shù)組說(shuō)明中標(biāo)明ALLOCATABLE屬性 B. 動(dòng)態(tài)數(shù)組既可以作過(guò)程的啞元，也可以在調(diào)用過(guò)程時(shí)作實(shí)元 C. 動(dòng)態(tài)數(shù)組a用執(zhí)行ALLOCATE(a(10)語(yǔ)句獲得內(nèi)存空間 D. 動(dòng)態(tài)數(shù)組a用執(zhí)行DEALLOCATE(a)語(yǔ)句釋放已占內(nèi)存空間,14,26、含有目標(biāo)變量和指針變量的程序片斷如下： INTEGER, POINTER:p1,p2 INTEGER, TARGET:x=10 p1=x 以下賦值語(yǔ)句中錯(cuò)誤的是 26 。,x=2*p1+1 p1=2*x+1 p2=2*p1+1 p1=2*p1+1,15,27、FORTRAN90提供的內(nèi)部函數(shù)其名稱分為通用名（即類屬名）和專用名。以下說(shuō)法中錯(cuò)誤的是 27 。,通用名無(wú)須考慮其函數(shù)值的類型,它決定于變?cè)念愋?，使用方?專用名必須讓函數(shù)值的類型,和它的變?cè)念愋拖嘁恢?，否則出錯(cuò) 在進(jìn)行過(guò)程啞、實(shí)結(jié)合時(shí)只能用專用名，并用INTRINSIC屬性加以說(shuō)明 在進(jìn)行過(guò)程啞、實(shí)結(jié)合時(shí)只能用通用名，并用INTRINSIC屬性加以說(shuō)明,16,28、函數(shù)或子程序輔程序的啞元是數(shù)組，調(diào)用時(shí)實(shí)行數(shù)組啞、實(shí)結(jié)合。以下說(shuō)法中錯(cuò)誤的是 28 。,A實(shí)元（實(shí)參）可以是同類型的數(shù)組名或數(shù)組元素名 B實(shí)元數(shù)組與啞元（形參）數(shù)組必須有相同的維數(shù) C實(shí)元數(shù)組（從結(jié)合點(diǎn)開(kāi)始）的長(zhǎng)度不能小于啞元數(shù)組長(zhǎng)度 D若實(shí)元為數(shù)組名則從該數(shù)組的首元素開(kāi)始，否則從該數(shù)組元素名指定的元素開(kāi)始啞、實(shí)結(jié)合,17,29、以下關(guān)于內(nèi)部函數(shù)過(guò)程說(shuō)法中正確的是 29 。,內(nèi)部函數(shù)過(guò)程可以放在程序單位中的任何地方 內(nèi)部函數(shù)過(guò)程必須通過(guò)執(zhí)行它的END FUNCTION語(yǔ)句才能完成引用 內(nèi)部函數(shù)過(guò)程不能遞歸定義 內(nèi)部函數(shù)過(guò)程可以作為函數(shù)引用而出現(xiàn)在該程序單位內(nèi)任何表達(dá)式內(nèi),18,30、以下關(guān)于FORTRAN文件系統(tǒng)中操作的敘述中，錯(cuò)誤的是 30 。,A. 執(zhí)行BACKSPACE(UNIT=2,IOSTAT=i)操作，從文件的當(dāng)前位置退至文件始端 B. 執(zhí)行REWIND(UNIT=2,IOSTAT=i)操作，從文件的當(dāng)前位置退至文件始端 C. 執(zhí)行BACKSPACE(UNIT=2,IOSTAT=i)操作，從文件的當(dāng)前位置后退一個(gè)記錄 D. 執(zhí)行ENDFILE(UNIT=2,IOSTAT=i)操作，在文件的當(dāng)前位置寫(xiě)上文件結(jié)束符,19,1、各種運(yùn)算符及其優(yōu)先級(jí) 2、數(shù)組的函數(shù) 3、程序結(jié)構(gòu)，內(nèi)部函數(shù)問(wèn)題 4、派生類型問(wèn)題、指針變量 5、變量的數(shù)據(jù)類型 6、啞元 7、文件操作 ,選擇題注意：,20,填空題（請(qǐng)將答案填寫(xiě)在答題紙的相應(yīng)答題號(hào)內(nèi)，每個(gè)答案只占一行）,21,讀程序?qū)懡Y(jié)果(15分） ： 1、數(shù)組元素的賦值(各種語(yǔ)句結(jié)構(gòu)的嵌套、函數(shù)) 2、遞歸程序的調(diào)用 3、字符類型與字符子串的使用、字符函數(shù) 4、派生類型的定義與使用 5、自定義運(yùn)算符或運(yùn)算符超載 6、類屬過(guò)程、模塊、內(nèi)部過(guò)程 7、指針賦值 8、數(shù)組函數(shù)、程序的功能,保證正確的方法：逐語(yǔ)句運(yùn)行、畫(huà)圖表！,22,RECURSIVE FUNCTION f(a,b) RESULT(s) IMPLICIT NONE INTEGER:a,b,s IF(b=1) THEN s=a ELSE s=a+f(a,b-1) ENDIF PRINT*,a,b END FUNCTION f,例1：填空題2、 以下程序執(zhí)行后，輸出的第一行是 ，主程序中函數(shù)f(x,y)的值是 。遞歸問(wèn)題,PROGRAM main IMPLICIT NONE INTEGER:x,y,f x=5; y=3 PRINT*,f(x,y) END PROGRAM main,5 1,15,23,PROGRAM pointer IMPLICIT NONE INTEGER,POINTER:a,b,c INTEGER,TARGET:x,y,z x=33; y=55; z=88 a=x; b=y; c=z PRINT(3I5),a,b,c a=b+c; b=c+a; c=a+b PRINT(3I5),a,b,c a=b; b=c; c=a PRINT(3I5),a,b,c END PROGRAM pointer,例2：填空題4、以下程序執(zhí)行后，輸出的第二行是 ，第三行是 。指針問(wèn)題,143 231 374,231 374 231,24,PROGRAM main IMPLICIT NONE INTEGER:i,n,maxl(1),array(3,3) INTEGER, ALLOCATABLE : ar1(:) array=RESHAPE(/7,9,-1,-2,5,0,3,6,9/),(/3,3/) n=SIZE(SHAPE(array) PRINT (A,I2),n=,n ALLOCATE(ar1(n) ar1=MAXLOC(array,MASK=array .LT. 7) PRINT (4I3),(ar1(i),i=1,n) END PROGRAM main,例3：填空題5、以下程序執(zhí)行后，輸出的第一行是 ，第二行是 。數(shù)組函數(shù),n=2,2 3,Array的值： 7 -2 3 5 6 -1 0 9,程序填空(15分）： 1、變量類型的說(shuō)明、初值； 2、條件表達(dá)式的構(gòu)造； 3、循環(huán)的出口語(yǔ)句； 4、派生類型的定義； 5、函數(shù)或子例子程序的調(diào)用,模塊引用； 5、表達(dá)式的書(shū)寫(xiě)； 7、mod與整數(shù)相除的搭配使用。,保證正確的方法：弄清每個(gè)變量的含義，逐語(yǔ)句對(duì)照算法的中文描述！,26,FORTRAN 上機(jī)考試的得分點(diǎn),(1)改錯(cuò)題：20分 源程序存在： 2分 錄入完畢： 2分 結(jié)果文件存在： 2分 結(jié)果正確： 2分 改正錯(cuò)誤： 4分3錯(cuò)=12分 （其中語(yǔ)法錯(cuò)1處，語(yǔ)義錯(cuò)2處） 注意：結(jié)果文件MYF1.OUT文件。,27,(2)編程題：20分,源程序存在： 2分 數(shù)據(jù)文件存在： 1分 數(shù)據(jù)文件正確： 2分 結(jié)果文件存在： 2分 結(jié)果文件正確： 2分 主輔結(jié)構(gòu)正確： 2分 OPEN語(yǔ)句正確： 1分 讀/寫(xiě)語(yǔ)句正確： 1分 循環(huán)語(yǔ)句正確： 1分 調(diào)用子程序正確： 1分 虛實(shí)結(jié)合： 2分 算法正確： 3分,二、編程題（20分） 【題目】函數(shù)f(x)的展開(kāi)式如下：,將f(x)展開(kāi)式的右端編寫(xiě)成外部過(guò)程。當(dāng)級(jí)數(shù)通項(xiàng)的絕對(duì)值小于eps（eps=10-10，即1E-10）時(shí)停止計(jì)算。在同一行上，x用F6.4格式輸出，計(jì)算所得的f(x)和 用F8.6格式輸出。計(jì)算所用的數(shù)據(jù)存放在文件MYF2.DAT中，從該文件輸入的x值為： 5.5887， 1.5708, 2.7635， 3.2536, 3.8633， 4.3256, 4.4988,事實(shí)上,若通項(xiàng)記為Un,則,【要求】 1. 源程序必須存放在文件MYF2.F90中。 2. 建立數(shù)據(jù)文件MYF2.DAT，所需輸入數(shù)據(jù)即從該文件中讀出。 3. 程序運(yùn)行結(jié)果存于文件MYF2.OUT中。 4. 數(shù)據(jù)文件的打開(kāi)、使用、關(guān)閉均要求采用FORTRAN語(yǔ)言文件管理語(yǔ)句實(shí)現(xiàn)。 【注意】本題完成后必須將MYF2.F90、MYF2.DAT、MYF2.OUT等文件拷貝到考試盤(pán)（盤(pán)符為T(mén):）的根目錄(不要自己創(chuàng)建文件夾)下供閱卷用。,PROGRAM Main IMPLICIT NONE REAL:x,f,y,z INTEGER:i character(len=50):fmt fmt=(“x=“,F6.4,“ f(x)=“,F8.6,“ g(x)=“,F8.6) OPEN(1,FILE=myf2.dat) OPEN(2,FILE=myf2.out) DO i=1,7 READ(1,*)x y=f(x) z=1.0/SQRT(1+x*2) WRITE(2,fmt)x,y,z; WRITE(*,fmt)x,y,z ENDDO END PROGRAM Main,FUNCTION f(x