我有一个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
答案 0 :(得分: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²)
顺便说一句:√
是平方根符号。