мнимые корни уравнения

[Arthasmenetil]

помогите с мнимыми корнями программа должна выводить на экран мнимые корни уравнения Delphi 10 Seattle

[Arthasmenetil]

что это уже есть:

unit Unit6;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
TForm6 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Label1: TLabel;
Label2: TLabel;
GroupBox1: TGroupBox;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Edit3: TEdit;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form6: TForm6;
a,b,c,d,x1,x2:extended;

implementation

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
d:=sqr(b)-4*a*c ;
if d<0 then
begin
label1.Caption := 'Внимание! Данное уравнение не имеет решения(корней)! '+
floattostr(d)+' дискриминант меньше 0';

end;
if d>=0 then
begin
button2.Enabled := true;
x1:=(-b-sqrt(d))/2*a;
x2:=(-b+sqrt(d))/2*a;
label1.Caption := floattostr(x1) +' -первый корень '+ floattostr(x2)+' -второй корень '+ floattostr(d)+' -дискриминант';
end;

end;

procedure TForm6.Button2Click(Sender: TObject);
begin
label5.Caption := 'Ваше уравнение: '+ edit1.Text + label6.Caption + ComboBox2.Text+
edit2.Text + label7.Caption + ComboBox1.Text+edit3.Text;
label8.Caption := 'вычисляем дискриминант: ' +
'd= '+ edit2.Text+'^' + ' - '+
'4 *'+edit1.Text+' * '+edit3.Text +';'+ ' d= '+ floattostr(d) + ';'+
' вычислим корни: '+
'x1= '+ '(-'+edit2.Text+ ' - кв.к '+floattostr(d)+') /2 * '+edit1.Text +'; x1= '+
floattostr(x1) + ';'+
'x2= '+ '(-'+edit2.Text+ ' + кв.к '+floattostr(d)+') /2 * '+edit1.Text +'; x2= '+
floattostr(x2);
if d<0 then
begin
label5.Caption := 'Ваше уравнение: '+ edit1.Text + label6.Caption + ComboBox2.Text+
edit2.Text + label7.Caption + ComboBox1.Text+edit3.Text;
label8.Caption := 'НЕ ИМЕЕТ РЕШЕНИЯ! '
end;

end;

procedure TForm6.FormCreate(Sender: TObject);
begin
form6.Edit1.Text:='';
form6.Edit2.Text:='';
form6.Edit3.Text:='';
end;

end.

нужно остальное.

[NetSpace]

ну! если дискриминант <0, то просто меняешь его знак на + и так же вычисляешь 2 корня. только в ответе не забудь приписать мнимую единицу i:
x1:= -b/(a2) + i*корень(D)/(2a)
и x2:= -b/(a2) - i*корень(D)/(2a)

[Arthasmenetil]

Спасибо! будем считать тему закрытой.