Cómo programar la función seno usando el programa Fortran

Usa aproximación en series.

función?sinx(x)resultado(y)

¿implícita?ninguna

real*8,intención(en)::x

real*8::y,s=1.0d0

entero::i=1,n

y=0.0d0

i=1

n=i

s=x**i

y=y+s

hacer?mientras(abdominales)< 0.5e-16)

i=i+2

n=n*i*(i-1)

s=-s*x** 2/n

y=y+s

enddo

end?función?sinx