fortran 阶乘命令

fortran 阶乘命令
在Fortran编程语言中，计算阶乘可以通过循环或递归来实现。

下面我将分别介绍这两种方法。

使用循环计算阶乘：
fortran.
program factorial.
implicit none.
integer :: n, i.
integer :: result = 1。

print, "Enter a number: "
read, n.
do i = 1, n.
result = result i.
end do.
print, "The factorial of", n, "is", result.
end program factorial.
在上面的示例中，我们使用了一个简单的do循环来计算阶乘。

首先，我们要求用户输入一个整数n，然后使用循环从1到n依次相乘，最终得到阶乘的结果。

使用递归计算阶乘：
fortran.
program factorial_recursive.
implicit none.
integer :: n.
print, "Enter a number: "
read, n.
print, "The factorial of", n, "is", factorial(n)。

contains.
recursive function factorial(x) result(res)。

integer, intent(in) :: x.
integer :: res.
if (x == 0) then.
res = 1。

else.
res = x factorial(x 1)。

end if.
end function factorial.
end program factorial_recursive.
在上面的示例中，我们定义了一个递归函数factorial来计算阶乘。

当用户输入一个整数n后，程序将调用这个递归函数来计算阶乘的结果。

无论是使用循环还是递归，Fortran都提供了多种方法来计算阶乘。

选择哪种方法取决于具体的需求和个人偏好。

希望这些示例能够帮助你理解在Fortran中如何计算阶乘。