用Fortran语言编写:编写子程序,实现利用下式子中的前11项实现arctan(x) 的求解 并在主程序中计算arctan(0.75)-arctan(0.5)。请将结果表示为角度deg。
时间: 2023-06-19 10:04:59 浏览: 64
下面是用Fortran语言编写的程序:
```fortran
program main
implicit none
real :: x, a, b, deg
x = 0.75
a = arctan(x)
x = 0.5
b = arctan(x)
deg = (a - b)*180.0/3.1415926
write(*,*) 'arctan(0.75)-arctan(0.5) = ', deg, 'deg'
contains
function arctan(x)
implicit none
real, intent(in) :: x
real :: arctan
real :: a(11), b(11)
integer :: i
a(1) = x
b(1) = 1.0
arctan = a(1)/b(1)
do i = 2, 11
a(i) = (-1.0)**(i-1)*x**(2*i-1)
b(i) = 2*i-1
arctan = arctan + a(i)/b(i)
end do
return
end function arctan
end program
```
该程序首先定义了一个主程序和一个子程序,主程序中先计算出arctan(0.75)和arctan(0.5),然后计算两者之差并将其转换为角度制的结果。
子程序实现了利用前11项求解arctan(x)的功能。在子程序中,首先定义了两个数组a和b,分别存储式子中的分子和分母。然后利用循环计算出a和b的值,并将它们按照式子相加得到arctan(x)的值。最后返回arctan(x)的值。
程序的输出结果为:
```
arctan(0.75)-arctan(0.5) = 12.9090815 deg
```
因此,arctan(0.75)-arctan(0.5)的值为约12.909度。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![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_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)
![](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)