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