您所在位置：主题：[原创]请问我错在哪了？
火虎ing
[专家分：0] 发布于 2012-04-24 22:31:00
var x,a:real;
begin
readln(x);
if x<3500 then a:=0
else if x-3500 <=1500 then a:=(x-3500)*0.03
else if x-3500 <=4500 then a:=(x-3500-1500)*0.1+1500*0.03
else if x-3500 <=9000 then a:=(x-3500-4500)*0.2+3000*0.1+1500*0.03
else if x-3500 <=35000 then a:=(x-3500-9000)*0.25+4500*0.2+3000*0.1+1500*0.03
else if x-3500 <=55000 then a:=(x-3500-35000)*0.3+26000*0.25+4500*0.2+3000*0.1+1500*0.03
else if x-3500 <=80000 then a:=(x-3500-55000)*0.35+20000*0.3+26000*0.25+4500*0.2+3000*0.1+1500*0.03
else if x-3500 >80000 then a:=(x-3500-80000)*0.45+25000*0.45+20000*0.3+26000*0.25+4500*0.2+3000*0.1+1500*0.03;
writeln(a:2:2);
end.
begin
readln(x);
if x<3500 then a:=0
else if x-3500 <=1500 then a:=(x-3500)*0.03
else if x-3500 <=4500 then a:=(x-3500-1500)*0.1+1500*0.03
else if x-3500 <=9000 then a:=(x-3500-4500)*0.2+3000*0.1+1500*0.03
else if x-3500 <=35000 then a:=(x-3500-9000)*0.25+4500*0.2+3000*0.1+1500*0.03
else if x-3500 <=55000 then a:=(x-3500-35000)*0.3+26000*0.25+4500*0.2+3000*0.1+1500*0.03
else if x-3500 <=80000 then a:=(x-3500-55000)*0.35+20000*0.3+26000*0.25+4500*0.2+3000*0.1+1500*0.03
else if x-3500 >80000 then a:=(x-3500-80000)*0.45+25000*0.45+20000*0.3+26000*0.25+4500*0.2+3000*0.1+1500*0.03;
writeln(a:2:2);
end.