如何在循环中使用嵌套的 while 循环？

问题描述

当我运行下面的代码时，它工作正常。 （TI nspire CAS II 计算器） 但是，在程序结束时，我提供了两个选项，“Enter” 重复该程序，“Esc” 退出。

“Esc”工作正常。 但是，如果我选择“Enter”，RequestStr 框会再次弹出以按预期接收新输入。 当我输入时，程序显示“您没有输入任何内容”并再次返回到 RequestStr 框。我必须在 RequestStr 框中按“取消”才能退出循环。 “您没有输入任何内容” 是我用来拦截用户可能在没有输入任何内容的情况下单击“确定”的情况的错误代码的一部分。 所以基本上这个程序在我第一次运行时运行良好，当我选择再次运行它时，问题就出现了。

代码

Define LibPub funvarsolv()=
Prgm
:Local y1,res,i,ab,d,c
:
:Loop
:0→c
:1→d
:While d =1
:Try
:RequestStr "enter function",y1,ab
:0→d
:
:Else
:© user left input box empty
:Text "you entered nothing",0
:ClrErr
:
:EndTry
:If d=0
:Exit
:EndWhile

:© user pressed cancel 
:  If ab=0 Then
:      Disp "Press ENTER to  end"
:                subrtine\delay()
:                  DelVar y1,k,ab
:                           Return
:
:EndIf
:
:
:
: expr("Define y1(x) ="&y1)
: res:=exp▶list(solve(y1(x)=0,x),x)
:
:Disp "Solution set: "&var&" =",res
:
:subrtine\dlay()
:If k="esc" Then
:1→c
:ElseIf k="enter" Then
:0→c
:EndIf
:If c=1
:Exit
:EndLoop
:EndPrgm

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）