pascal编写阶梯水价
答案:1 悬赏:50 手机版
解决时间 2021-02-11 16:36
- 提问者网友：捧腹剧
- 2021-02-11 03:39
pascal编写阶梯水价
最佳答案
- 五星知识达人网友：人间朝暮
- 2021-02-11 05:12
const
a:array[1..6] of real=(0,4,6,8,10,12); {界限值}
b:array[1..6] of real=(0.8,0.9,1.1,1.4,1.8,2.3);
{每区间单价，下限为闭区间、上限为开区间}
var
x,y:real;
i,k:integer;
find:boolean;
begin
x:=4;
{readln(x);}
y:=0;
find:=false;
for i:=1 to 5 do
if (x>=a[i])and(x begin k:=i; find:=true; end;
if not find then k:=6;
for i:=1 to k-1 do y:=y+(a[i+1]-a[i])*b[i];
y:=y+(x-a[k])*b[k];
writeln(x:0:2,' ',y:0:2);
end.
a:array[1..6] of real=(0,4,6,8,10,12); {界限值}
b:array[1..6] of real=(0.8,0.9,1.1,1.4,1.8,2.3);
{每区间单价，下限为闭区间、上限为开区间}
var
x,y:real;
i,k:integer;
find:boolean;
begin
x:=4;
{readln(x);}
y:=0;
find:=false;
for i:=1 to 5 do
if (x>=a[i])and(x begin k:=i; find:=true; end;
if not find then k:=6;
for i:=1 to k-1 do y:=y+(a[i+1]-a[i])*b[i];
y:=y+(x-a[k])*b[k];
writeln(x:0:2,' ',y:0:2);
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯