Fortran95程序设计课后习题答案(word版方便)_fortran95课后题答案 - CSDN文库

需积分: 46 2.0k 浏览量更新于2023-05-27 评论 11 收藏 26KB DOCX 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源详情

资源评论

资源推荐

第四章

1.program main implicit none write(*,*) "Have a good me." write(*,*) "That's not bad."

write(*,*) '"Mary" isn''t 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 real ra,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*100 d%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 ( money<1000 ) then tax = 0.03 else if ( money<5000) 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 ( age<50 ) then if

( money<1000 ) then tax = 0.03 else if ( money<5000 )then tax = 0.10 else tax = 0.15 end if

else if ( money<1000 ) then tax = 0.5 else if ( money<5000 )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 = ( MOD(year,400) == 0 ) if ( (mod_4 .NEQV. mod_100) .or.

mod_400 ) then days = 366 else days = 365 end if write(*,"('这一年有'I3'天')") days stop

end program

第六章

1.program main implicit none integer i do i=1,5 write(*,*) "Fortran" end do stop end

program

2.program main implicit none integer i,sum sum = 0 do i=1,99,2 sum = sum+i end do

write(*,*) sum stop end program

3.program main implicit none integer, parameter :: answer = 45 integer, parameter :: max = 5

integer weight, i do i=1,max write(*,*) " 请输入体重 " read(*,*) weight if

( weight==answer ) exit end do if ( i<=max ) then write(*,*) "猜对了" else write(*,*) "猜

错了" end if stop end program

4.program main implicit none integer, parameter :: max=10 integer i real item real ans

ans = 1.0 item = 1.0 do i=2,max item = item/real(i) ans = ans+item end do write(*,*) ans

stop end program

5.program main implicit none integer, parameter :: length = 79 character(len=length) :: input,

output integer i,j write(*,*) " 请输入一个字串 " read(*,"(A79)") input j=1 do i=1,

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余6页未读，立即下载

评论0

老半撅儿

粉丝: 145
资源: 18

会员权益专享

图片转文字

全年可省5，000元立即开通

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈