Не правильно вычисляет корни квадратного уравнения

[Kugen]

Суть указана в заголовке темы. При больших числах она не правильно считает корни уравнения, хотя дискриминант находит правильно...Писал на 7 делфи
код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    GroupBox1: TGroupBox;
    Edit4: TEdit;
    Label7: TLabel;
    Edit5: TEdit;
    Label8: TLabel;
    Edit6: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,x1,x2:Real;
begin
    {чистим лабелы}
label3.Caption:='';label4.Caption:='';label5.Caption:='';label6.Caption:='';label10.Caption:='';
    {Решение уравнения}
  a:=strtofloat(edit1.Text);
  b:=strtofloat(edit2.Text);
  c:=strtofloat(edit3.Text);
  d:=b*b-4*a*c;
if d>=0 then
begin
  x1:=(-b + sqrt(d))/2*a;
  x2:=(-b - sqrt(d))/2*a;
    {Выводим значения корней и дискриминанта}
  label3.Caption := ' первый корень: '+floattostr(x1);
  label4.Caption := ' второй корень: ' +floattostr(x2);
  label5.Caption := ' дискриминант:  ' +floattostr(d);
end;
{if d<0 then
begin
  While (d<0) Do Begin
  b:=b+1;
  d:=b*b-4*a*c ; end;
  x1:=(-b-sqrt(d))/2*a;
  x2:=(-b+sqrt(d))/2*a;
    label6.Caption:= ' дискриминант: ' +floattostr(d)+
  ' первый корень: '+floattostr(x1)+
  ' второй корень: ' +floattostr(x2);
  edit4.Text:=floattostr(a);
  edit5.Text:=floattostr(b);
  edit6.Text:=floattostr(c);
  label10.Caption:= ' дискриминант: ' +floattostr(d)+
  ' первый корень: '+floattostr(x1)+
  ' второй корень: ' +floattostr(x2);
end;}
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['A'..'Z','a'..'z'] then key :=#0;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['A'..'Z','a'..'z'] then key :=#0;
end;


end.

[volod3000]

Вот изучайте :

Как посчитать корни квадратного уравнения

[Mad_Cat]

 x1:=(-b + sqrt(d))/2/a;
  x2:=(-b - sqrt(d))/2/a;

[volod3000]

Сообщение от Mad_Cat

 x1:=(-b + sqrt(d))/2/a;
  x2:=(-b - sqrt(d))/2/a;

А, как же формула ?

if d < 0 then
x1 := (-b + Sqrt(d)) / (2 * a);
x2 := (b + Sqrt(d)) / (2 * a);

[Mad_Cat]

А, как же формула ?

а разница?
например
12/(6*2)=12/12=1
12/6/2=2/2=1

[volod3000]

Сообщение от Mad_Cat

а разница?
например
12/(6*2)=12/12=1
12/6/2=2/2=1

Согласен, не подумал.

А, вот со знаками, как быть.

x1 := (-b + Sqrt(d)) / (2 * a);
x2 := (b + Sqrt(d)) / (2 * a);

[Kugen]

всем спасибо. Действительно, не хватало скобочек.