求助：一段程序的编制遇到困难，请大佬们帮忙

ninggang

第一步，先建立一个列表，并且定义并赋值了列表变量y,z,m

第二步，编制程序如下：


Define unit()=
Prgm
:Local y1
:Local z1
:Local m1
:Local x1
:Local i
:y1:=y
:z1:=z
:m1:=m
:i:=1
:Lbl a1
:x1:=(((m1+1)^(−i)*(m1*y1-((m1+1)^(i)-1)*z1))/(m1*z1))
:i:=i+1
:If x1<0 or x1>1
:  Goto a1
:  x:=x1
:EndPrgm

算出来的X1值或者x值根本没有产生循环。

请问各位大侠，大佬们

为什么循环中止在i=1了？

非常感谢！

ninggang

x或者x1，应该算出来是0<x<1的。

大家看看表2，明显大于1了，说明循环在i=1的时候，就终止了。

怎么都找不到原因，寻求各位大佬们的帮助！

ninggang

真是急死我了，好几天都找不出原因，不知道怎么办。

mrlgs

我觉得错误处在if那里

mrlgs

单独写下 if X>1  goto 试试

mrlgs

为什么不用while语句
？
While循环是限定条件的循环，格式为：

While 逻辑表达式

程序代码

Endwhile

当逻辑表达式成立时将运行程序代码。如

While a<5

a:=a+1

Disp a

Endwhile

ninggang

mrlgs 发表于 2020-10-5 16:53
单独写下 if X>1  goto 试试

谢谢朋友的耐心回复，我用while语句重写了一次，并且把条件改成了x>0,还是不行。
我又寻找了原因，很有可能是因为数组变量x被反复多次赋值，在TI-basic里面是不被允许的。

imath

不要用goto

bioafanda

没看懂，if后面没有Then,也没有Endif结束语句。