小编you*_*man的帖子

因此，我使用泰勒级数在 Fortran 90 中计算 sin(0.75) 直到某个点，因此我需要在 do while 循环中运行它（直到满足我的条件）。这意味着我需要使用阶乘，这是我的代码：

program taylor
implicit none
real :: x = 0.75  
real :: y
integer :: i = 3
do while (abs(y - sin(0.75)) > 10.00**(-7)) 
 i = i + 2
 y = x - ((x**i)/fact(i))
 print *, y
end do
end program taylor

我写fact(i)的地方就是我需要阶乘的地方。不幸的是，Fortran 没有内在函数！功能。我该如何实现这个程序中的功能？

谢谢。