prorama q calcula el valor de la secante por medio del a serie de tay lor

por medio de la serie senx= x°/0¡+ x1/1¡ +x^2/2¡+x^n/n¡ calcule el vlor del seno de l angulo en radianes
Last change: AC 3 Oct 2006 2:38 am
program serie
implicit none
INTEGER::j,i,signo=-1,num
REAL::parcial,resultado,factorial,x,resparcial=0
PRINT*,'determina el valor de x de la serie'
READ*,x
Do
PRINT*,'determina el numero de terminos de la serie a calclar'
READ*,num
IF(num>0)exit
END do
IF(num>1)then
num=num*2-1
END if
DO i=1,3,num
parcial=x**i
factorial=1
DO j=1,i,1
factorial=factorial*j
END DO
resparcial=respacial +(parcial/factorial)*signo
signo=-signo
END do
resultado=1+respacial
PRINT*,'el valor de la serie es',resultado
end program serie