用Fortran语言编写程序:输入任意整型n,计算 1/1!+1/2!+1/3!+......1/n!
时间: 2023-09-16 07:14:01 浏览: 52
好的,这个问题是可以回答的。请看下面的Fortran程序:
```
program calc_factorial
implicit none
integer :: n, i
real :: fact, sum
write(*,*) "请输入任意整数n:"
read(*,*) n
sum = 0.0
do i = 1, n
fact = 1.0
do j = 1, i
fact = fact * j
end do
sum = sum + 1.0/fact
end do
write(*,*) "计算结果为:", sum
end program calc_factorial
```
这个程序可以计算 1/1! + 1/2! + 1/3! +......+1/n! 的值。输入任意整数 n 后,程序会逐个计算每一项的值,并将它们加起来。最后,程序会输出计算结果。
希望这个程序可以对你有所帮助!
相关问题
运用fortran语言,实现以循环来计算 1/1!+1/2!+1/3!+1/4!+…+1/10! 的值
以下是使用Fortran语言实现循环计算1/1!+1/2!+1/3!+1/4!+…+1/10!的值的代码:
```Fortran
program factorial
implicit none
integer :: i, j
real :: sum = 0.0, fact = 1.0
do i = 1, 10
fact = 1.0
do j = 1, i
fact = fact * j
end do
sum = sum + 1.0 / fact
end do
print *, "The sum of 1/1!+1/2!+1/3!+1/4!+…+1/10! is", sum
end program factorial
```
用Fortran编写输入x,n,计算下列公式,输入计算结果eˣ=1+x+x²/2!+x³/3!+…+xⁿ/n!
好的,我理解您的要求。以下是您需要的Fortran代码:
program calculate_exp
implicit none
integer :: n, k
real :: x, term, result
! 输入x和n
print *, "请输入x和n:"
read *, x, n
! 计算 e^x
term = 1.0
result = 1.0
do k = 1, n
term = term * x / k
result = result + term
end do
! 输出计算结果
print *, "e^", x, " = ", result
end program calculate_exp
您可以将上面的代码复制粘贴到您的Fortran编译器中进行编译和运行。希望我的回答对您有帮助!