Решение квадратного уравнения на Делфи

делфи

Решение квадратного уравнения на делфи или лазарусе. Поля 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.

Добавить комментарий для REMONTvoms Отменить ответ

Ваш e-mail не будет опубликован. Обязательные поля помечены *