割引を計算するための私の QBasic コードは次のとおりです。
CLS
INPUT "ENTER BILL AMOUNT";AMT
IF AMT <= 6000 THEN
DISCOUNT = 0
ELSEIF AMT > 6000 AND AMT <= 15000 THEN
DISCOUNT = 0.2 * AMT
ELSEIF AMT > 15000 AND AMT <= 50000 THEN
DISCOUNT = 0.3 * AMT
ELSEIF AMT > 50000 AND AMT <= 100000 THEN
DISCOUNT = 0.4 * AMT
ELSEIF AMT > 100000 AND AMT<= 200000 THEN
DISCOUNT = 0.5 * AMT
ELSEIF AMT > 200000 AND AMT <= 1000000 THEN
DISCOUNT = 0.6 * AMT
ELSE
DISCOUNT = 0.7 * AMT
END IF
NET = AMT - DISCOUNT
PRINT "THE BILL AMOUNT IS:"; NET
END
しかし、プログラムの実行中に 50 行目 (プログラムの 5 行目) でエラーが発生しますが、プログラムに構文エラーは見つかりません。