主题：帮忙解道题目
a321001
[专家分：0] 发布于 2010-11-19 21:21:00
运输公司计算运费时，距离(S)越长，每公里运费越低，标准如下:
如果S＜250公里；运费为标准运价的100%
如果250公里＜＝S＜500公里，运费为标准运价的98%；
如果500公里＜＝S＜1000公里，运费为标准运价的95%；
如果1000公里＜＝S＜2000公里，运费为标准运价的92%；
如果2000公里＜＝S＜3000公里，运费为标准运价的90%；
如果S＝＞3000公里，运费为标准运价的85%；。请编计算运费的程序。
回复列表 （共5个回复）
沙发
hejieting [专家分：0] 发布于 2010-11-28 16:05:00
标准运费多少？？？？？？？？
板凳
幽灵密码 [专家分：3510] 发布于 2010-12-01 20:14:00
uses crt;
var
s,b,n:integer;
begin
clrscr;
readln(s);
write('Biaozhunyunfei=');readln(b);
case s of
1 .. 249: n:=b;
250 .. 499:n:=b div 100 * 98;
500 .. 999:n:=b div 100 * 95;
1000 .. 1999:n:=b div 100 * 92;
2000 .. 2999:n:=b div 100 * 90;
else:n:=b div 100 * 85;
end;
writeln(n);
readln
end.
3 楼
Tennokare [专家分：80] 发布于 2011-03-17 23:44:00
为毛运费不用real?
4 楼
renyucai1963 [专家分：0] 发布于 2011-05-15 11:47:00
Private Sub Command1_Click()
Dim s As Long
Dim yun As Currency
s = InputBox("路程=", s)
If s > 0 And s < 250 Then
yun = s * 100 / 100
Cls
Print yun
ElseIf s >= 250 And s < 500 Then
yun = s * 98 / 100
Cls
Print yun
ElseIf s >= 500 And s < 1000 Then
yun = s * 95 / 100
Cls
Print yun
ElseIf s >= 2000 And s < 3000 Then
yun = s * 90 / 100
Cls
Print yun
ElseIf s >= 3000 Then
yun = s * 85 / 100
Cls
Print yun
End If
End Sub
5 楼
cgl_lgs [专家分：21040] 发布于 2011-05-16 19:38:00
这种计算方式有BUG！
有啥BUG先自己想想：）
PS：我是说题目：）
我来回复
您所在位置：