ti-basic - Trouble on "If"statement on TI-84 Plus C Silver Edition

Question

我的 TI-84 Plus C 银版计算器上有一个 TI BASIC 的小代码，可以根据患者的体重确定正确的药物剂量。例如，如果每千克患者体重服用 5 毫克阿司匹林(事实并非如此)，那么代码应该告诉我给 100 公斤重的患者服用 500 毫克阿司匹林。然而，代码正在解决每一种可能的药物。在这里:

PROGRAM:DRUG1
:Input "PATIENT WEIGHT: ",W
:Input "AGENT NAME: ",A
:If A=IPPI
:Disp "DOSAGE",W*2
:If A=NEVO
:Disp "DOSAGE", W*0.5

所以在这种情况下，这两种药物是 IPPI 和 NEVO。如果我给患者体重 100 公斤，并选择 IPPI，那么我希望看到

DOSAGE                 200

然而，我确实看到了

DOSAGE              200
DOSAGE               50

显然两个“if”语句都在运行，即使我只给出了一个值 (IPPI)。 [当我将A设置为NEVO时出现同样的错误]。

我也试过将 If 语句包含在 Then...End 中，所以代码看起来像:

PROGRAM:DRUG1
:Input "PATIENT WEIGHT: ",W
:Input "AGENT NAME: ",A
:If A=IPPI
:Then
:Disp "DOSAGE",W*2
:End
:If A=NEVO
:Then
:Disp "DOSAGE", W*0.5
:End

但这并没有改变什么。我是 BASIC 的新手，所以我确定有一个我看不到的简单错误，但我现在很困惑。

Answer 1

您需要更改第二个输入命令，以便将信息存储到字符串而不是数字变量 A。为此，TI-84 系列计算器的 [VARS][7] 菜单中有十个字符串变量。

另请注意，您必须将字符串与字符串“IPPI”进行比较，而不是将字母序列(数字变量)IPPI 进行比较。所以你的代码可能是:

:Input "PATIENT WEIGHT: ",W
:Input "AGENT NAME: ",Str1
:If Str1="IPPI"
:Disp "DOSAGE: ",W*2
:If Str1="NEVO"
:Disp "DOSAGE: ",W*0.5

或更简洁:

:Input "PATIENT WEIGHT: ",W
:Input "AGENT NAME: ",Str1
:Disp "DOSAGE:"
:If Str1="IPPI"
:Disp 2W
:If Str1="NEVO"
:Disp .5W