最新FORTRAN習題答案資料

1、精品文檔精品文檔習題二1.、問答題 給出下面變量名稱，哪些是合法變量？哪些是非法變量？說明原因。Count、num_2、x&y、4x+5y、china-suzhou、$us、AbCdE、Mr.bai、t5、1.another、school class 25、#125、2002Y、n、判定下面整數(shù)，指出哪些是合法整數(shù)3、A01/02、alpha、date(1)，哪些是非法整數(shù)？說明原因。-0、+215、$125、3,245,895、5.3245、5#384、-524 3、#5DFE、23-345、16#1A2B、38#ABCD、8#275 2、 +327890、 4#3212.判定下面實

2、數(shù)，指出哪些是合法實數(shù)，哪些是非法實數(shù)？說明原因。-0E2、45.2345E3.5、-5489E25 8、-.2345E-35、$185.45E、+ 2.753425E24 3、18.5E18、2.5E4258D85、+0.E-0、-00000.001E5、5,443,223.44、-1234E+2、+習題二、選擇題1 .下面是 Visual Fortran中正確的表達式是 。(A) A*COS(X)+ I B I(B) 2*EXP(2*X)/SQRT(16.0)2(C) B -4AC( D) MOD (24.5,0.5)2. 下面算術賦值語句中正確的語句是 。(A) M*N=(X-Y)/Z(

3、 B) +R=A+B/C(C) X=Y=Z-1.0( D) Y=A*B/C/D3. 算術表達式 1/3+2/3的值為 。(A )0(B) 1(C) 0.99999999( D)值不確定二、問答題1.將下列代數(shù)式用Ax0 By0 CA2 B2Visual Fortran表達式描述:-1ey2sinz 4s in 3A-3si nA+si n3Asin(p _a)sin(p _b)sin(p _c)si np2. 執(zhí)行下列賦值語句后，變量中的值。變量的類型遵循I N規(guī)則。設1=6, K=2 , N=-3 ,T=7.5 , Y=1.5 L=T/Y/2.02 Z=I*K+Y13.5 M=l/K*Y+1

4、.56 A=I*K/N+T/Y-7.0習題四、運行程序題1. 判斷下列輸入輸出語句是否正確？ PRINT*, 'X= ', X, 'X*Y*2= ', X*Y*2(2) WRITE ( * , * ) A, B, NO, ' Y= ', Y(3) READ*, N, M, 5.0K(4) WRITE ( *,22 ) A, B, I, K, C22 FORMAT ( 4X, 2F5.0, 2I5 )(5) WRITE ( 8,33 ), X, Y, M, Z, N,33 FORMAT ( 4X, 2F5.0 2I5 )(6) READ ( *,4

5、4 ) NF, G , H, I, J44 FORMAT ( 4X, I5, 2 ( F6.2, I5 )2. 已知整型變量i、j、k、l、m、n,執(zhí)行下面表控輸入語句：READ*, i,jREAD*, k,l,mREAD*, n按以下格式輸入 8 個數(shù)據(jù)：2526 50 45 57 4327 28輸入語句執(zhí)行后,每個變量取何值？i=25、 j=26、 k=27、 l=28 、 m=0、 n=03. 寫出輸出結果,設 I=56, J=1274, K=5126WRITE ( *,100 ) I, J, K(1) 100 FORMAT ( 1X, I4 )(2) 100 FORMAT ( 1X,

6、2I5 )56 12745126(3) 100 FORMAT ( 1X, 2 ( I5,2X ) / )56 127451264. 寫出輸出結果,設 I=512, J=612, A=18.34, B=-21.4, C=112.463, D=-2174.573WRITE ( *,100 ) I,J,A,B,C,D(1) 100 FORMAT ( 1X,I5,2X,2 ( F10.2,2X ),F12.1 )5120.00E+00 18.34-2.14112.46 -2174.57(2) 100 FORMAT ( 3X,2 ( I4,2X ),2 ( F10.2,2X ),'NEW'

7、;)5120.00E+0018.34-2.14 NEW112.46-2174.57 NEW5. 有讀入語句：READ ( *,100 ) l,J,B設輸入的值為：1=63 , A=76.5 , J=122, B=156.783。如用下面的 FORMAT語句應如何 輸入數(shù)據(jù)。100 FORMAT ( I4,F6.2,I5,F8.2 )(2) 100 FORMAT ( I4,2X,F6.2,I5,F8.2 )(3) 100 FORMAT ( 1X,2 ( I4,2X,F10.2 )(4) 100 FORMAT ( I4,F6.2/I5,F8.2 )(5) 100 FORMAT ( I4/F6.2/

8、I5/F8.2 )(6) 100 FORMAT ( I5,F8.1 )6. IMPLICIT NONEINTEGER:I,J,KREAD *,I,JK=I/JPRINT *, ' K=' ,KEND當輸入9, 2時，輸出結果為 K=4 。7. IMPLICIT NONEREAL:I,J,KREAD(*,*)I,JK=I/JWRITE(*,*) ' K=' ,KEND當輸入9, 2時，輸出結果為_K=4.500000。&下面是一些非法的輸入輸出語句和格式說明語句。說明其非法原因。READ * i,j,kREAD 10 i,j,kREAD *,i= '

9、; ,i,j= ' ,jREAD(*,10) i,j,125READ(*, ' ( “i= ” ,I3,“ j= ” ,I3) ' ) i,jREAD( (I3,I3)' ,*) i,j10FORMAT(1X,I3,:,I3,:,I3)PRINT * i,j,kPRINT 10 i,j,kWRITE *,i= ' ,i,j= ' ,jWRITE(20,*) i,j,125PRINT(*, ' ( “i= ” ,I3,“ j= ” ,I3) ' ) i,jWRITE( ' (13,13)' ,*) i,j20 FOR

10、MAT(1X,I3,I3 I3)9. 給定下面 READ和FORMAT語句：READ 100,i,j,k,m, n100FORMAT(I2,I3,2X,I2,1X,I4.1,I3)執(zhí)行READ語句，輸入以下5組數(shù)據(jù)：12345678901234567890 /132243心56576878 /:-12,3X3 V"-,2-3455/："1232;45A1893215/1："23;324;445;555;777 /READ語句執(zhí)行后，每組i,j,k,m,n的值分別是多少？10. 給定下面 READ和FORMAT語句：READ 100,a,b,c100FORMAT(F

11、5.2,F5.1,E8.3)執(zhí)行READ語句，輸入以下5組數(shù)據(jù)：12345678901234567890 /123,456789012,345890 /1322、43心565乍+28/123E2343："7"23455/1.23245.E3.1893-215/READ語句執(zhí)行后，每組a,b,c的值分別是多少？11. 已知：i=25,j=-125,k=-4725,m=-31500,a=48.57,x=-1.5E+11,y=158.895E-11。給定輸出語句：WRITE(*,100)i,a,j,b,k,m,x,y對下面不同的FORMAT語句，寫出輸出結果： 100FORMAT

12、(1X,I3,1X,F5.2,1X,I4,1X,F9.2,I5,I6,E12.3,E12.3E3) 100FORMAT(3X,I4,1X,F9.2,1X,I4,1X,F9.2,2I5,2E12.3)',16, 100 FORMAT( i= ' ,I3,'a=' ,F5.2,'j= ' ,I4,'b=' ,F9.2,'k=' ,I5,'x= ' ,E12.3,' y= ' ,E12.3E3) 100FORMAT(2(2X,I4,2X,F9.2),2I5,2E12.3) 100FORMA

13、T(1X,I3,1X,F5.2/1X,I4,1X,F9.2/I5,I6,E12.3,E12.3E3)12. 已知：i=315,j=512,a=43.57,b=-15.9,c=123.456,d=-5231.573。給定輸出語句：WRITE(*,100)i,j,a,b,c,d對下面不同的FORMAT語句，寫出輸出結果： 100 FORMA T(1X,I4,2X,I5,2X,2(F7.2,2X),F10.1) 100 FORMAT(1X,2(I4,2X),2( F7.2,2X),'OLD )13給定下面程序：READ 10,i,j,k,m,n10 FORMAT(1X,I3, T5,I3,I

14、4,TL8,I2,TR5,I3)PRINT *,i,j,k,m,nEND程序執(zhí)行時,輸入數(shù)據(jù)：1234567890987654321 /程序執(zhí)行后，變量i,j,k,m,n的值是什么？、填空題下面程序是求任意兩個整型數(shù)M、N的和，要求輸出形式為：M+N=和，如 M=3，N=8，則輸出形式為：M+N=11。請?zhí)羁?。IMPLICIT NONEINTEGER:M,N,SREAD*,M,NS=M+NPRINT *, M+N= ',SEND習題五-、選擇題1、 已知：A=4.9,B=5.5,C=8.0,L=.FALSE.,則其值為'假'的表達式是 。A) A<B.OR.NOT

15、.B<CB) L.OR.A<C.NEQV .LC) 13>C.EQV.NOT.LD) L.EQV.A<B+C2、 以下不合法的 Visual Fortran表達式是 。A) A<B<C<DB) .NOT.(X<0.0)C) A>=B.EQV .C>DD) A.AND.B.AND.C3、 以下能表示條件“X、丫中至少有一個大于 0且小于等于10”的邏輯表達式是 A) (0<X<=10).OR.(0<Y<=10)B) (0<X.AND.X<=10).AND.(0<Y.AND.Y<=10)C)

16、 (0<X.AND.X<=10).OR.(0<Y.AND.Y<=10)D) 0< (X.OR.Y)<= 104、 以下能表示條件“X、丫中至少有一個大于等于10或小于5”的邏輯表達式是 A) .NOT. (X>=10.0R.X<5).0R.Y>=10.0R.Y<5B) (X>=10.0R.X<5).0R.(Y>=10.0R.Y<5)C) (X.0R.Y)>=10.0R.(X.0R.Y)<5D) (X>=10.AND.X<5).AND.(Y>=10.AND.Y<5)5、 以下正

17、確的邏輯表達式是 。(其中A,B,C,D,X均是數(shù)值型變量)A) (A+B ) .AND. C<A+CB) (A+B)=C<DC) A<=B.AND.C>=XD) (A+B)>C AND (C+D)<06、要實現(xiàn)“當X>Y時，Z=X+Y ,否則Z=X-Y ”。以下能完成該功能的程序段是 A) IF (X>Y) Z=X+YELSE Z=X-YB) IF (X>Y) THEN Z=X+YZ=X-YC) Z=X-YIF (X>Y) Z=X+YD) IF (X>Y)Z=X+YELSEZ=X-YEND IF7、 下面程序段中有錯誤的語句是

18、 。A) IF A>B THENB) A=BC) ELSEB=AD) END IF8下面程序段中有錯誤的語句是 。A) IF (A.GT.B) THENB) A=BC) ELSE B=AD) END IF9、下面程序段中有錯誤的語句是 。READ *,XA) IF (X<O.O)THENY=1.0B) ELSE IF (X<=10.0) THENY=2.0C) ELSEY=3.0D) END IFEND IFPRINT *,YEND10、下面程序段中有錯誤的語句是 。LOGICAL: LA) L=0.1.GT.1.0B) IF(L=.FALSE.) C=0.0C) D=1.0

19、-0.1D) IF (1.0>0.1) D=0.1-1.0PRINT *,D , CEND二、運行程序題1、己知整型變量 M=3，N=10，K=0，J=0,閱讀下面程序段:IF (MOD(M,N)/=0) THENK=N/MIF (K>M) THENJ=KK=MM=JEND IFEND IFPRINT *,M，K其運行結果是：_33。2、閱讀下面程序：IMPLICIT NONEINTEGER:I,JI=2J=0IF (I>=2) J=1IF (J=1) I=JIF (I<2) I=I+1PRINT *,I，JEND其運行結果是：21。3、閱讀下面程序：IMPLICIT

20、NONEINTEGER:I,J,K,MI=10J=20K=30M=-32768IF (l>M) M=IIF (J>M) M=JIF (K>M) M=KPRINT *,MEND其運行結果是：_304、閱讀下面程序：IMPLICIT NONEREAL:X,YREAD *, XIF (X<0.0) THENY=0.0ELSE IF (X<10.0) THENY=1.0/XELSEY=10.0END IFPRINT *,YEND若從鍵盤輸入2.0/則程序的運行結果是：0.5 。5、閱讀下面程序：IMPLICIT NONELOGICAL: L1,L2 ,L 3,L4L仁.T

21、RUE.L2=.FALSE.L3=.TRUE.L4=.NOT.L2.OR.L1.AND.NOT.L3PRINT *,L4END則運行結果是： T。6、閱讀下面程序：IMPLICIT NONELOGICAL:A ，B，LA=.FALSE.B=.TRUE.L=.NOT.A.AND.BPRINT *,LEND則運行結果是：T 。7、閱讀下列程序，若運行中的輸入值分別為2.5和-1.0,則兩次運行結果分別是IMPLICIT NONELOGICAL:LREAL:XL=.TRUE.READ *,XIF (X<0.) THENL=.FALSE.ELSEPRINT *,XEND IFIF (.NOT.L

22、) PRINT *, -XEND當輸入的數(shù)值為2.5/則輸出結果為：2.500000 。當輸入的數(shù)值為-1.0/則輸出結果為：1.000000 。8閱讀下面程序：IMPLICIT NONEINTEGER: X=1,Y=0,A=2,B=2SELECT CASE(X)CASE(1)SELECT CASE(Y)CASE(10)A=A+1CASE(1)B=B+1END SELECTCASE(2)A=A+1;B=B-1CASE(3)A=A-1; B=B+1END SELECTPRINT *,' A= ' ,A, ' B= ' ,BEND程序運行結果為：_A=2B=2 。9

23、、閱讀下面程序：IMPLICIT NONELOGICAL: P,QREAL:X=0.0,Y=0.0READ ( *,' ( 1X,2L4 ) ') P, QIF( P ) X = 1.0IF( Q ) Y = 1.0PRINT *, X, YEND0.0 。當從鍵盤輸入 FFTTFFTTFFTT,貝U X與Y的值為 0.010、閱讀下面程序：IMPLICIT NONEINTEGER :A,B,C,XREAD *,A, B, CX=A+2+B+C*2SELECT CASE ( X )CASE(:7)PRINT *,“ A ”CASE(8 : 10)PRINT *,“ B ”CAS

24、E ( 11: 15 )PRINT *,“ C”CASE(16:)PRINT *,“ N ”END SELECTEND若從鍵盤輸入0,1,2/其運行結果為： A ;若從鍵盤輸入1,2,3/其運行結果為： C ；若從鍵盤輸入3,2,1/其運行結果為：B 。11. 給出下列關系表達式和邏輯表達式，判定表達式的值。25.5>54(35+3*8).GE.75F(2.5,5.7)>(1.2,3.5)錯誤的表達式(25.9,58.4).NE.(58.4,25.9)Tbanana ' <' bananas 'T12+2*5>20 .AND. .NOT.( &#

25、39; pen' / ' s' <' pencil '.ORT45+5.3>80)三、填空題1、下面程序的功能是求方程X*2+BX+C=0 的實根，請?zhí)羁铡MPLICIT NONEREAL:B,C,X1,X2READ (*,*) B,CD=B*2-4*CIF( _ D>0 _) THENIF( _D/=0 _) THENX仁-B/2.0+SQRT(D)/2.0X1= -B/2.0-SQRT(D)/2.0PRINT *,X1,X2ELSEX1= -B/2.0X2=X1PRINT *,X1,X2ENDIFELSEPRINT *,'

26、 ERROE 'ENDIFEND2、下面程序的功能是求以下函數(shù)的函數(shù)值，請?zhí)羁铡?X -lnXY =X *3 +6(X : 0)(0 = X = 10)(X 10)IMPLICIT NONEREAL:X,YREAD(*,*) XIF (X<0) THENY=3*X-LOG(ABS(X)ELSE IF ( - x>=0 .AND. x<=10_) THENY=X*3+6ELSEY=1ENDDOPRINT *,YEND3、 下面程序的功能是判斷一個整數(shù)是否能被3或7整除，若能被整除，則輸出YES'，否則 輸出NO請?zhí)羁?。IMPLICIT NONEINTEGER:MREAD(*,*) MIF(mod(M,3)=0 .OR. mod(M,7)=0) THENPRINT *, ' YES 'ELSEPRINT *,' NO 'ENDIFEND4、 下面程序是判斷 YEAR是否為閏年，是輸出YES '，不是輸出NO '.IMPLICIT NONEINTEGER :YEARCHARACTER ( LEN=3):RES= ' NO'READ *,YEARIF (MOD(YEAR,100)=0) THENIF (MOD(YEAR, 400 )=0) RE