basic - 如何创建 TI-BASIC (TI-84+) 输入表格？

Question

在 TI-BASIC 编程语言(特别是 TI-84+)中，您如何创建输入表单，例如包含在 TI-84+ 上的默认应用程序中的表单。

此处包含的图像显示了我正在尝试创建的示例:在执行函数之前，您可以滚动浏览并自由输入多个变量的菜单



此外，是否可以在输入变量时使此菜单动态更新？

Answer 1

您为 TI-Basic 设置了一个相当高的订单。 user3932000 是正确的；没有内置函数来创建您请求的类型的输入表单。

但是，没有什么可以阻止您自己创建交互式界面。从头开始创建它会很耗时，而且会消耗计算器上的大量内存。没有样板代码可以将变量插入其中以获得所需的结果，但是在我编写的这个二次求解器之后，您可能会很幸运地对其进行建模。

ClrHome
a+bi
Output(1,1,"    QUADRATIC
Output(2,1,"    AX²+BX+C
Output(3,1,"ZEROS:
Output(6,1,"A=
Output(7,1,"B=
Output(8,1,"C=

DelVar YDelVar D
"             →Str1

While Y≠105
getKey→Y

If Ans
Then
Output(X,4,Str1
Output(3,7,Str1+Str1+Str1+"   
End

X+(Ans=34)-(Ans=25
If Ans<6:8
If Ans>8:6
Ans→X

Output(Ans,16,"◄

D(Y≠45→D

If Y=25 or Y=34
sum({A,B,C}(X={6,7,8→D

If Y=104:⁻D→D

10not(Y)+Y(102≠Y)-13int(Y/13(2>abs(5-abs(5-abs(Y-83
If Ans≤9
D10+Ans-2Ans(D<0→D

If X=6:D→A
If X=7:D→B
If X=8:D→C

If A
Then
2ˉ¹Aˉ¹(⁻B+{1,⁻1}√(B²-4AC
Else
If B
Then
⁻C/B
Else
If C
Then
"No Zeros
Else
"All Numbers
End
End
End

Output(3,7,Ans
Output(6,3,A
Output(7,3,B
Output(8,3,C
End
ClrHome
Ans

这是它为您做什么的 GIF。


多做一点工作。此代码可用于图形屏幕而不是主屏幕，在布局和设计方面提供更多选择。