решение корней уранения

[Артём812]

Всем добрый день!
Пишу программу по решению корней квадратного уравнения, при запуске с значением переменной а=0 выдает ошибку invalid floating operation.
В самом файле все прописал, когда а=0 что делать, мож где ошибся, или упустил что-нибудь. вот код:

procedure TForm1.btn1Click(Sender: TObject);
var x1,x2,a,b,c,d: Real;
begin

a := StrToFloat(Edt1.Text);
b := StrToFloat(Edt2.Text);
c := StrToFloat(Edt3.Text);
d := b*b-4*a*c;
begin
if (a=0) then
lbl3.Caption := 'Делить на нуль нельзя'
else
if (b=0) then
lbl3.Caption := 'Нельзя извлечь корень (отрицательное число)'
end;
else
 begin
 if (d<0) then
 lbl3.Caption := 'Нельзя извлечь корень'
 else
  if (d>0) then
 lbl3.Caption := 'Два корня';
 x1 := (-b + Sqrt(d)) / (2*a);
 x2 := (-b - Sqrt(d)) / (2*a);
 Edt5.Text:=FloatToStr(x1);
 Edt6.Text:=FloatToStr(x2);
 end;
 end;
 end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Вы не понимаете, для чего используются BEGIN ... END;
и поэтому ставите их там, где они не нужны (после вычисления d, например, begin не нужен)
и не ставите там, где нужны.

Кстати, Вы лукавите. Ваш код вообще не должен комплироваться, там чисто синтаксические ошибки.

и последнее - форматируйте код с помощью отступов, тогда сразу будет наглядно, где Вы ошиблись со структурой программы.

Успехов!

p.s. кстати, уравнение при a=0 может иметь решение (при B не равном нулю),
только это уже не квадратное уравнение получается, а уравнение вида B*X + C = 0.
для нахождения X можно использовать формулу x := -C / B;

[Артём812]

программа запускается и работает, просто выдаёт ошибку, можно было бы помочь решить проблему, а не строить из себя супер-умного

[Serge_Bliznykov]

программа запускается и работает,

я не люблю, когда врут. Код из вашего примера не компилируется.
compile_error.png
Если у Вас в проекте другой код (с исправленной ошибкой), то, допускаю,
что он компилируется и запускается.


В любом случае я Вам объяснил в чём ваши ошибки.
Не хотите слушать - воля ваша, продолжайте в том же духе!
Адью!

[Артём812]

procedure TForm1.btn1Click(Sender: TObject);
var x1,x2,a,b,c,d: Real;
begin

a := StrToFloat( Edt1.Text );
b := StrToFloat( Edt2.Text );
c := StrToFloat( Edt3.Text );
d := b * b - 4 * a * c;
begin
if (a=0) then
lbl3.Caption := 'Делить на нуль нельзя'
else
if (b=0) then
lbl3.Caption := 'Нельзя извлечь корень (отрицательное число)'
end;
begin
if (d<0) then
lbl3.Caption := 'Нельзя извлечь корень'
else
if (d>0) then
lbl3.Caption := 'Два корня';
x1 := (-b + Sqrt( d )) / (2 * a);
x2 := (-b - Sqrt( d )) / (2 * a);
Edt5.Text:=FloatToStr(x1);
Edt6.Text:=FloatToStr(x2);
end;
end;
end.

[Serge_Bliznykov]

procedure TForm1.btn1Click(Sender: TObject);
var x1, x2, a, b, c, d: Real;
begin

  Edt5.Text := '';
  Edt6.Text := '';

  a := StrToFloat(Edt1.Text);
  b := StrToFloat(Edt2.Text);
  c := StrToFloat(Edt3.Text);
  d := b * b - 4 * a * c;
  if (a = 0) then begin
    if (b = 0) then
      lbl3.Caption := 'Нет решений'
    else begin
      lbl3.Caption := 'Один корень';
      x1 := -c / b;
      Edt5.Text := FloatToStr(x1);
    end;
  end
  else begin
    if (d < 0) then
      lbl3.Caption := 'Дискриминант меньше нуля, нет действительных корней'
    else begin
      if (d > 0) then
        lbl3.Caption := 'Два корня'
      else
        lbl3.Caption := 'Один корень';

      x1 := (-b + Sqrt(d)) / (2 * a);
      x2 := (-b - Sqrt(d)) / (2 * a);
      Edt5.Text := FloatToStr(x1);
      Edt6.Text := FloatToStr(x2);

    end;
  end;
end;

[Артём812]

Большое спасибо за помощь, только при запуске программы, когда должен создаваться ексешник, ничего не происходит. Run with debugging - нет такого файла. Делфи переустановил. В чем может быть проблема. Заранее очень благодарен