fortran95程序设计课后习题答案版方便学习资料.docx
《fortran95程序设计课后习题答案版方便学习资料.docx》由会员分享,可在线阅读,更多相关《fortran95程序设计课后习题答案版方便学习资料.docx(7页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、fortran95程序设计课后习题答案第四章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 progra
2、m 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,
3、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 ( money1000 ) then tax = 0.03 e
4、lse 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
5、 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
6、 ( 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(ye
7、ar,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
8、,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
9、 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 charac
10、ter(len=length) : input, output integer i,j write(*,*) 请输入一个字串 read(*,(A79) input j=1 do i=1, len_trim(input) if ( input(i:i) /= ) then output(j:j)=input(i:i) j=j+1 end if end do write(*,(A79) output stop end program 第七章1.program main implicit none integer, parameter : max = 10 integer i integer : a
11、(max) = (/ (2*i, i=1,10) /) integer : t ! sum()是fortran库函数 write(*,*) real(sum(a)/real(max) stop end program 2.integer a(5,5) ! 5*5=25 integer b(2,3,4) ! 2*3*4=24 integer c(3,4,5,6) ! 3*4*5*6=360 integer d(-5:5) ! 11 integer e(-3:3, -3:3) ! 7*7=49 3.program main implicit none integer, parameter : ma
12、x=10 integer f(max) integer i f(1)=0 f(2)=1 do i=3,max f(i)=f(i-1)+f(i-2) end do write(*,(10I4) f stop end program 4.program main implicit none integer, parameter : size=10 integer : a(size) = (/ 5,3,6,4,8,7,1,9,2,10 /) integer : i,j integer : t do i=1, size-1 do j=i+1, size if ( a(i) a(j) ) then !
13、a(i)跟a(j)交换 t=a(i) a(i)=a(j) a(j)=t end if end do end do write(*,(10I4) a stop end 5.a(2,2) ! 1+(2-1)+(2-1)*(5) = 7 a(3,3) ! 1+(3-1)+(3-1)*(5) = 13 第八章1.program main implicit none real radius, area write(*,*) 请输入半径长 read(*,*) radius call CircleArea(radius, area) write(*,( 面积 = F8.3) area stop end pr
14、ogram subroutine CircleArea(radius, area) implicit none real, parameter : PI=3.14159 real radius, area area = radius*radius*PI return end subroutine 2.program main implicit none real radius real, external : CircleArea write(*,*) 请输入半径长 read(*,*) radius write(*,( 面积 = F8.3) CircleArea(radius) stop en
15、d program real function CircleArea(radius) implicit none real, parameter : PI=3.14159 real radius CircleArea = radius*radius*PI return end function 3.program main implicit none call bar(3) call bar(10) stop end program subroutine bar(length) implicit none integer, intent(in) : length integer i chara
16、cter(len=79) : string string= do i=1,length string(i:i)=* end do write(*,(A79) string return end subroutine 4.program main implicit none integer, external : add write(*,*) add(100) end program recursive integer function add(n) result(sum) implicit none integer, intent(in) : n if ( n0 ) then sum=0 re
17、turn else if ( n=1 ) then sum=n return end if sum = n + add(n-1) return end function 5.program main implicit none integer, external : gcd write(*,*) gcd(18,12) end program integer function gcd(A,B) implicit none integer A,B,BIG,SMALL,TEMP BIG=max(A,B) SMALL=min(A,B) do while( SMALL /= 1 ) TEMP=mod(B
18、IG,SMALL) if ( TEMP=0 ) exit BIG=SMALL SMALL=TEMP end do gcd=SMALL return end function 6.program main use TextGraphLib implicit none integer, parameter : maxx=60, maxy=20 real, parameter : StartX=0.0, EndX=3.14159*2.0 real, parameter : xinc = (EndX-StartX)/(maxx-1) real x integer i,px,py call SetScr
19、een(60,20) call SetCurrentChar(*) x=StartX do px=1,maxx py = (maxy/2)*sin(x)+maxy/2+1 call PutChar(px,py) x=x+xinc end docall UpdateScreen() stop end program 第九章1.program main implicit none character(len=79) : filename character(len=79) : buffer integer, parameter : fileid = 10 integer count integer
20、 : status = 0 logical alive write(*,*) Filename: read (*,(A79) filename inquire( file=filename, exist=alive) if ( alive ) then open(unit=fileid, file=filename, & access=sequential, status=old) count = 0 do while(.true.) read(unit=fileid, fmt=(A79), iostat=status ) buffer if ( status/=0 ) exit ! 没有资料
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- fortran95 程序设计 课后 习题 答案 方便 学习 资料
限制150内