Fortran95程序设计课后习题答案（word版方便）.pdfVIP

Fortran95程序设计课后习题答案（word版方便）

第四章

1.programmainimplicitnonewrite(*,*)Haveagoodtime.

write(*,*)hatsnotbad.write(*,*)Maryisntmyname.end

program

2.programmainreal,parameter::PI=3implicitnone.14159

realradiuswrite(*,*)请输入半径长read(*,*)radiuswrite(*,(面

积=f8.3))radius*radius*PIendprogram

3.programmainimplicitnonerealgradeswrite(*,*)请输入成

绩read(*,*)gradeswrite(*,(调整后成绩为f8.3))

SQR(grades)*10.0endprogram

4.integera,brealra,rba=2b=3ra=2.0rb=3.0write(*,*)b/a!

输出1,因为使用整数计算,小数部分会无条件舍去write(*,*)rb/ra!输

出1.5

5.programmainimplicitnonetypedistancerealmeter,inch,

cmendtypetype(distance)::dwrite(*,*)请输入长度:read(*,*)

d%meterd%cm=d%meter*100d%inch=d%cm/2.54

write(*,(f8.3米=f8.3厘米=f8.3英寸))d%meter,d%cm,d%inch

endprogram

第五章

1.programmainimplicitnoneintegermoneyrealtax

write(*,*)请输入月收入read(*,*)moneyif(money1000)then

tax=0.03elseif(money5000)thentax=0.1elsetax=0.15

endifwrite(*,(税金为I8))nint(money*tax)endprogram

2.programmainimplicitnoneintegerdaycharacter(len=20)::

tvwrite(*,*)请输入星期几read(*,*)dayselectcase(day)case(1,4)

tv=新闻case(2,5)tv=电视剧case(3,6)tv=卡通case(7)tv

=电影casedefaultwrite(*,*)错误的输入stopendselect

write(*,*)tvendprogram

3.programmainimplicitnoneintegerage,moneyrealtax

write(*,*)请输入年龄read(*,*)agewrite(*,*)请输入月收入

read(*,*)moneyif(age50)thenif(money1000)thentax=

0.03elseif(money5000)thentax=0.10elsetax=0.15endif

elseif(money1000)thentax=0.5elseif(money5000)then

tax=0.7elsetax=0.10endifendifwrite(*,(税金为I8))

nint(money*tax)endprogram

4.programmainimplicitnoneintegeryear,dayslogical

mod_4,mod_100,mod_400write(*,*)