1、精品文檔精品文檔D.實數1.3D) X=X+A)1/2*(AB)*HB)(A+B)*H/2C)(A+B)/2*HD)0.5*(A+B)*H9.要選拔身高T>1.7米且體重W<62.5公斤的人FORTRAN勺邏輯表達式是A)T.ce.1.7.AND.w.le.62.5C)T.gt.1.7. AND.w.lt.62.5B) T.le.1.7.OR.w.ge.62.5D)T.gt.1.7.OR.w.lt.62.5高級語言程序設計(FORTRAN)考試樣題一、選擇題(每小題2分，共40分)1. 下列標識符中不能作為 FORTRA的合法變量名的是 D.A) A_1 B) A1C) A1AD)

2、 A+12. 在FORTRA的變量類型說明語句中沒有BA) REAL 語句B)CHAR語句 C)INTEGER語句 D)LOGICAL 語句3. FORTRAN9C源程序的擴展名是 _C。A. TXTB. F C. F90D. FOR4. 下列關于符號常量的說法正確的是C。A. 符號常量的定義應該放在所有語句之前B. 符號常量不可以是字符型常量C. 在一個程序單位中定義一個符號常量后，不能再改變它的值D. 符號常量定義語句與賦值語句一樣，是可執行語句5. 在下列寫法中， _D不是FORTRA常量。A. .TRUE. B.1E-2 C. (0.0,2.4)D.1,000,0006. 表達式15/

3、4/2.0的值是 B。A.整數2B.實數1. 5C.實數2. 257. 下列不是FORTRA賦值語句的是 D。A) X=.TRUE.B) X=X*XC) X=X*2*28.梯形的上底為A,下底為B,高為H,計算其面積的FORTRA表達式中錯誤的是10. FORTRAN 9(規定，變量類型聲明的優先順序是_CA.隱含約定(I-N規則)、IMPLICIT聲明、類型聲明B. 類型聲明、隱含約定(I-N規則)'IMPLICIT聲明C. 類型聲明、IMPLICIT聲明、隱含約定(I-N規則)D. IMPLICIT聲明、類型聲明、隱含約定(I-N規則)11、假設CH是一個字符型變量，并且具有足夠的

4、長度，則對于CH(3:7),下面說法正確的是_DA.它是一個數組片段B.它是一個數組定義形式C.它是CH的一個子串，并且長度是4 D.它是CH的一個子串，并且長度是512數組聲明語句為：INTEGER,DIMENSION(-5:-1,-3:3,11:15) :A數組共有 A個元素。A. 175 B . 150 C . 120D. 1713. 下列DATA語句中正確的是C。A) DATA /A,B/-1.0, -1.0/B) DATA A, B/2*(-1.0)/C) DATA A, B/2*-1.0/D) DATA A/-1.0, B/-1.014. 下列有關FORTRA數組的說法正確的是 D

5、<A) 數組定義語句只能定義一維或二維數組B) 數組元素下標不能出現負值C) 在賦值語句中出現的A(3)肯定是數組元素D) 程序中使用的數組必須進行說明精品文檔15. 一個完整的FORTRAN源程序的組成不應該D。A）只有一個主程序沒有子程序B）有一個主程序和若干子程序C）有一個主程序和一個子程序D）只有子程序而沒有主程序16閱讀下列FORTRAI程序：DO K=2,4,2S=S+1/KEND DOWRITE（*,*）SEND執行上述程序后，輸出的S值為CA) 0.75 B) 1.75C) 0.0 D)17. 閱讀下列程序INTEGER M(3,3)DATA M/1,2,3,4,5,6,

6、7,8,9/WRITE(*,10)(M(3,J),J=1,3)10 FORMAT(1X,3I2)END程序運行結果是B。A)2 5 8B)3 6 918. 閱讀下列程序K(X,Y)=X/Y+XA=-2.0B=4.0B=1.0+K(A,B)WRITE(*,10)B10 FORMAT(1X,F4.1)END程序運行結果是AA)-1.0B)1.0B)2.019. 閱讀下列FORTRA程序：DO I=4,2,-1A=1.0DO J=I,4,2A=A+1.0ENDDOENDDOWRITE(*,*)AEND運行上述程序后，輸出的 A值為 A) 5.0B) 4.0C) 3.020. 可調數組_B中出現。A.

7、只能在主程序C.只能在主程序和子程序1.0C)4 5 6D)7 8 9D)3.0C。D） 2.0B.只能在子程序D.可以在主程序、子程序和模塊二、填空題（每空 2分，共36分）1、結構化程序設計的三種基本結構為：順序結構、選擇結構和循環結構精品文檔2、 已知 A B、C都是整型變量，且A=3, B=4, C=5,計算表達式 C/2>2.AND.A+B=C的值為：_.FALSE. _。n3、 將數學表達式 e2x +ln|Sin 2x-Sinx 2|寫成正確的 FORTRA表達式為：_ EXP(3.14/2*X)+LOG(ABS(SIN(X)*2-SIN(X*2)。4、 N是一個個位不等于

8、 0的兩位自然數，寫一個表達式將 N的個位數與十位數互換，得到一個新的數。MOD(N,10)*10+N/10。5、 已知I是整型變量，當DO結構從“正常出口”結束時，語句“ DO I= 3,15,2 ”共計完成了7次循環。6、 下列程序的運行顯示結果是什么_ .TURE. 。LOGICAL PINTEGER I,I1,I2,I3P=.FALSE.I=123I1=MOD(I,10)I2=MOD(I/10,10)I3=I/100IF(I1+I3.EQ.2*I2)P=.TRUE.PRINT*,PEND7、下列程序的運行顯示結果是什么_ K=6。K=0DO N=21,10,-1IF (MOD(N,2)

9、=0)K=K+1END DOPRINT*, "K=",KEND8、下列程序的運行顯示結果是什么_ 14 5。M=0DO J=1,4DO K=J-1,4M=M+1END DOEND DOWRITE(*,*)M,JEND9、下列程序的運行顯示結果是什么_ 5167.0。SUM=1.0J=1DO WHILE (J.L E.3)F=1DO I=2,2*J+1F=F*IENDDOSUM=SUM+FJ=J+1END DO精品文檔PRINT*,SUMEND10. 下列程序的運行顯示結果是什么_S=15.00 。DIMENSION X(3,3)DATA X/1,2,3,4,5,6,7,8,

10、9/S=0DO I=1,3S=S+X(I,4-I)ENDDOWRITE(*,20) S20 FORMAT(1X； S=' ,F6.2)END:1,4,5,6,8。11. 下列程序將一個數組的元素逆序重新存放，例如存放順序為：8,6,5,4,1 。要求改為請在橫線處填寫適當語句，使程序完整。INTEGER,PARAMETER:N=5INTEGER A(N),I,TDATA A/8,6,5,4,1/WRITE(*,10)(A(I),I=1,5)DO I=1,N/2T=A(I)A(l)=A(N-l+1)A(N-I+1)=T END DOWRITE(*,10)(A(I),I=1,5)10 FO

11、RMAT(1X,5I4)END12. 下列程序完成按以下格式打印楊輝三角形的前N行：11 11 2 11 3 3 11 46 4 1請在橫線處填寫適當語句，使程序完整。PARAMETER(N=10)INTEGER A(N,N),I,JDO I=1,NA(I,1)=1A(I,I)=1ENDDODO I=3,NDO J=2,I-1 A(l,J)=A(l-1,J)+A(l-1,J-1)ENDDOENDDODO I=1,NWRITE(*,10)(A(I,J),J=1,I)ENDDO精品文檔10 FORMAT(1X,10I5)END13. 下列子例行程序ProcMin(A,N,MIN)的作用是返回數組

12、A中的最小值。請在橫線處填寫適當語句，使程 序完整。SUBROUTINE PROCMIN(A,N,MIN)INTEGER A(N),N,MINMIN=A(1)DO I=2,NIF(A(I)>MIN)MIN=A(I)ENDDOEND14.采用變化的冒泡排序法將N個數按從大到小的順序排列：對N個數,從第一個直到第 N個，逐次比較相鄰的兩個數，大者放前面，小者放后面，這樣得到的第N個數是最小的，然后 4個對前面N-1個數，從第N-1個到第1個，逐次比較相鄰的兩個數，大者放前面，小者放后面，這樣得到的第1個數是最大的。對余下的N-2個數重復上述過程，直至按從大到小的順序排列完畢。請在下列程序橫線處填寫適當語句， 使程序完整。PARAMETER(N=10)INTEGER X(N),I,J,TX=(/10,55,25,70,45,15,25,85,45,35/)WRITE(*,10)(X(l),l=1,10)DO I=1,N-1DO J= 2,N-I+1IF(_A(J-1)<A(J) THENT=X(J-1)X(J-1)=X(J)X(J)=TEND IFEND DOENDDOWRITE(*,10)(X(l),l=1,10)10 FORMAT(1X,10I4)END