我的程序里哪里错了？

harry

帮忙看看我的程序里哪里错了？
标题：小玉家的电费
夏天到了，各家各户的用电量都增加了许多，相应的电费也交的更多了。小玉家今天收到了一份电费通知单。小玉看到上面写：据闽价电[2006]27号规定，月用电量在150千瓦时及以下部分按每千瓦时0.4463元执行，月用电量在151~400千瓦时的部分按每千瓦时0.4663元执行，月用电量在401千瓦时及以上部分按每千瓦时0.5663元执行;小玉想自己验证一下，电费通知单上应交电费的数目到底是否正确呢。请编写一个程序，已知用电总计，根据电价规定，计算出应交的电费应该是多少。
program project1;
var
   s,y:real;
begin
   readln(s);
   if s<=150 then writeln (s*0.4463:0:1)
else
   if (s>=151) and (s<=400) then
     writeln (150*0.4463+(s-150)*0.4663):0:1)
else
     writeln ((150*0.4463+(400-150)*0.4663+(s-400)*0.5663):0:1);
   readln;
end.              

123456dss

program project1;
var
   s,y:real;
readln(s);
   if s<=150 then
   begin
     writeln (s*0.4463:0:1);
   end
  else
   if (s>=151) and (s<=400) then
   begin
     writeln (150*0.4463+(s-150)*0.4663:0:1);
   end
   else
     writeln ((150*0.4463+(400-150)*0.4663+(s-400)*0.5663):0:1);
   readln;
end.

chenyuchih

回樓主，

您的條件判定會有死角，因為s是real type，而您的if判定用150 & 151做區隔，這樣會導致s=150.5的時候會使用s>400的算法，建議類似的條件判定式儘量寫成無縫式的銜接比較好，例如

if (s<=150) then
.....
else if (s<=400) then //因為此else一定是s>150的情況，所以不用再多加s>150的判定
.....
else
.....

請參考！

harry

我明白了,谢谢了！

wylton

3个临界点，2个判断而已。