Fortran95程序设计课后习题答案(word版方便).docx

第四章1.program main implicit none write(*,*) Have a good time.write(*,*) Thats not bad.write(*,*) Mary isnt my name. end program 2.program main real, parameter :: PI=3 implicit none.14159 real radius write(*,*) 请输入半径长 read(*,*) radius write(*,( 面积=f8. 3)) radius*radius*PI end program 3.program main implicit none real grades write(*,*) 请输入成绩 read(*,*) grades write(*,( 调整后成绩为 f8.3)) SQRT(grades)*10.0 end program 4.integer a,b realra,rb a=2 b=3 ra=2.0 rb=3.0 write(*,*) b/a ! 输出1, 因为使用整数计算, 小数部分会无条件舍去 write(*,*) rb/ra ! 输出1.5 5.program main implicit none type distance real meter, inch, cm end type type(distance) :: d write(*,*) 请输入长度: read(*,*) d%meter d%cm = d%meter*100d%inch = d%cm/2.54 write(*,(f8.3米 =f8.3厘米 =f8.3英寸)) d%meter, d%cm, d%inch end program 第五章1.program main implicit none integer money real tax write(*,*) 请输入月收入 read(*,*) money if ( money1000 ) then tax = 0.03 else if ( money5000) then tax = 0.1 else tax = 0.15 end if write(*,( 税金为 I8)) nint(money*tax) end program 2.program main implicit none integer day character(len=20) :: tv write(*,*) 请输入星期几 read(*,*) day select case(day) case(1,4)tv = 新闻 case(2,5)tv = 电视剧 case(3,6)tv = 卡通 case(7)tv = 电影 case default write(*,*) 错误的输入 stop end select write(*,*) tv end program 3.program main implicit none integer age, money real tax write(*,*) 请输入年龄 read(*,*) age write(*,*) 请输入月收入 read(*,*) money if ( age50 ) then if ( money1000 ) then tax = 0.03 else if ( money5000 )then tax = 0.10 else tax = 0.15 end if else if ( money1000 ) then tax = 0.5 else if ( money5000 )then tax = 0.7 else tax = 0.10 end if end if write(*,( 税金为 I8)) nint(money*tax) end program 4.program main implicit none integer year, days logical mod_4, mod_100, mod_400 write(*,*) 请输入年份 read(*,*) year mod_4 = ( MOD(year,4) == 0 ) mod_100 = ( MOD(year,100) == 0 ) mod_400