حل معادلة من الدرجة الأولى باستخدام ObjectPascal

الكود:

function Eq1Ord(A, B: double): double;

unit seqpdU;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);

  private
    { private declarations }
    function Eq1Ord(A, B: double): double;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  X, A, B: double;
begin
  X := 0;
  if not TRYSTRTOFloat(EDIT1.Text, A) then
    A := 0;
  if not TRYSTRTOFloat(EDIT2.Text, B) then
    B := 0;
  X := Eq1Ord(A, B);
  Label3.Caption := Format('X=%f', [X]);

end;

function TForm1.Eq1Ord(A, B: double): double;

begin
  Result := 0;
  if B <> 0 then
    Result := -B / A;
end;
end.

الكود:

procedure Eq1Ord(A, B: double; var X: double); 

unit seqpdU;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);

  private
    { private declarations }
    procedure Eq1Ord(A, B: double; var X: double);
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  X, A, B: double;
begin
  X := 0;
  if not TRYSTRTOFloat(EDIT1.Text, A) then
    A := 0;
  if not TRYSTRTOFloat(EDIT2.Text, B) then
    B := 0;
   Eq1Ord(A, B,X);
  Label3.Caption := Format('X=%f', [X]);

end;

procedure TForm1.Eq1Ord(A, B: double; var X: double);
begin
  if B <> 0 then
    x := -B / A;
end;
end.