主题:一个简单问题
TMGY119
[专家分:0] 发布于 2007-09-05 15:04:00
每吨货物每公里运费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个回复)
沙发
Matodied [专家分:7560] 发布于 2007-09-05 22:05:00
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
加分!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
板凳
TMGY119 [专家分:0] 发布于 2007-09-07 09:34:00
我觉得程序有一点小问题:
price=w*s*p 不太对应该是price=w*p ??是不是?
3 楼
TMGY119 [专家分:0] 发布于 2007-09-07 09:37:00
因要考试,所以时间很紧,以后每篇都会即时回复的.所以我的问题也希望得到你的答案。再次感谢帮助。
我来回复