Решение квадратных уравнений

[ilushka2306]

Помогите пожалуйста исправить ошибку.
Не правильно находит x2,
и не хочет считать при вводе отрицательных значений.

unit korni;

interface

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

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  a,b,c,d,sd,x1,x2,a2:real;
  Text:string;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
memo1.Clear;
  d:=(Sqr(b))-(4*((a)*(c)));
    if d < 0 then
    showmessage('Корней нет')
    else
  sd := Sqrt(d);
  a2 := 2*a;
  x1 := ((-b)+(sd)) / a2;
  x2 := ((-b)-(sd)) / a2;
memo1.Lines.Add('Дискриминант = '+FloatToStr(d));
begin
  if a = 0 then
    memo1.Lines.Add(FloatToStr(b)+'x+'+FloatToStr(c)+'=0;');
  if b = 0 then
    memo1.Lines.Add(FloatToStr(a)+'x^2+'+FloatToStr(c)+'=0;');
  if c = 0 then
    memo1.Lines.Add(FloatToStr(a)+'x^2+'+FloatToStr(b)+'x+'+'=0;')
  else
    memo1.Lines.Add(FloatToStr(a)+'x^2+'+FloatToStr(b)+'x+'+FloatToStr(c)+'=0;');
end;
memo1.Lines.Add('Корни уравнения:');
memo1.Lines.Add('x1 = '+ FloatToStr(x1));
memo1.Lines.Add('x2 = '+ FloatToStr(x2));
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Memo1.Clear;
end;

procedure TForm2.Edit1Change(Sender: TObject);
begin
Text:=edit1.Text;
  if  Length(Text) >0 then
    a:=StrToFloat(edit1.Text)
  else
    a:=0;
end;

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Text:=edit1.Text;
  case key of
  #8,'0'..'9','-':;
end;
end;

procedure TForm2.Edit2Change(Sender: TObject);
begin
Text:=edit2.Text;
  if  Length(Text) >0 then
    b:=StrToFloat(edit2.Text)
  else
    b:=0;
end;

procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
Text:=Edit2.Text;
  case key of
  #8,'0'..'9','-':;
end;
end;

procedure TForm2.Edit3Change(Sender: TObject);
begin
Text:=edit3.Text;
  if  Length(Text) >0 then
      c:=StrToFloat(edit3.Text)
  else
    c:=0;
end;

procedure TForm2.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
Text:=Edit3.Text;
  case key of
  #8,'0'..'9','-':;
end;
end;

end.

[phomm]

Так ?

у тебя не было проверки на дискриминант=0

отрицательные числа не работали, потому что ты сам так задал программе, посмотри, как я сделал (особенно удели внимание переносу работы ввода числа в память из Tedit.OnChange в Tedit.OnExit )

ну и такая мелочь - у тебя 3 обработчика одного и того же - проверки символа на правильность для 3 разных эдитов, такое надо в 1 обработчике хранить, а всем нуждающимся компонентам назначать его.

Более того, твой onChange (и мой OnExit) можно тоже сделать 1 обработчиком , а не 3, а какой эдит конкретно вызвал событие , обычно определяется самим программистом с помощью задания компонентам разного Tag

Ах да, ещё убрал непонятные для меня Text := editX.text; отовсюду, а то они заголовок формы постоянно меняют (ибо в данном scope , где ты их используешь они относятся к форме, хотя, видимо , ты считал, что просто сохраняешь в локальную переменную)