题目描述
夏天到了,各家各户的用电量都增加了许多,相应的电费也交的更多了。小玉家今天收到了一份电费通知单。小玉看到上面写:据闽价电[2006]27号规定,月用电量在150千瓦时及以下部分按每千瓦时0.4463元执行,月用电量在151~400千瓦时的部分按每千瓦时0.4663元执行,月用电量在401千瓦时及以上部分按每千瓦时0.5663元执行;小玉想自己验证一下,电费通知单上应交电费的数目到底是否正确呢。请编写一个程序,已知用电总计,根据电价规定,计算出应交的电费应该是多少。
输入输出格式
输入格式:
输入一个整数,表示用电总计(单位以千瓦时计),不超过10000。
输出格式:
输出一个数,保留到小数点后1位(单位以元计,保留到小数点后1位)。
输入输出样例
输入样例#1:
267
夏天到了,各家各户的用电量都增加了许多,相应的电费也交的更多了。小玉家今天收到了一份电费通知单。小玉看到上面写:据闽价电[2006]27号规定,月用电量在150千瓦时及以下部分按每千瓦时0.4463元执行,月用电量在151~400千瓦时的部分按每千瓦时0.4663元执行,月用电量在401千瓦时及以上部分按每千瓦时0.5663元执行;小玉想自己验证一下,电费通知单上应交电费的数目到底是否正确呢。请编写一个程序,已知用电总计,根据电价规定,计算出应交的电费应该是多少。
输入输出格式
输入格式:
输入一个整数,表示用电总计(单位以千瓦时计),不超过10000。
输出格式:
输出一个数,保留到小数点后1位(单位以元计,保留到小数点后1位)。
输入输出样例
输入样例#1:
267
输出样例#1:
121.5
var
k:longint;
procedure s;//使用过程分类计算
var
a:real;
begin
a:=k;
a:=a*0.4463;
write(a:0:1);
end;
procedure m;//同上
var
begin
a:=k;
a:real;
a:=150*0.4463+(k-150)*0.4663;
write(a:0:1);
end;
procedure b;//同上
var
a:real;
begin
a:=k;
a:=150*0.4463+250*0.4663+(k-400)*0.5663;
write(a:0:1);
end;
begin
read(k);
if k<=150 then s;
if (150<k)and(k<401) then m;
if k>400 then b;//三种情况,分类使用过程
end.