Fortran95第三章第四大题习题与答案
本人整理的天津大学出版社《FORTRAN95程序设计与数据结构基础教程》的第三章第四大题编程习题及答案,由于原书答案不全,大部分程序是由本人自己编写的,水平有限,如有不完善,请各位见谅。
1111 。 234100
Program ex3_1
implicit none
real s
integer i
integer,parameter::num=100
s=0
do i=1,num
s=s+1.0/real(i)
enddo
print*,'s=',s
stop
End
111112. 计算s 1 的前20项和。 35792n 1
Program ex3_2
implicit none
real s
integer i,a
integer,parameter::num=20
a=1
s=1.0
do i=1,num-1
a=-a
s=s+a*(1.0/real(2*i+1))
enddo
print*,'s=',s
stop
End
1113. 计算y 1 。 2!3!n!
Program ex3_3
implicit none
real y
integer i,x,n
y=0
x=1
print*,'输入一个正整数'
read*,n
do i=1,n
x=x*i
y=y+1.0/real(x)
enddo 1. 计算s 1
你可能喜欢
- fortran课后习题
- arm课后习题答案
- oracle课后习题答案
- fresh start课后习题答案
- internet课后习题答案
- fortran课后习题第四章2页
- fortran课后习题第九章4页
- fortran课后习题第七章2页
- fortran课后习题第八章1页
- fortran课后习题第六章3页
- fortran课后习题解答10页
- ARM课后习题答案11页
- 嵌入式课后习题答案5页
- 嵌入式课后习题答案5页
- ARM课后习题及答案6页
- arm课后习题答案1-44页
- 嵌入式课后习题答案9页
- oracle课后习题答案3页
- Oracle_10g数据库课后习题参考答案43页
- oracle 11g(钱慎一)课后习题答案8页
- oracle课后习题答案4页
- oracle课后习题答案3页
- Oracle习题答案(课后题)20页
