用fortran编写:计算1到10的阶乘的倒数的和
时间: 2024-01-22 08:18:11 浏览: 71
下面是使用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的阶乘分之一的程序:
```fortran
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的阶乘分之一的结果。最后将结果打印输出。
用fortran编写:依次输入10个同学成绩,系统自动选出其中最大成绩
下面是用 Fortran 编写的程序,可以依次输入 10 个同学的成绩,并找出其中的最大值:
```fortran
program maxscore
implicit none
integer :: i, n = 10, maxscore = 0, score
write(*,*) '请输入', n, '个同学的成绩:'
do i = 1, n
read(*,*) score
if (score > maxscore) then
maxscore = score
end if
end do
write(*,*) '最大成绩为:', maxscore
end program maxscore
```
在上面的程序中,我们定义了一个整数变量 `maxscore` 来存储最大成绩,初始值为 0。然后使用一个 do 循环来依次读入 10 个同学的成绩,每次读入一个成绩后,将其与 `maxscore` 比较,如果大于 `maxscore`,则将其赋值给 `maxscore`。最后输出 `maxscore` 即可。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_lunwen.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)