Contoh Program Mencari Akar Persamaan Kuadrat Menggunakan Delphi 7

 Berikut Contoh Program Mencari Akar Persamaan Kuadrat Menggunakan Delphi 7

 Pertama Harus Diketahui Terlebih dahulu rumus Mencari Akar Persamaan Kuadrat :

      
     Rumus  :  Ax^2+Bx+C=0

 Lalu Ikuti tutorial Berikut ini

  

PROGRAM MENCARI AKAR PERSAMAAN KUADRAT
Ax^2+Bx+C=0

    Desain terlebih dahulu Form Projek Delphi 7 seperti dibawah ini

 

A.FORM AWAL

B.Coding PROJEK

unit UnitINTERNET;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Button1: TButton;

    Label6: TLabel;

    Label7: TLabel;

    Edit4: TEdit;

    Edit5: TEdit;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

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);

  (*.......rumus persamaan kuadrat..........*)

    d:=(b*b)-(4*a*c);

    if d=0 then

    begin

     x1:=-b/(2*a);

     x2:=-b/(2*a);

     edit4.text:=floattostr(x1);

     edit5.text:=floattostr(x2);

    end;

      if d<0 then

       begin

       edit4.text:='imajiner';

       edit5.text:='imajiner';

      end;

      if d>0 then

        begin

        x1:=(-b+sqrt(d))/(2*a) ;

  // fungsi ('Sqrt') UNTUK MENCARI AKAR...

        x2:=(-b-sqrt(d))/(2*a);

  // fungsi ('Sqr')  UNTUK MENCARI PANGKAT DUA...

        edit4.text:=floattostr (x1);

        edit5.text:=floattostr(x2);

      end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

end.

Cth:  D>0

Cth: D<0

Cth: D=0

Author : ade

Share this

Related Posts