fortran课后习题答案.pdf

《fortran课后习题答案.pdf》由会员分享，可在线阅读，更多相关《fortran课后习题答案.pdf（12页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、第 一 章 FORTRAN程 序 设 计 基 础 第 15页 1、21 简 述 程 序 设 计 的 步 骤。“程 序 设 计”：反 映 了 利 用 计 算 机 解 决 问 题 的 全 过 程，通 常 要 经 过 以 下 四 个 基 本 步 骤：(1)分 析 问 题，确 定 数 学 模 型 或 方 法；(2)设 计 算 法，画 出 流 程 图；(3)选 择 编 程 工 具，编 写 程 序；(4)调 试 程 序，分 析 输 出 结 果。2.什 么 是 算 法？它 有 何 特 征？如 何 描 述 算 法？解 决 问 题 的 方 法 和 步 骤 称 为 算 法。算 法 的 五 个 特 征：(1)有 穷

2、 性。(2)确 定 性。(3)有 效 性。(4)要 有 数 据 输 入。(5)要 有 结 果 输 出。算 法 的 描 述 有 许 多 方 法，常 用 的 有：自 然 语 言、一 般 流 程 图、N S 图 等。第 二 章 顺 序 结 构 程 序 设 计 第 29 页 1、2、3、4、5、6、7、8、91 简 述 符 号 常 量 与 变 量 的 区 别？符 号 常 量 在 程 序 运 行 过 程 中 其 值 不 能 改 变。变 量 在 程 序 运 行 过 程 中 其 值 可 以 改 变。2.下 列 符 号 中 为 合 法 的 F0RTRAN90标 识 符 的 有 哪 些？(1)A123B(2)M

3、%10(3)GC2(4)5YZ(5)G+Y(6)F(G)(7)C0S(G)(8)A.2(9)A ONE(10)U.S.S.R.(II)mi nG2(12)PRINT3.下 列 数 据 中 哪 一 些 是 合 法 的 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);且 1=2,J=3(INTEGER),求 下 列 表 达 式 的 值:(1)AGB+C表 达 式 的 值：11(2)AG(B+C)表 达 式 的 值：16(3)B/CGA表

4、 达 式 的 值：1.2(4)B/(CGA)表 达 式 的 值:0.3(5)A/I/J表 达 式 的 值:0.33(6)I/J/A表 达 式 的 值:0 AGBGGI/AGGJG2 表 达 式 的 值:4.5(8)C+(B/A)GG3/BG2.表 达 式 的 值:7.25(9)AGGBGGI表 达 式 的 值：5125.将 下 列 数 学 表 达 式 写 成 相 应 的 FORTRAN表 达 式：(D1E-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+l)(5)EGP

5、(AGGGG2+BGG+C)(6)COS(GGY/SQRT(GGG+YGY)GG36,用 FORTRAN语 句 完 成 下 列 操 作：(1)将 变 量 I 的 值 增 加 1。1=1+1(2)I的 立 方 加 上 J,并 将 结 果 保 存 到 I 中。匚 IGG3+J 将 E 和 F 中 大 者 存 储 到 G 中。G=MaG(E,F)(4)将 两 位 自 然 数 N 的 个 位 与 十 位 互 换，得 到 一 个 新 的 数 存 储 到 M 中(不 考 虑 个 位 为 0 的 情 况)M=MOD(N,1O)G1O+N/1O第 三 章 选 择 结 构 程 序 设 计 第 43页 1、2、3

6、、5、6、7、91.分 析 下 列 程 序 运 行 结 果(1)LOGICALPINTEGERI,II,12,13P=.FALSE.READG,II1=MOD(I,10)I2=M0D(I/10,10)13=1/100IF(I1+I3.EQ.2GI2)P=.TRUE.PRINTG,PEND输 入 123时，输 出：T输 入 132时，输 出：F REALG,Y,ZREADG,G,YIF(GGY)0.AND.(G.NE.1.0)THENZ=10.0ELSEIF(GGY0.0)THENZ=0.0ELSEZ=-l.0END IFWRITE(G,G)ZEND输 入 1,4,输 出：-1.0输 入 4,1

7、,输 出：10.0输 入 1,-4,输 出：0.0INTEGERG,Y,A,BG=1Y二 0A=3B=4SELECTCASE(G)CASE(l)SELECTCASE(Y)CASE(O)A二 A+lCASE(l)B=B+1ENDSELECTCASE(2)A=A+1B二 BTCASEDEFAULTA=A+BB=A+BENDSELECTPRINTG,A二,A,B=,BEND输 出 结 果 是：A=4B=42 将 下 列 数 学 运 算 转 换 成 对 应 的 FORTRAN表 达 式 或 写 出 语 句。(1)G(3,6)FORTRAN 表 达 式:G0.AND.G6(2)2.5 今=2.5.AND

8、.yv=8(3)G+y MZ+6F0RTRAN 表 达 式：(G+y)/=(z+6)(4)2G+4y+Gy=0F0RTRAN 表 达 式：2GG+4Gy+GGy=0(5)|a-b c2 FORTRAN 表 达 式:ABS(a-b)=cGc 如 果 Gy或 Gz,则 min=GFORTRAN 语 句：IF(Gy.OR.G0.AND.bO.AND.cO.AND.(a+b)c.AND.(b+c)a.AND.(c+a)b(8)a,b 之 一 为 0 但 不 同 时 为 0FORTRAN 表 达 式:(a=0.OR.b=0).AND.(.NOT.(a=0.AND.b=0)如 果 m 与 n 相 等，则

9、k 为 1,否 则 k 为 0FORTRAN 语 句：IF(m=n)THENk=lELSEk=0ENDIF(10)a,b 是 否 相 同 号 FORTRAN 表 达 式：aGb03.如 果 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 逻 辑 表 达 式 的

10、值：.FALSE.(4)C/2.0+D.LT.A.AND.NOT.TRUE.OR.C.EQ.D 逻 辑 表 达 式 的 值:,FALSE.(5)(C.GT.D).OR.C.NOT.(A+B.LT.D)该 表 达 式 错 误(6)(A.LT.B).AND.(BLT.A)逻 辑 表 达 式 的 值:.FALSE.5、某 运 输 公 司 在 计 算 运 费 时，按 照 运 输 距 离 S 对 运 费 打 一 定 的 折 扣 D,其 标 准 如 下:S250km D=0250 S500km D=2.5%500 S1000km D=4.5%1000 wS20XXkm D=7.5%20XX S2500km

11、 D=9.0%2500 S3000km D=12.0%3000km S D=15.0%编 写 程 序，输 入 基 本 运 费 Price，货 物 重 量 Weight，距 离 S，计 算 总 运 费 Freight.其 中 Fre i ght=Pr i ceGWe i ghtGSG(1-D)。REALPrice,Weight,S,Freight,DREADG,Price,Weight,SIF(S25O)T1IEND=0ELSEIF(S500)THEND=0.025ELSEIF(S1000)THEND=O 045ELSEIF(S20XX)THEND=0.075ELSEIF(S2500)THEND

12、=0.09ELSEIF(S3000)THEND=0.12ELSED=0.1 5ENDIFFreight=PriceGW eightGSG(l-D)WRITE(G,G)F re ig h t=,F re ig h tEND6、编 程 判 断 自 然 数 M 是 否 为 N 的 因 子，是 输 出 YES不 是 输 出 N0INTEGERM,NREAD(G,G)M,NIF(MOD(N,M)=0)THENWRITE(G,G)YESELSEWRITE(G,G)“NO”END IFEND7、编 程 判 断 两 位 整 数 M 是 否 为 守 形 数。所 谓 守 形 数 是 指 该 数 本 身 等 于 自

13、 身 平 方 的 低 位 数，如 为 25,=625,而 625的 低 两 位 为 25。是 输 出 YES不 是 输 出 NO。INTEGERMREAD(G,G)MIF(MOD(MGM,1OO)=M)THENWRITE(G,G)YES”ELSEWRITE(G,G)NOEND cos(x+1)-15：x:029 已 知 y=噌+1)1 从 键 盘 输 入 G,求 出 y 的 值 215：REALG,Y.x 其 他 ENDIFREAD(G,G)G25是 守 形 数，因IF(G-15.AND.G=0.AND.G15.AND.G20)THENY=GGG(1.0/3)ELSEY=GGGEND IFWR

14、ITE(G,G)Y=”,丫 END第 四 章 循 环 结 构 程 序 设 计 第 64页 1、2、5、11、12L 写 出 下 列 程 序 的 执 行 结 果 1.0(2)811 k=6(4)145 5167P652.利 用 下 式 计 算 n 的 近 似 值。H 111 1 11(n=1000)4 3 5 7 4n-3 4n-lIMPLICITNONEREALPIINTEGERIPI=ODO1,NPPI+1.0/(4GI-3)-l.0/(4GI-l)ENDDOPRINTG,PIG4ENDP66习 题 5IMPLICITNONEINTEGERN,S,M,ILOGICALFLAGDON=3,99

15、9,2FLAG=.TRUE.M=SQRT(REAL(N)DOI=2,MIF(MOD(N,1)=0)THENFLAG=.FALSE.EGITENDIFENDDOIF(FLAG)THENS=N/100+M0D(N/10,10)+M0D(N,10)IF(MOD(S,2)/=0)PRINTG,NENDIFENDDOENDP.66习 题 11REALYO,Y1READ(G,G)GYOGYl=2GY0/3+G/(3GY0GG2)DOWHILE(ABS(Yl-YO)lE-5)YO=Y1Yl=2GY0/3+G/(3GY0GG2)ENDDOPRINTG,Y1ENDP.66习 题 12Reala,b,m,Gf(G)=GGG3-GGG2-lReadG,a,bDowhile(Abs(a-b)le-6)m=(a+b)/2If(f(a)Gf(m)0)the na=mElseb=mEndifEn ddoPrin tG,(a+b)/2END第 五 章 F0RTRAN90数 据 类 型 第 88页 4、104有 一 个 三 角 形，顶 点 为 G,Y,Z,其 坐 标 分 别 为(1.5,2.0),(4.5,4.5),(18.0,10.5)重 心 坐 标=(G+Y+Z)/3利 用 复 数 计 算)oCOMPLEGG,Y,Z,W求 三 角 形 的 面 积 和 重 心（提 示: