Floating point division by zero

[flouwjke]

Delphi Переменные объявлены как double почему то на kp1:=(20*log10(c/d))/l1; выдает Floating point division by zero хотя на калькуляторе посчитал с теме же значениями получается 3 с копейками Что не так?)

procedure TForm6.Button1Click(Sender: TObject);
begin
 a:=StrToFloat(Edit6.Text);
 b:=StrToFloat(Edit11.Text);
 c:=StrToFloat(Edit16.Text);
 d:=StrToFloat(Edit21.Text);
  uc1:=20*log10(sqrt((a/10)*ln(10)-(b/10)*ln(10)));
  p1:=uc1-b;
  kp1:=(20*log10(c/d))/l1;
  r1:=(p1+10)/kp1;
  if edit6.Text='1' then
     r1:=p1/kp1;
  Label7.Caption:=FloatToStr(round(r1*1000)/1000);
  Label11.Caption:=FloatToStr(round(uc1*1000)/1000);
  Label12.Caption:=FloatToStr(round(kp1*1000)/1000);

[BDA]

Так вам программа сама "говорит", что l1 равен 0.
А вот почему он равен нулю, разберитесь сами (тем более, что по приведенному коду этого нельзя понять).
Скорее всего, вы не инициализируете l1.

[flouwjke]

А все разобралсо пасиба