用Fortran 语言，计算： （2）求cosx的近似值，直到最后一项的绝对值小于10-6为止。（10**(-6)和1.0E-6有何区别）

在Fortran中，可以使用以下代码计算cosx的近似值，直到最后一项的绝对值小于10**(-6)：

program cos_approximation
implicit none
integer :: i
real :: x, term, cos_x, eps

write(*,*) "Enter the value of x in radians:"
read(*,*) x

cos_x = 1.0
eps = 10.0**(-6)

do i = 1, 1000000
  term = (-1.0)**(i-1) * x**(2*i-2) / product([(2*j-1), j=1,i-1])
  cos_x = cos_x + term
  if (abs(term) < eps) exit
end do

write(*,*) "cos(", x, ") = ", cos_x

end program cos_approximation

其中，eps为精度控制变量，10**(-6)和1.0E-6是等价的，都表示科学计数法下的小数。

在程序中使用了一个循环，每次计算cosx的一项，并将其加入到cos_x中。当该项的绝对值小于eps时，退出循环，并输出cosx的近似值。