кто нибудь до вечера может сделать? - Delphi - Ответ 1034061

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure SqrUravnenie(A,B,C:Real;var x1,x2:Real;var S:String);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Button1.Caption:='Посчитать';
  Label1.Caption:='A';
  Label2.Caption:='B';
  Label3.Caption:='C';
end;
 
Procedure TForm1.SqrUravnenie(A,B,C:Real;var x1,x2:Real;var S:String);
var
  D:Real;
Begin
  D:=Sqr(B)-4*A*C;
  If D>=0 Then
  Begin
    x1:=(-B+Sqrt(D))/2*A;
    x2:=(-B-Sqrt(D))/2*A;
  End;
  If D=0 Then S:='D=0 => Уравнение имеет 1 корень';
  If D>0 Then S:='D>0 => Уравнение имеет 2 корня';
  If D<0 Then S:='D<0 => Уравнение не имеет корней';
End;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  x1,x2:Real;
  S:String;
begin
  SqrUravnenie(StrToFloat(edit1.Text),
               StrToFloat(edit2.Text),
               StrToFloat(edit3.Text),x1,x2,S);
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  If S='D=0 => Уравнение имеет 1 корень' Then
  Begin
    Edit1.Text:=FloatToStr(x1);
    Edit2.Text:=S;
  End;
  If S='D<0 => Уравнение не имеет корней' Then Edit1.Text:=S;
  If S='D>0 => Уравнение имеет 2 корня' then
  Begin
    Edit1.Text:=FloatToStr(x1);
    Edit2.Text:=FloatToStr(x2);
    Edit3.Text:=S;
  End;
end;
 
end.