近似计算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
 q=1
do while x^i/p>=1e-6
p=p*i*(i-1)
s=s+x^i/p*q
q=-q
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
找到正解了，你也会错哟，呵呵

*近似计算COS（X）=1-x^2/2!+x^4/4!-x^6/6!（X为弧度，计算精度为10-6）
input "请输入x" to x
x=mod(x,2*pi())
s=1
p=1
for i=1 to 13
p=-p*x*x/(2*i-1)/(2*i)
s=s+p
endfor
?s
return

for i=1 to 13 ? 请问楼上 13 数字的由来？学习一下。

也是不明白，请指教

13是精确小数位数
可改6也行

13是一个实测的值，可以达到vfp的最高处理精度