神马作文网pascal 关于case语句的问题
来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/09/22 00:55:31
pascal 关于case语句的问题
某运输公司的运输收费标准如下：
设S表示运输路程(单位：公里),W表示货物重量(单位：吨),P表示每公里运费,F%表示根据运输路程的折扣.
路程
S
某运输公司的运输收费标准如下：
设S表示运输路程(单位：公里),W表示货物重量(单位：吨),P表示每公里运费,F%表示根据运输路程的折扣.
路程
S
program a;
var
i,s,p,p1:double;
w:integer;
begin
readln(w,p,s);//依次输入重量,每公里价格,路程
case w of
0..249:p1:=s*p;
250..499:p1:=s*p*0.98;
500..999:p1:=s*p*0.95;
1000..1999:p1:=s*p*0.92;
2000..2999:p1:=s*p*0.90;
else p1:=s*p*0.85;
end;
writeln(p1:5:2);//控制输出格式
readln;
readln;
end.
p1是总运费哈.
var
i,s,p,p1:double;
w:integer;
begin
readln(w,p,s);//依次输入重量,每公里价格,路程
case w of
0..249:p1:=s*p;
250..499:p1:=s*p*0.98;
500..999:p1:=s*p*0.95;
1000..1999:p1:=s*p*0.92;
2000..2999:p1:=s*p*0.90;
else p1:=s*p*0.85;
end;
writeln(p1:5:2);//控制输出格式
readln;
readln;
end.
p1是总运费哈.