fortran課后習(xí)題答案

1、1第一章FTRAN程序設(shè)計基礎(chǔ)第15頁1、21簡述程序設(shè)計的步驟。“程序設(shè)計”：反映了利用計算機解決問題的全過程，通常要經(jīng)過以下四個基本步驟：(1)分析問題，確定數(shù)學(xué)模型或方法；(2)設(shè)計算法，畫出流程圖；(3)選擇編程工具，編寫程序；(4)調(diào)試程序，分析輸出結(jié)果。2.什么是算法？它有何特征？如何描述算法？解決問題的方法和步驟稱為算法。算法的五個特征：(1)有窮性。(2)確定性。(3)有效性。(4)要有數(shù)據(jù)輸入。(5)要有結(jié)果輸出。算法

2、的描述有許多方法，常用的有：自然語言、一般流程圖、N－S圖等。第二章順序結(jié)構(gòu)程序設(shè)計第29頁1、2、3、4、5、6、7、8、91簡述符號常量與變量的區(qū)別？符號常量在程序運行過程中其值不能改變。變量在程序運行過程中其值可以改變。2.下列符號中為合法的FTRAN90標(biāo)識符的有哪些(1)A123B(2)M%10(3)X_C2(4)5YZ(5)XY(6)F(X)(7)COS(X)(8)A.2(9)‘A’ONE(10)U.S.S.R.(11)mi

3、n2(12)PRINT3.下列數(shù)據(jù)中哪一些是合法的FTRAN常量？(1)987(2).0(3)25.82(4)356231(5)3.57E2(6)3.57E2.1(7)3.57E2(8)357E24.已知A=2B=3C=5(REAL)；且I=2J=3(INTEGER)求下列表達式的值:(1)ABC表達式的值:11(2)A(BC)表達式的值:16(3)BCA表達式的值:1.2(4)B(CA)表達式的值:0.3(5)AIJ表達式的值:0.3

4、3(6)IJA表達式的值:0(7)ABIAJ2表達式的值:4.5(8)C(BA)3B2.表達式的值:7.25(9)ABI表達式的值:5125.將下列數(shù)學(xué)表達式寫成相應(yīng)的FTRAN表達式：(1)1E2（2）(BSQRT(BB4AC)(2A)(3)1XXX2X323(4)COS(ATAN((A3B3)(1.03)(CC1)))(5)EXP(AX2BXC)(6)COS(XYSQRT(XXYY))36.用FTRAN語句完成下列操作：(1)將變量

5、I的值增加1。I=I1(2)I的立方加上J并將結(jié)果保存到I中。I=I3J(3)將E和F中大者存儲到G中。G=Max(EF)(4)將兩位自然數(shù)N的個位與十位互換，得到一個新的數(shù)存儲到M中(不考慮個位為0的情況)M=MOD(N10)10N10第三章選擇結(jié)構(gòu)程序設(shè)計第43頁1、2、3、5、6、7、91分析下列程序運行結(jié)果(1)LOGICALPINTEGERII1I2I3P=.FALSE.READII1=MOD(I10)I2=MOD(I1010

6、)I3=I1003(5)|ab|≤c2FTRAN表達式:ABS(ab)0..b0..c0..(ab)c..(bc)a..(ca)b(8)ab之一為0但不同時為0FTRAN表達式:(a==0..b==0)..(.NOT.(a==0..b==0))(9)如果m與n相等則k為1否則k為0FTRAN語句:IF(m==n)THENk=1ELSEk=0ENDIF(10)ab是否相同號FTRAN表達式:ab03.如果A=2.5B=7.5C=5.0D=

7、6.0L=.TRUE.M=.FALSE.請求出下列邏輯表達式的值。(1)(AB).LT.(CD)..A.EQ.3.5邏輯表達式的值:.FALSE.(2)AB2.0.NE.CD..C.NE.D邏輯表達式的值:.TRUE.(3).NOT.L..C.EQ.D..M邏輯表達式的值:.FALSE.(4)C2.0D.LT.A...NOT..TRUE...C.EQ.D邏輯表達式的值:.FALSE.(5)(C.GT.D)..C.NOT.(AB.LT.D

8、)該表達式錯誤(6)(A.LT.B)..(B.LT.A)邏輯表達式的值:.FALSE.5、某運輸公司在計算運費時，按照運輸距離S對運費打一定的折扣D，其標(biāo)準(zhǔn)如下：S250kmD=0250≤S500kmD=2.5%500≤S1000kmD=4.5%1000≤S2000kmD=7.5%2000≤S2500kmD=9.0%2500≤S3000kmD=12.0%3000km≤SD=15.0%編寫程序，輸入基本運費Price，貨物重量Weight

9、，距離S，計算總運費Freight。其中Freight=PriceWeightS(1D)。REALPriceWeightSFreightDREADPriceWeightSIF(S250)THEND=0ELSEIF(S500)THEND=0.025ELSEIF(S1000)THEND=0.045ELSEIF(S2000)THEND=0.075ELSEIF(S2500)THEND=0.09ELSEIF(S3000)THEND=0.12ELS