Coseno con serie de taylor

Hola! Necesito sacar el coseno mediante la serie de taylor Mientras la diferencia entre 2 terminos seguidos sea mayor o igual a 0,0000001. Para esto he creado un subprograma que te da el factorial, pero lo que he hecho no me funciona, agradeceria cualquier ayuda! Gracias!