回 帖 发 新 帖 刷新版面

主题:一个简单问题

每吨货物每公里运费P与运输距离S有关,路愈远每公里运价愈低,公式如下
P=10  (S<100)
  8    (100<=S<150)
  7     (150<=S<200)
  6     (200<=S<300)
  5.5    (300<=S<500)
  5     (S>=500)
所付运费超过5000元,打九五折优待,输入货物吨数运输公里数,求应付的运费,准确到角分(小数点后第三位四舍五入)

回复列表 (共3个回复)

沙发

CLS
INPUT w, s
SELECT CASE s
CASE 0 TO 99: p = 10
CASE 100 TO 149: p = 8
CASE 150 TO 199: p = 7
CASE 200 TO 299: p = 6
CASE 300 TO 499: p = 5.5
CASE IS >= 500: p = 5
END SELECT
price = w * s * p
IF price > 5000 THEN price = price * .95
PRINT USING "########.##"; INT(price * 100 + .5) / 100
END

加分!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

板凳

我觉得程序有一点小问题:
price=w*s*p  不太对应该是price=w*p ??是不是?

3 楼

因要考试,所以时间很紧,以后每篇都会即时回复的.所以我的问题也希望得到你的答案。再次感谢帮助。

我来回复

您尚未登录,请登录后再回复。点此登录或注册