for (;;)
{
  if (fabs(除數) < 0.0000000001)
  continue;
}

rangen6912：以下只代表我個人的觀念！我從DOS時代就不停有
除數為零的現象！答案為何？
基本上一是警告讓使用者重來。
一是跳過如hobolin大大的continue。
另一是答案為零。
程式裡可能應除法問題有太多不確定性！
BCB你可以使用
try {
  A=A/B;
}
catch(...) {
  A=0; // 或是錯誤警告
}
DOS期(Clipper)我是使用副程式包起來例：
double A_B(double a,double b)
{
  if (b==0.0)  
    return 0.0;
  else
    return a/b;
}
如你的f_real=cos(2*M_PI*b*0.00000001*x/d/L);
可以為f_real=cos(A_B(A_B(2*M_PI*b*0.00000001*x,d),L));
確保安全！
按你的程式我建議你的
if (x==0)
  B=0;
else
  ... 
應該可以行的通！
請參考！