资源描述:
《fortran95程序设计课后习题答案(word版方便)》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、第四章1.programmainimplicitnonewrite)*,*)"Haveagoodtime."write(*,*)"That'snotbad.'1write(*,*)'"Mary"isn"tmyname.'endprogram2.programmainreal,parameter::Pl=3implicitnone.14159realradiuswrite(*,*)"请输入半径长"read)*,*)radiuswrite(*/"(,面积='f8.3)")radius*radius*PIendp
2、rogram3.programmainimplicitnonerealgradeswrite(*,*)"请输入成绩”read(*,*)gradeswrite(*,"('调整后成绩为78.3)")SQRT(grades)*10.0endprogram4.integerazbrealra,rba=2b=3ra=2.0rb=3.0write(*/)b/a!输出1,因为使用整数计算,小数部分会无条件舍去write(*,*)rb/ra!输出1.55.programmainimplicitnonetypedistane
3、erealmeter,inch,cmendtypetype(distance)::dwrite(*,*)”请输入长度:"read(*,*)d%meterd%cm=d%meter*100d%inch=d%cm/2.54write(*,"(f8.3'米='f8.3'厘米Mf83英寸')”)d%meter,d%cm,d%inchendprogram第五章1.programmainimplicitnoneintegermoneyrealtaxwrite(*,*)"请输入月U攵入"read(*,*)money讦(mo
4、neyvlOOO)thentax=0.03else讦(moneyv5000)thentax=0.1elsetax=0.15endifwrite(*/"(,税金为'18)")nint(money*tax)endprogram2.programmainimplicitnoneintegerdaycharacter(len二20)::tvwrite(*,*)"请输入星期几”read(*,*)dayselectcase(day)case(l,4)tv="新闻"case(2,5)tv=“电视剧“case(3,6)tv
5、=”卡通“case(7)tv=11电影”casedefaultwrite)*,*)"错误的输入”stopendselectwrite(*,*)tvendprogram3.programmainimplicitnoneintegerage,moneyrealtaxwrite(*,*)”请输入年龄"read(*,*)agewrite(*,*)"请输入月收入”read)*/)money讦(age<50)thenif(money<1000)thentax=0.03else讦(money<5000)thentax=0
6、.10elsetax=0.15endifelse讦(money<1000)thentax=0.5else讦(moneyv5000)thentax=0.7elsetax=0.10end讦endifwrite(*z"('税金为'18)")nint(money*tax)endprogram4.programmainimplicitnoneintegeryear,dayslogicalmod_4,mod_100/mod_400write(*,*)”请输入年份"read(*,*)yearmod_4=(MOD(year
7、,4)==0)mod_100=(MOD(year,100)==0)mod_400=(MOD(year,400)==0)讦((mod_4.NEQV.mod_100).or.mod_400)thendays=366elsedays=365end讦write(*,"('这一年有'13天)”)daysstopendprogram第六章1.programmainimplicitnoneintegeridoi=l,5write(*,*)"Fortran"enddostopendprogram2.programmaini
8、mplicitnoneintegeri,sumsum=0doi=l,99z2sum=sum+ienddowrite)*,*)sumstopendprogram3.programmainimplicitnoneinteger,parameter::answer=45integer,parameter::max=5integerweight,idoi=l,maxwrite(*,*)”请输入体重”read(*,*)we