Fortran 程序设计课后习题答案 方便.docx
- 文档编号:11371064
- 上传时间:2023-02-28
- 格式:DOCX
- 页数:10
- 大小:19.67KB
Fortran 程序设计课后习题答案 方便.docx
《Fortran 程序设计课后习题答案 方便.docx》由会员分享,可在线阅读,更多相关《Fortran 程序设计课后习题答案 方便.docx(10页珍藏版)》请在冰豆网上搜索。
Fortran程序设计课后习题答案方便
第四章
1.programmainimplicitnonewrite(*,*)"Haveagoodtime."write(*,*)"That'snotbad."write(*,*)'"Mary"isn''tmyname.'endprogram
2.programmainreal,parameter:
:
PI=3implicitnone.14159realradiuswrite(*,*)"请输入半径长"read(*,*)radiuswrite(*,"('面积='f8.3)")radius*radius*PIendprogram3.programmainimplicitnonerealgradeswrite(*,*)"请输入成绩"read(*,*)gradeswrite(*,"('调整后成绩为'f8.3)")SQRT(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.54write(*,"(f8.3'米='f8.3'厘米='f8.3'英寸')")d%meter,d%cm,d%inchendprogram
第五章
1.programmainimplicitnoneintegermoneyrealtaxwrite(*,*)"请输入月收入"read(*,*)moneyif(money<1000)thentax=0.03elseif(money<5000)thentax=0.1elsetax=0.15endifwrite(*,"('税金为'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(*,*)"错误的输入"stopendselectwrite(*,*)tvendprogram
3.programmainimplicitnoneintegerage,moneyrealtaxwrite(*,*)"请输入年龄"read(*,*)agewrite(*,*)"请输入月收入"read(*,*)moneyif(age<50)thenif(money<1000)thentax=0.03elseif(money<5000)thentax=0.10elsetax=0.15endifelseif(money<1000)thentax=0.5elseif(money<5000)thentax=0.7elsetax=0.10endifendifwrite(*,"('税金为'I8)")nint(money*tax)endprogram
4.programmainimplicitnoneintegeryear,dayslogicalmod_4,mod_100,mod_400write(*,*)"请输入年份"read(*,*)yearmod_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)thendays=366elsedays=365endifwrite(*,"('这一年有'I3'天')")daysstopendprogram
第六章
1.programmainimplicitnoneintegeridoi=1,5write(*,*)"Fortran"enddostopendprogram
2.programmainimplicitnoneintegeri,sumsum=0doi=1,99,2sum=sum+ienddowrite(*,*)sumstopendprogram
3.programmainimplicitnoneinteger,parameter:
:
answer=45integer,parameter:
:
max=5integerweight,idoi=1,maxwrite(*,*)"请输入体重"read(*,*)weightif(weight==answer)exitenddoif(i<=max)thenwrite(*,*)"猜对了"elsewrite(*,*)"猜错了"endifstopendprogram
4.programmainimplicitnoneinteger,parameter:
:
max=10integerirealitemrealansans=1.0item=1.0doi=2,maxitem=item/real(i)ans=ans+itemenddowrite(*,*)ansstopendprogram
5.programmainimplicitnoneinteger,parameter:
:
length=79character(len=length):
:
input,outputintegeri,jwrite(*,*)"请输入一个字串"read(*,"(A79)")inputj=1doi=1,len_trim(input)if(input(i:
i)/='')thenoutput(j:
j)=input(i:
i)j=j+1endifenddowrite(*,"(A79)")outputstopendprogram
第七章
1.programmainimplicitnoneinteger,parameter:
:
max=10integeriinteger:
:
a(max)=(/(2*i,i=1,10)/)integer:
:
t!
sum()是fortran库函数write(*,*)real(sum(a))/real(max)stopendprogram
2.integera(5,5)!
5*5=25integerb(2,3,4)!
2*3*4=24integerc(3,4,5,6)!
3*4*5*6=360integerd(-5:
5)!
11integere(-3:
3,-3:
3)!
7*7=49
3.programmainimplicitnoneinteger,parameter:
:
max=10integerf(max)integerif
(1)=0f
(2)=1doi=3,maxf(i)=f(i-1)+f(i-2)enddowrite(*,"(10I4)")fstopendprogram
4.programmainimplicitnoneinteger,parameter:
:
size=10integer:
:
a(size)=(/5,3,6,4,8,7,1,9,2,10/)integer:
:
i,jinteger:
:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Fortran 程序设计课后习题答案 方便 程序设计 课后 习题 答案