fortran模擬試題

1、軟件技術(shù)基礎(chǔ)(FORTRAN試模擬試題2004.6(帶答案)一.概念選擇題(單選題，將正確的答案填入括號內(nèi)。每題 1分，共15分)1 .已知整型變量 L=5, M=13, N=4,表達式 L*M/N、L/N*M 和M/N*L的值分別是(A )。A) 16 13 15B) 16.25 16.25 16.25C) 16.0 13.0 15.0 D) 1616162 .將數(shù)學(xué)式 改寫為FORTRAN達式，正確的是(D )。1/2*(LOG(ABS(X)+E*(-5)1.0/2*(LN(ABS(X)+E*-5)1/2.0*(LN(ABS(X)+E-5)1.0/2*(LOG(ABS(X)+EXP(5)3

2、 .設(shè) A=.TRUE., B=.FALSE., C=.FALS邏輯表達式(A.OR.BAND.Cf A.OR.NOT.B 的值是(B)。A) .T.與.F.B).F.與 .T. C) .T.與.T. D) .F.與.F.4 .數(shù)組REAL A(0:5, -1:5)的元素個數(shù)是(D )。A) 25B) 30C) 36D) 425 .下列數(shù)組說明符中錯誤的是( A )。A) K(3:2,1:2) B ) K(-1:1,2)C) K(-2:2,-1:1)D) K(2:2,5)6 .關(guān)于參數(shù)語句 PARAMETE取其定義參數(shù)的正確說法是( B )。A)PARAMETE幅執(zhí)行語句B)參數(shù)的值在執(zhí)行期間

3、不能改變C)只能用常量定義符號參數(shù)D)可用含變量的表達式定義參數(shù)7 .語句 OPEN (9, FILE= DATA.TXT)打開的是(B )文件。A)無格式順序B)有格式順序C)無格式直接D)有格式直接8 .閱讀下列FORTRAN序，程序運行時執(zhí)行循環(huán)體的次數(shù)是(A )。X=0DO L=10, 5, 1X=X+1.0ENDDOA) 0 B) 1 C) 6 D)無窮9 .結(jié)構(gòu)化程序設(shè)計中有三種基本結(jié)構(gòu)A)順序結(jié)構(gòu)B)選擇結(jié)構(gòu)10 .對鏈表中的數(shù)據(jù)元素的插入和刪除A)移動結(jié)點，不需要改變結(jié)點指針C)移動結(jié)點，并且需要改變結(jié)點指針END，下列不屬于三種基本設(shè)計結(jié)構(gòu)的是(D )。C)循環(huán)結(jié)構(gòu)D)嵌套結(jié)

4、構(gòu)(B )。B)不移動結(jié)點，需要改變結(jié)點指針D)不移動結(jié)點，不需要改變結(jié)點指針11 .具有12個記錄的序列，采用冒泡排序最多的比較次數(shù)是(D )。A) 1B) 144C) 11 D) 6612 .下列形式中，不能作為形參的是(C )。A)函數(shù) B)數(shù)組C)表達式D)變量13 . 一個深度為k (k0)的滿二叉樹的結(jié)點數(shù)應(yīng)滿足(A )。A) 2k+1 -1 B) 2k+1C) 2k+1D) 2 k14 .棧和隊列都是 (D )。A）順序存儲線性表B）限制存取點的順序存儲線性表C）鏈?zhǔn)酱鎯€性表D）限制存取點的線性表15 .進行二分法查找，則線性表（ D）A）必須以順序方式存儲B）必須以鏈接方式存

5、儲C泌須以鏈接方式存儲，且數(shù)據(jù)元素已按值排好序（每題3分，共15分）D）必須以順序方式存儲，且數(shù)據(jù)元素已按值排好序 二.閱讀程序，并寫出下列各程序的運行結(jié)果。1. CHARACTER LINE*19, DC*5 DC = *LINE =DO K = 16,12,-1 LINE(K7:K-3)= DC PRINT *,LINE DC(K11:K-11)=#LINE = ENDDO END2. INTEGER FUNCTION FUN(M) M = M/2FUN = M*MENDINTEGER:A,X=17,FUNA = FUN(X)/FUN(X)B= FUN(X)FUN(X)PRINT*,A,B

6、END3. INTEGER A(4,4) DO I=1,4DO J=1,457A(I,J)=I*J15811ENDDO 371115運行結(jié)果是：*#*#*#*#運行結(jié)果是：4運行結(jié)果是:3ENDDODO I=1,4N=5-IWRITE(*,30)(A(I,J),J=N,4)ENDDO30 FORMAT(1X,4I3)END4. INTEGER A(3, 4)運行結(jié)果是：6.00DATA A/12*0/DO M= 1, 3 DO N=1, 4CALL SUB (A, 3, 4, M , N) END DOEND DOWRITE (*, f6.2 ) ) F (A, 3, 4) ENDSUBROU

7、TINE SUB(P, M , N, I, J INTEGER P(M, N) P (I, J) = J- I END FUNCTION F (P, M , N) INTEGER P(M , N) F= 0.0 DO I=1, MDO J= 1, NF= F+P (I, JEND DOEND DOEND運行結(jié)果:5. A=3.0;B=5.0;C=4.0CALL SUBT(BA,C) 2.0 5.0WRITE(*, (1X,2F4.1-A,C )BENDSUBROUTINE SUBT(X,Y)X=X+2Y=Y+1END三.程序填空題(每空 2分，共30分)下面程序功能是，從鍵盤輸入60個不超過4

8、位的正整數(shù)，并把它們寫入一個順序方式打開的文件NAP中，每10個數(shù)為一個記錄，然后將這個文件中每個記錄的偶數(shù)之和進行輸出。 請在程序的橫線處填上適當(dāng)內(nèi)容。DIMENSION K(10)OPEN(5,FILE= NAP ,FORM= FORMATTED ,ACCESS= SEQUENTIAL ,&STATUS= UNKNOW )DO 10 J=1,6READ(*, (10I4) )(K(I),I=1,10)WRITE(5, (10I4) )(K(I),I=1,10)ENDFILE 5REWIND 5DO 25 J= 1,6 READ(5, (10I4)(K(I),I=1,10)IS=0DO 30

9、 N=1,10IF(MOD( K(I),2)=0)IS=IS+K(I)CONTINUEPRINT*,ISCONTINUECLOSE END2 .下面程序的功能是：逐一判斷讀入的數(shù) N是否能被7和9整除，若滿足條件則輸出該數(shù)， 當(dāng)讀入的數(shù)為0 (零)時結(jié)束。請?zhí)羁?。DOREAD (*, *) NIF (N .EQ. 0) THENEXITELSEIF (MOD(N,7).EQ.0.AND.MOD(N,9).EQ.0) THENPRINT *, NENDIFENDIFENDDOEND3 .求出19002100的閏年，要求把求出的閏年存入數(shù)組Y,并統(tǒng)計閏年的數(shù)目。以 7位寬度輸出閏年年號，每行 10

10、個。INTEGER:丫(50), K=0DO I=1900,2100IF(MOD(I,400)=0 .OR. MOD(I,100)/=0 .AND. MOD(I,4)=0) THENK =K+1Y(K) = IENDIFENDDOPRINT (1X,I2,12H LEAP YEARS:),KPRINT (1X,10I7),(Y(I),I=1,K)END下面的程序輸出 ACSII碼對照表，請?zhí)羁?。INTEGER A(32:126),ASCCHARACTER CH(32:126)PRINT*, ACSII碼對照表DO ASC=32,126A(ASC)= ASCCH(ASC)= CHAR(ASC)E

11、NDDOPRINT 10, (CH(I),A(I),I=32,126)10 FORMAT(7(1X,A,=,I4)END四.簡答題(共10分)已知NXM的二維數(shù)組，首元素A 0, 0存儲地址是R單元，每個數(shù)組元素長 L字節(jié)，分別寫出按行和按列存儲數(shù)組時，數(shù)組元素A I, JO的存儲地址(4分)答案按行：R+ ( I*M + J) *L按列：R+ ( J*N + I) *L（4分）2 .給定樹如下，分別寫出對該樹進行中序和后序遍歷的結(jié)果 答案：中序遍歷結(jié)果是 GDBEAFC后序遍歷結(jié)果是 GDEBFCA已知有序列A、B、C,如果按A、B、C的順序入棧，請寫出它們的各種不同的出棧序歹U。 分)答案

12、：A,B,C A,C,B B,C,A B,A,C C, B,A五.編程題(10分)(在下列2題中任選一題，按題目要求編寫 FORTRA姍序。) 編寫判斷一個整數(shù)是否為偶數(shù)或奇數(shù)的子例行子程序，在主程序中調(diào)用它，以便分別求出 100個整數(shù)中奇數(shù)和偶數(shù)的個數(shù)。SUBROUTINE SUB(N,CH) CHARACTERS CH IF(MOD(N,2)=0)THEN CH= OELSECH= JEND IF END PROGRAM MAIN DIMENSION K(100) CHARACTERS CHA READ *,K NA=0NB=0DO I=1,100KN=K(I)CALL SUB(KN,CH

13、A)IF(CHA= O )NA=NA+1IF(CHA= J )NB=NB+1END DOPRINT*,偶數(shù)的個數(shù)為：，NAPRINT */奇數(shù)的個數(shù)為：，NB END2.已知一個實型數(shù)組由 6行5列組成，要求：(1)統(tǒng)計數(shù)組內(nèi)每一行的所有元素和，(2)將這些元素的和進行升序排列，并輸出排序結(jié)果；(3)按數(shù)組原有格式輸出已知數(shù)組。REAL A(6,5),S(6) T READ *,ADO I=1,6S(I)=0DO J=1,5S(I)=S(I)+A(I,J)END DOEND DODO I=1,5DO J=I+1,6IF(S (J) S(I)THENT=S(J)S(J)=S(I) S(I)=T ENDIF END DO ENDDOPRINT *,(S(I),I=1,6)WRITE(*,10)(A(I,J),J=1,5),I=1,6)10 FORMAT(1X,6F8.1) END軟件技術(shù)基礎(chǔ)(FORTRAN):機考試練習(xí)題編寫程序，首先從文件 D:CJ1.TXT讀入以下字符串：I am learning the C+ ProgrammingLanguage. 將其中的單詞換成FORTRAN”,然后將結(jié)果顯示在屏幕上。編寫程序，首先鍵盤輸入以下兩個字符串：I am a student of Tianjin University ,