《FORTRAN习题答案》由会员分享，可在线阅读，更多相关《FORTRAN习题答案（14页珍藏版）》请在金锄头文库上搜索。
1、习题二一、问答题1. 给出下面变量名称,哪些是合法变量？哪些是非法变量？说明原因。Count、 num_2、x&y、4x+5y、china-suzhou、$us、AbCdE 、Mr.bai、t5 、_another、school_class_25、#125 、2002Y、A01/02、alpha、date(1) 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、58D85、+0.E-0、-00000.001E5、5,443,223.44、-12 34E+2、+ 18.5E 18、2.5E42习题三一、选择题1下面是 Visual Fortran 中正确的表达式是 。（A）A*COS(X)+ B （B）2*EXP(2*X)/SQRT(16.0)（C）B 2-4AC （D）MOD（24.5,0.5）2下面算术赋值语句中正确的语句是 。（A）M*N=(X-Y)/Z （B ）+R=A+B/C
3、（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. 将下列代数式用 Visual Fortran 表达式描述： 4sin3A-3sinA+sin3A 2执行下列赋值语句后，变量中的值。变量的类型遵循 IN 规则。设 I=6，K=2 ，N=-3，T=7.5，Y=1.5L=T/Y/2.0 2 M=I/K*Y+1.5 6Z=I*K+Y 13.5 A=I*K/N+T/Y -7.0习题四一、运行程序题20BAyx zsine21ypi)csin()b()a(1. 判断下列输入输出语
4、句是否正确？(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 ( *,44 ) NF, G, H, I, J44 FORMAT ( 4X, I5, 2 ( F6.2, I5 ) ) 2. 已知整型变量 i、j、
5、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, 2I5 )56 12745126(3) 100 FORMAT ( 1X, 2 ( I5,2X ) / ) 56 127451264. 写出输出
6、结果，设 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 ) 512 0.00E+00 18.34 -2.14112.46 -2174.57(2) 100 FORMAT ( 3X,2 ( I4,2X ),2 ( F10.2,2X ),NEW ) 512 0.00E+00 18.34 -2.14 NEW 112.46 -2174.57 NEW5. 有读入语句：READ ( *,100 ) I,J,B
7、 设输入的值为：I=63，A=76.5，J=122，B=156.783。如用下面的 FORMAT 语句应如何输入数据。(1) 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/I5/F8.2 )(6) 100 FORMAT ( I5,F8.1 )6IMPLICIT NONEINTEGER:I,J,KREAD *
8、,I,JK=I/JPRINT *,K=,KEND当输入 9，2 时，输出结果为 K=4 。7IMPLICIT NONEREAL:I,J,KREAD(*,*)I,JK=I/JWRITE(*,*)K=,KEND当输入 9，2 时，输出结果为 K=4.500000 。8下面是一些非法的输入输出语句和格式说明语句。说明其非法原因。READ * i,j,kREAD 10 i,j,kREAD *,i=,i,j=,jREAD(*,10) i,j,125READ(*,(“i=”,I3,“j=”,I3) i,jREAD(I3,I3),*) i,j10 FORMAT(1X,I3,:,I3,:,I3)PRINT *
9、 i,j,kPRINT 10 i,j,kWRITE *,i=,i,j=,jWRITE(20,*) i,j,125PRINT(*,(“i=”,I3,“j=”,I3) i,jWRITE(I3,I3),*) i,j20 FORMAT(1X,I3,I3 I3)9给定下面 READ 和 FORMAT 语句：READ 100,i,j,k,m,n100 FORMAT(I2,I3,2X,I2,1X,I4.1,I3)执行 READ 语句,输入以下 5 组数据：123456789012345678901322435657687812,3437,234551232;45A1893215123;324;445;555
10、;777READ 语句执行后,每组 i,j,k,m,n 的值分别是多少？10给定下面 READ 和 FORMAT 语句：READ 100,a,b,c100 FORMAT(F5.2,F5.1,E8.3)执行 READ 语句,输入以下 5 组数据：12345678901234567890123,456789012,345890132243565E+28123E23437234551.23245.E3.1893215READ 语句执行后,每组 a,b,c 的值分别是多少？11.已知：i=25,j=-125,k=-4725,m=-31500,a=48.57,x=-1.5E+11,y=158.895E-
11、11。给定输出语句：WRITE(*,100)i,a,j,b,k,m,x,y对下面不同的 FORMAT 语句,写出输出结果： 100 FORMAT(1X,I3,1X,F5.2,1X,I4,1X,F9.2,I5,I6,E12.3,E12.3E3) 100 FORMAT(3X,I4,1X,F9.2,1X,I4,1X,F9.2,2I5,2E12.3) 100 FORMAT(i=,I3,a=,F5.2,j=,I4,b=,F9.2,k=,I5,m=,I6, x=,E12.3,y=,E12.3E3) 100 FORMAT(2(2X,I4,2X,F9.2),2I5,2E12.3) 100 FORMAT(1X,
12、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 FORMAT(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,n 10 FORMAT(1X,I3, T5,I3,I4,TL8,I2,
13、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,N S=M+N PRINT *, M+N= ,S END习题五一、选择题1、已知:A=4.9,B=5.5,C=8.0,L=.FALSE.,则其值为假的表达式是 。A) AC.EQV.NOT.LD) L.EQV.A=B.EQV.C
14、DD) A.AND.B.AND.C3、以下能表示条件“X、Y 中至少有一个大于 0 且小于等于 10”的逻辑表达式是 。A) (0=10.OR.X=10.OR.Y=10.OR.X=10.OR.Y=10.0R.(X.OR.Y)=10.AND.X=10.AND.Y=XD) (A+B)C AND (C+D)Y 时，Z=X+Y，否则 Z=X-Y”。以下能完成该功能的程序段是 。A) IF (XY) Z=X+YELSE Z=X-YB) IF (XY) THEN Z=X+YZ=X-YC) Z=X-YIF (XY) Z=X+YD) IF (XY)Z=X+YELSEZ=X-YEND IF7、下面程序段中有错误的语句是 。A) IF AB THENB) A=BC) ELSEB=AD) END IF8、下面程序段中有错误的语句是 。A) IF (A.GT.B) THENB) A=BC) ELSE B=AD) END IF9、下面程序段中有错误的语句是 。READ *,XA) IF (X0.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 (KM) THENJ=KK=MM=
