Решение квадратного уравнения на делфи или лазарусе. Поля edit1, edit2, edit3 для ввода коэффициентов. edit4 для вывода решения. При открытии формы коэффициент по умолчанию становятся равными единицы.
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
Var a,b,c,d,x1,x2:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=strtofloat(edit3.text);
d:=((b*b)-(4*a*c));
if d<0 then edit4.Text:=’Действительных корней нет’
else
if d=0 then
begin
x1:=(-b/(2*a));
edit4.text:=’Один действительный корень Х=’+floattostr(x1);
end
else
begin
x1:=((-b+sqrt(d))/(2*a));
x2:=((-b-sqrt(d))/(2*a));
edit4.text:=’Два корня Х1=’+floattostr(x1)+’ X2=’+floattostr(x2);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:=’1′;
edit2.Text:=’1′;
edit3.text:=’1′;
end;
end.