用QBasic语言编程 高手请进!!

购物金额大于或等于200 打7折
购物金额大于或等于100 小于200 打8折
购物金额不足100元 不参与打折活动

用QBASIC语言编程 谢谢! 主要是分析一下。

INPUT X
IF X>=200 THEN
Y=0.7*X
ELSEIF X>=100 THEN
Y=0.8*X
ELSE
Y=X
END IF
PRINT Y
END

我上机运行了,没有错误。
多分支有块形式的IF和SELECT CASE语句,都是对的。
温馨提示:答案为网友推荐,仅供参考
第1个回答  2010-05-29
INPUT X
IF X>=200 THEN
Y=0.7*X
ELSEIF X>=100 THEN
Y=0.8*X
ELSE
Y=X
END IF
PRINT Y
END

用SELECT CASE也可以
第2个回答  2010-05-26
CLS
INPUT JQ '输入购物金额
SELECT CASE JQ
CASE IS JQ>=200
GWJE=JQ*0.7
CASE IS JQ>=100
GWJE=JQ*0.8
CASE IS JQ<100
GWJE=JQ
END SELECT
PRINT GWJE
END
(顺便说一下,二楼的,你光用IF……THEN……多分支,会影响程序速度,并且程序复杂,不如SELECT CASE多分支好用)
二楼的错了!少了一个END IF!
block if without end if!

参考资料:我 呀 ( ⊙ o ⊙ )!!!!

第3个回答  2010-06-05
input M(金额)
if m<100 then
m=m
else if 100=<m and m=<200 then
m=0.8*m
else
m=0.7*m
end if
end if
print m
end
你看行不?
相似回答
大家正在搜