近似计算COS（X）=1-x^2/2!+x^4/4!-x^6/6!（X为弧度，计算精度为10-6）

这个怎么变编呢
input "请输入x" to x
s=1
i=2
p=1
do while x^i/p>=1e-6
p=-p
p=p*i*(i-1)
s=s+x^i/p

i=i+2

enddo
?s


这是我做的但貌似不对。。

呵呵不对哦。。正负号没对。。
input "请输入x" to x
s=1
i=2
p=-1
do while abs(x^i/p)>=1e-6

p=p*i*(i-1)
s=s+x^i/p

i=i+2
p=-p
enddo
?s
找到正解了，你也会错哟，呵呵