《fortran课后习题的答案》由会员分享，可在线阅读，更多相关《fortran课后习题的答案（11页珍藏版）》请在金锄头文库上搜索。
1、 .wd.第一章 FORTRAN程序设计根基 第15页 1、21简述程序设计的步骤。“程序设计：反映了利用计算机解决问题的全过程，通常要经过以下四个 基本步骤：(1)分析问题，确定数学模型或方法；(2)设计算法，画出流程图；(3)选择编程工具，编写程序；(4)调试程序，分析输出结果。2. 什么是算法它有何特征若何描述算法解决问题的方法和步骤称为算法。算法的五个特征：(1) 有穷性。 (2) 确定性。 (3) 有效性。 (4) 要有数据输入。(5) 要有结果输出。算法的描述有许多方法，常用的有：自然语言、一般流程图、NS图等。第二章 顺序构造程序设计 第29页 1、2、3、4、5、6、7、8、9
2、1简述符号常量与变量的区别符号常量在程序运行过程中其值不能改变。变量在程序运行过程中其值可以改变。2. 以下符号中为合法的FORTRAN 90标识符的有哪些?(1) A123B (2) M%10 (3) X_C2 (4) 5YZ(5) X+Y(6) F(X)(7) COS(X) (8) A.2(9) AONE (10) U.S.S.R.(11) min*2 (12) PRINT 3. 以下数据中哪一些是合法的FORTRAN常量(1) 9,87 (2) .0 (3) 25.82(4) -356231(5) 3.57*E2 (6) 3.57E2.1(7) 3.57E+2(8) 3,57E-24.
3、A=2,B=3,C=5(REAL)；且I=2,J=3(INTEGER),求以下表达式的值:(1) A*B+C 表达式的值: 11(2) A*(B+C) 表达式的值: 16(3) B/C*A 表达式的值: 1.2(4) B/(C*A) 表达式的值: 0.3(5) A/I/J 表达式的值: 0.33 (6) I/J/A 表达式的值: 0(7) A*B*I/A*J*2表达式的值: 4.5(8) C+(B/A)*3/B*2. 表达式的值: 7.25(9) A*B*I 表达式的值: 5125. 将以下数学表达式写成相应的FORTRAN表达式：(1) 1E-2 2(-B+SQRT(B*B-4*A*C)/(
4、2*A)(3) 1+X+X*X/2+X*3/2/3(4) COS(ATAN(A*3+B*3)*(1.0/3)/(C*C+1)(5) EXP(A*X*2+B*X+C)(6) COS(X*Y/SQRT(X*X+Y*Y)*36. 用FORTRAN语句完成以下操作：(1)将变量I的值增加1。 I=I+1(2) I的立方加上J,并将结果保存到I中。 I=I*3+J(3) 将E和F中大者存储到G中。G=Max(E,F)(4) 将两位自然数N的个位与十位互换，得到一个新的数存储到M中(不考虑个位为0的情况) M=MOD(N,10)*10+N/10第三章选择构造程序设计第43页 1、2、3、5、6、7、91分
5、析以下程序运行结果(1)LOGICAL P INTEGER I,I1,I2,I3 P=.FALSE. READ*,I I1=MOD(I,10) I2=MOD(I/10,10) I3=I/100 IF(I1+I3.EQ.2*I2)P=.TRUE.PRINT*,P END输入123 时，输出： T输入132 时，输出： F(2)REAL X,Y,ZREAD*,X,YIF(X*Y)0.AND.(X.NE.1.0)THEN Z=10.0ELSE IF(X*Y0.AND.x=2.5.AND.y=8(3) x+yz+6 FORTRAN表达式: (x+y)/=(z+6)(4) 2x+4y+xy=0 FORT
6、RAN表达式: 2*x+4*y+x*y=0(5) |a-b|c2FORTRAN表达式: ABS(a-b)=c*c(6) 如果xy或xz，那么min=x FORTRAN语句: IF(xy.OR.x0.AND.b0.AND.c0.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)(9) 如果m与n相等,那么k为1,否那么k为0FORTRAN语句:IF(m=n)THEN k=1 ELSE k=0 ENDIF(10) a,b是否一样号FORTRAN表达式:
7、a*b03.如果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 逻辑表达式的值: .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.
8、LT.B).AND.(B.LT.A)逻辑表达式的值: .FALSE.5、某运输公司在计算运费时，按照运输距离S对运费打一定的折扣D，其标准如下：S250km D=0 250S500km D=2.5%500S1000km D=4.5%1000S2000km D=7.5%2000S2500km D=9.0%2500S3000km D=12.0%3000kmS D=15.0%编写程序，输入 基本运费Price，货物重量Weight，距离S，计算总运费Freight。其中Freight=Price*Weight*S*(1-D)。REAL Price, Weight, S, Freight, D READ*, Price, Weight, S IF (S250) THEND=0 ELSEIF(S500) THEND=0.025ELSEIF(S1000) THEND=0.045ELSEIF(S2000) THEND=0.075ELSEIF(S2500) THEND=0.09ELSEIF(S-15.AND.X=0.AND.X15.AND.X1E-5) Y0=Y1Y1=2*Y0/3+X/(3*Y0*2)ENDDOPRINT*,Y1ENDP.66 习题12 Real a,b,m,xf(x)=x*
