雷加吧

可以用 do while sx>=d ... loop 循环：

const d=.00001
do
  input x
  if x<=0 then end
  sinx=x
  i=2
  sx=x
  do while sx>=d
    ii=i*2-1
    fx=1
    jx=1
    for j=1 to ii
      fx=fx*x
      jx=jx*j
    next
    if i mod 2=0 then fx=-fx
    sinx1=sinx+fx/jx
    sx=abs(sinx1-sinx)
    sinx=sinx1
    i=i+1
  loop
  print "sin(";x;")=";sinx
loop

程序虽然写出来了，但对它的正确与否很是茫然，欢迎大家提出意见。

[em19]