FUNCTION SENO (POR SÉRIE DE TAYLOR)

REAL FUNCTION SENO_PORTAYLOR(X,NF)
!LOCAIS DE MEMÓRIA
REAL X
INTEGER N,NF
!CÁLCULOS
SENO_PORTAYLOR = 0
DO N = 0,NF,1
    SENO_PORTAYLOR = SENO_PORTAYLOR + (-1)**N*X**(2*N+1)/FATORIAL(2*N+1)
END DO
END FUNCTION