私の TI-84 Plus C Silver Edition 電卓の TI BASIC には、患者の体重に基づいて薬の正しい投与量を決定する小さなコードがあります。たとえば、患者の体重 1 kg あたり 5 mg のアスピリンを投与する場合 (そうではありません)、コードは 100 kg の患者に 500 mg のアスピリンを投与するように指示する必要があります。ただし、コードは考えられるすべての薬物を解決しています。ここにあります:
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
したがって、この場合、2 つの薬はIPPI
とNEVO
です。患者の体重を 100kg として を選択するIPPI
と、
DOSAGE 200
しかし、私が見ているのは
DOSAGE 200
DOSAGE 50
したがって、1 つの値 ( ) しか指定していないにもかかわらず、明らかに両方の "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にかなり慣れていないので、見えない単純なエラーがあると確信していますが、現時点では困惑しています。