原创力文档- 1、本文档共10页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
页眉内容
页眉内容
页脚内容
页脚内容
第四章
programmain implicitnone write(*,*)Haveagoodtime. write(*,*)Thatsnotbad. write(*,*)Maryisntmyname.endprogram
programmain real,parameter::PI=3 implicitnone.14159 realradiuswrite(*,*)请输入半径长 read(*,*)radius write(*,(面积=f8.3))radius*radius*PIendprogram3.programmain implicitnone realgradeswrite(*,*)请输入成绩 read(*,*)grades write(*,(调整后成绩为f8.3))SQRT(grades)*10.0endprogram
integera,breal ra,rba=2b=3ra=2.0rb=3.0write(*,*)b/a !输出1,因为使用整数计算,小数部分会无条件舍去write(*,*)rb/ra !输出1.5
programmain implicitnone typedistance realmeter,inch,cm endtypetype(distance)::d write(*,*)请输入长度: read(*,*)d%meter d%cm=d%meter*100 d%inch=d%cm/2.54 write(*,(f8.3米=f8.3厘米=f8.3英寸))d%meter,d%cm,d%inchendprogram
第五章
programmainimplicitnone integermoney real tax write(*,*)请输
入月收入 read(*,*)money if(money1000)then tax=0.03 elseif(money5000)then tax=0.1 else tax=0.15 endif write(*,(税金为I8))nint(money*tax) endprogram
programmain implicitnone integerday character(len=20)::tvwrite(*,*)请输入星期几 read(*,*)day selectcase(day) case(1,4) tv
=新闻 case(2,5) tv=电视剧 case(3,6) tv=卡通 case(7)tv=电影 casedefault write(*,*)错误的输入 stop endselectwrite(*,*)tv endprogram
programmain implicitnone integerage,money realtax write(*,*)请输入年龄 read(*,*)age write(*,*)请输入月收入 read(*,*)money if(age50)then if(money1000)then tax=0.03 elseif(money5000)then
tax=0.10 else tax=0.15 endif else if(money1000)then tax=
0.5 elseif(money5000)then tax=0.7 else tax=0.10 endif endifwrite(*,(税金为I8))nint(money*tax) endprogram
programmain implicitnone integeryear,days logicalmod_4,mod_100,mod_400 write(*,*)请输入年份 read(*,*)year mod_4 =(MOD(year,4)==0) mod_100=(MOD(year,100)==0) mod_400=(MOD(year,400)==0) if
((mod_4.NEQV.mod_100).or.mod_400)then days=366 else days=365
endif write(*,(这一年有I3天))days stopendprogram
第
文档评论（0）