最新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、判定下面整数，指出哪些是合法整数3、A01/02、alpha、date(1)，哪些是非法整数？说明原因。-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、数，指出哪些是合法实数，哪些是非法实数？说明原因。-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.将下列代数式用Ax0 By0 CA2 B2Visual Fortran表达式描述:-1ey2sinz 4s in 3A-3si nA+si n3Asin(p _a)sin(p _b)sin(p _c)si np2. 执行下列赋值语句后，变量中的值。变量的类型遵循I N规则。设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,执行下面表控输入语句：READ*, i,jREAD*, k,l,mREAD*, n按以下格式输入 8 个数据：2526 50 45 57 4327 28输入语句执行后,每个变量取何值？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语句应如何 输入数据。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)执行READ语句，输入以下5组数据：12345678901234567890 /132243心56576878 /:-12,3X3 V"-,2-3455/："1232;45A1893215/1："23;324;445;555;777 /READ语句执行后，每组i,j,k,m,n的值分别是多少？10. 给定下面 READ和FORMAT语句：READ 100,a,b,c100FORMAT(F

11、5.2,F5.1,E8.3)执行READ语句，输入以下5组数据：12345678901234567890 /123,456789012,345890 /1322、43心565乍+28/123E2343："7"23455/1.23245.E3.1893-215/READ语句执行后，每组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程序执行时,输入数据：1234567890987654321 /程序执行后，变量i,j,k,m,n的值是什么？、填空题下面程序是求任意两个整型数M、N的和，要求输出形式为：M+N=和，如 M=3，N=8，则输出形式为：M+N=11。请填空。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均是数值型变量)A) (A+B ) .AND. C<A+CB) (A+B)=C<DC) A<=B.AND.C>=XD) (A+B)>C AND (C+D)<06、要实现“当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当输入的数值为2.5/则输出结果为：2.500000 。当输入的数值为-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 的实根，请填空。IMPLICIT 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、下面程序的功能是求以下函数的函数值，请填空。3X -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、 下面程序的功能是判断一个整数是否能被3或7整除，若能被整除，则输出YES'，否则 输出NO请填空。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