fortran课后习题解答.docVIP

下载本文档

19
0
约 10页
2015-09-25 发布于重庆
举报
版权申诉

fortran课后习题解答.doc

1、本文档共10页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

fortran课后习题解答

!习题4-1 !写出逻辑表达式的值 PROGRAM XITI4_1 REAL::A=2,B=7.5,C=-3.6 LOGICAL::L1=.TRUE.,L2=.FALSE. PRINT*,A-7B-6.5 PRINT*,.NOT.L2.OR.B-A=C/2.AND.C=-3.6 PRINT*,L2 PRINT*,L1.EQV..NOT.L2.AND.L1.OR.3*A=4-B PRINT*,ABS((C-A)-(B*A-C))1E-6.OR.L1 PRINT*,(A+CB.AND.C**2=10.0).NEQV.(L1.OR.L2) END !习题4-2 !使用CASE结构 PROGRAM CHENGJI INTEGER::G PRINT*,请输入学生的成绩： READ*,G SELECT CASE(G) CASE(90:100) PRINT*,very good CASE(80:89) PRINT*,good CASE(60:79) PRINT*,pass CASE(0:59) PRINT*,fail CASE DEFAULT PRINT*,ERROR END SELECT END !习题4-2 !使用IF结构 PROGRAM MAIN IMPLICIT NONE REAL::G PRINT*,请输入学生的成绩： READ*,G IF(G=0.AND.G=100)THEN IF(G=90)THEN PRINT*,VERY GOOD ELSEIF(G=80)THEN PRINT*,GOOD ELSEIF(G=60)THEN PRINT*,PASS ELSE PRINT*,FAIL END IF ELSE PRINT*,ERROR ENDIF END PROGRAM MAIN !习题4-3 PROGRAM MAIN IMPLICIT NONE REAL::X,Y PRINT*,请输入X的值： READ*,X IF(X=0.AND.X15)THEN Y=40*X/15+10 PRINT*,Y=,Y ELSEIF(X=15.AND.X30)THEN Y=50 PRINT*,Y=,Y ELSEIF(X=30.AND.X45)THEN Y=50-10*(X-30)/15 PRINT*,Y=,Y ELSEIF(X=45.AND.X75)THEN Y=40+20*(X-45)/30 PRINT*,Y=,Y ELSEIF(X=75.AND.X90)THEN Y=60-10*(X-75)/15 PRINT*,Y=,Y ELSE PRINT*,X不在定义域内，无函数值 END IF END PROGRAM MAIN !习题4-4 PROGRAM MAIN IMPLICIT NONE REAL::X1,X2,X3,Y1,Y2,Y3,X,Y PRINT*,INPUT X1,X2,X3,Y1,Y2,Y3 READ*,X1,X2,X3,Y1,Y2,Y3 PRINT*,INPUT X READ*,X IF(X=X1.AND.XX2) THEN Y=(Y2-Y1)/(X2-X1)*(X-X1)+Y1 ELSE IF(X=X2.AND.X=X3) THEN Y=(Y3-Y2)/(X3-X2)*(X-X2)+Y2 END IF PRINT*,Y END PROGRAM MAIN !习题4-5 program main implicit none real::x,y print*,请输入购物额 read*,x if(x=1000) then y=0.8*x elseif(x=500) then y=0.9*x elseif(x=200) then y=0.95*x else y=x endif print*,应收货款,y end !习题4-6 PROGRAM MAIN IMPLICIT NONE INTEGER::A PRINT*,请输入一个整数： READ*,A IF(MOD(A,2)==0)THEN PRINT*,是偶数 ELSE PRINT*,是奇数 END IF END PROGRAM MAIN !习题4-7 PROGRAM MAIN INTEGER::M PRINT*,请输入一个整数： READ*,M IF (MOD(M,7)==0) THEN PRINT*,M,能够被7(或11、17)整除 ELSEIF (MOD(M,11)==0) THEN PR