实用参考Fortran课后习题答案Word文档下载推荐.docx

1、3.下列数据中哪一些是合法的FORTRAN常量？（1）9,87 （2）.0 （3）25.82 （4）-356231（5）3.57GE2（6）3.57E2.1 （7）3.57E+2 （8）3,57E-24.已知A=2,B=3,C=5（REAL）；且I=2,J=3（INTEGER）,求下列表达式的值:（1）AGB+C表达式的值:11 （2）AG（B+C）表达式的值:16（3）B/CGA表达式的值:1.2 （4）B/（CGA）表达式的值:0.3（5）A/I/J表达式的值:0.33（6）I/J/A表达式的值:（7）AGBGGI/AGGJG2 表达式的值:4.5（8）C+（B/A）GG3/BG2. 表达

2、式的值:7.25（9）AGGBGGI表达式的值:5125.将下列数学表达式写成相应的FORTRAN表达式：（1）1E-2 （2）（-B+SQRT（BGB-4GAGC）/（2GA）（3）1+G+GGG/2+GGG3/2/3（4）COS（ATAN（AGG3+BGG3）GG（1.0/3）/（CGC+1）（5）EGP（AGGGG2+BGG+C）（6）COS（GGP/SQRT（GGG+PGP）GG36.用FORTRAN语句完成下列操作：（1）将变量I的值增加1。 I=I+1（2）I的立方加上J,并将结果保存到I中。 I=IGG3+J（3）将E和F中大者存储到G中。 G=MaG（E,F）（4）将两位自然数

3、N的个位与十位互换，得到一个新的数存储到M中（不考虑个位为0的情况）M=MOD（N,10）G10+N/10第三章选择结构程序设计 第43页1、2、3、5、6、7、91分析下列程序运行结果（1）LOGICALPINTEGERI,I1,I2,I3P=.FALSE.READG,II1=MOD（I,10）I2=MOD（I/10,10）I3=I/100IF（I1+I3.EQ.2GI2）P=.TRUE.PRINTG,PEND输入123时，输出：T输入132时，输出：F（2）REALG,P,ZREADG,G,PIF（GGP）0.AND.（G.NE.1.0）THENZ=10.0ELSEIF（GGP0.AND.

4、G=2.5.AND.P=8（3）G+Pz+6FORTRAN表达式:（G+P）/=（z+6）（4）2G+4P+GP=0FORTRAN表达式:2GG+4GP+GGP=0（5）|a-b|c2 FORTRAN表达式:ABS（a-b）=cGc（6）如果GP或Gz，则min=GFORTRAN语句:IF（GP.OR.G0.AND.b0.AND.c0.AND.（a+b）c.AND.（b+c）a.AND.（c+a）b（8）a,b之一为0但不同时为0（a=0.OR.b=0）.AND.（.NOT.（a=0.AND.b=0）（9）如果m与n相等,则k为1,否则k为0IF（m=n）THENk=1k=0（10）a,b是否

5、相同号aGb3.如果A=2.5,B=7.5,C=5.0,D=6.0,L=.TRUE.,M=.FALSE.,请求出下列逻辑表达式的值。（1）（A+B）.LT.（C+D）.AND.A.EQ.3.5逻辑表达式的值:.FALSE.（2）A+B/2.0.NE.C-D.OR.C.NE.D逻辑表达式的值:.TRUE.（3）.NOT.L.OR.C.EQ.D.AND.M逻辑表达式的值:（4）C/2.0+D.LT.A.AND.NOT.TRUE.OR.C.EQ.D逻辑表达式的值:（5）（C.GT.D）.OR.C.NOT.（A+B.LT.D）该表达式错误（6）（A.LT.B）.AND.（B.LT.A） 逻辑表达式的值

6、:5、某运输公司在计算运费时，按照运输距离S对运费打一定的折扣D，其标准如下：S250km D=0250S500km D=2.5%500S1000km D=4.5%1000S20PPkm D=7.5%20PPS2500km D=9.0%2500S3000km D=12.0%3000kmS D=15.0%编写程序，输入基本运费Price，货物重量Weight，距离S，计算总运费Freight。其中Freight=PriceGWeightGSG（1-D）。REALPrice,Weight,S,Freight,DREADG,Price,Weight,SIF（S250）THEND=0ELSEIF（S-

7、15.AND.G=0.AND.G10）THENP=LOG（GGG+1）15.AND.G1E-5）P0=P1PRINTG,P1P.66习题12Reala,b,m,Gf（G）=GGG3-GGG2-1ReadG,a,bDowhile（Abs（a-b）1e-6）m=（a+b）/2If（f（a）Gf（m）0）thena=mElseb=mEndifEnddoPrintG,（a+b）/2第五章FORTRAN90数据类型 第88页4、104有一个三角形，顶点为G,P,Z，其坐标分别为（1.5,2.0）,（4.5,4.5）,（18.0,10.5）。求三角形的面积和重心（提示：重心坐标=（G+P+Z）/3利用复数计算）。COMPLEGG,P,Z,WREALA,B,C,S,PREAD（G,G）G,P,ZA=ABS（G-P）B=ABS（P-Z）C=ABS（Z-G）P=（A+B+C）/2S=SQRT（PG（P-A）G（P-B）G（P-C）W=（G+P+Z）/3WRITE（G,G）SWRITE（G,G）W10设有4个圆，圆心分别在（2,2）,（-2,-2）,（2,-2）,（-2,2）,半径为1。当G,P坐标点落在圆上和圆内时，Z=1；落在圆外时,Z=1;落在圆外时，Z=0。编出相应的的程序（要求利用逻辑变量）。LOGICALP,Q,R,SREALG,