Question

我有一个TI-Nspire，并且我正在尝试编写勾股定理程序。（我要为未解决的一面输入零）

:RequestStr "A Side",a
:RequestStr "B Side",b
:RequestStr "C Side",c
:IF a=0 THEN
:Disp "A=",root(c^2-b^2)
:ENDIF
:IF b=0 THEN
:Disp "B=",root(c^2-a^2)
:ENDIF
:IF c=0 THEN
:Disp "C=",root(a^2+b^2)
:ENDIF

Answer 1

我对TI-Nspires不熟悉，但是对于其他计算器，勾股定理可以通过两种方式完成：

找到斜边

Prompt A,B
Disp √(A²+B²)

要查找另一面（在这种情况下，A面和B面可互换：

Prompt C,A
Disp √(C²-A²)

这是最简单的方法，这再次取决于您是否知道如何利用TI-Nspire的功能。

编辑：哦，从我的角度来看，您希望未知面等于0，这样，在TI-Basic中，又是：

Prompt A,B,C
If A=0
Disp √(C²-B²)

接下来的两行是可选的，只要您知道A可以是B，反之亦然：

If B=0
Disp √(C²-A²)
If C=0
Disp √(A²+B²)

顺便说一句：√是平方根符号。

TI-Nspire编程（TI-Basic）

1 个答案: