用fortran编写：计算1到10的阶乘的倒数的和

下面是使用Fortran编写的计算1到10的阶乘的倒数的和的代码：

program factorial_sum
  implicit none
  integer :: i, j
  real :: factorial, sum

  sum = 0.0
  do i = 1, 10
     factorial = 1.0
     do j = 1, i
        factorial = factorial * j
     end do
     sum = sum + 1.0 / factorial
  end do
  print *, "The sum of inverse factorials from 1 to 10 is ", sum
end program factorial_sum

在这个代码中，我们使用了两个循环。外部循环从1到10迭代，内部循环计算每个数字的阶乘。我们将计算出的倒数阶乘添加到总和中。最后，我们输出计算出的总和。

相关问题

用fortran编写：计算1的阶乘分之一加2的阶乘分之一

以下是用Fortran语言编写的计算1的阶乘分之一加2的阶乘分之一的程序：

program factorial
  implicit none
  integer :: i, n
  real :: sum = 0.0
  
  n = 2
  
  do i = 1, n
     sum = sum + 1.0 / real(factorial(i))
  end do
  
  write(*,*) sum
  
contains
  
  function factorial(n)
    implicit none
    integer :: n, i
    integer :: result = 1
    
    do i = 1, n
       result = result * i
    end do
    
    factorial = result
  end function factorial

end program factorial

程序中使用了一个计算阶乘的函数`factorial`，然后在主程序中使用循环计算出1的阶乘分之一加2的阶乘分之一的结果。最后将结果打印输出。