PROGRAM DELPHI UNTUK AKAR-AKAR PERSAMAAN KUADRAT

procedure TForm1.ButtonPClick(Sender: TObject);

var a,b,c,d,X1,X2,P,Q:real;

begin

  a:=StrToFloat(EditA.Text);

  b:=StrToFloat(EditB.Text);

  c:=StrToFloat(EditC.Text);

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

  if (d>0)then

  begin

    EditHasil.Text:='DUA AKAR REAL yang BERBEDA';

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

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

    EditX1.Text:=FloatToStr(round(X1*100000)/100000);

    EditX2.Text:=FloatToStr(round(X2*100000)/100000);

  End else

    if (d=0)then

    begin

      EditHasil.Text:='DUA AKAR REAL yang SAMA';

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

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

      EditX1.Text:=FloatToStr(round(X1*100000)/100000);

      EditX2.Text:=FloatToStr(round(X2*100000)/100000);

    end else

      if (d<0)then

      begin

        EditHasil.Text:='DUA AKAR yang IMAJINER';

        P:=round(-b/(2*a)*100000)/100000;

        Q:=round(sqrt(-d)/(2*a)*100000)/100000;

        EditX1.Text:=FloatToStr(P)+' + ' +FloatToStr(Q)+' i';

        EditX2.Text:=FloatToStr(P)+' - ' +FloatToStr(Q)+' i';

      end;

end;

procedure TForm1.ButtonSClick(Sender: TObject);

begin

  application.Terminate;

end;

procedure TForm1.ButtonHClick(Sender: TObject);

begin

  EditA.Clear;

  EditB.Clear;

  EditC.Clear;

  EditHasil.Clear;

  EditX1.Clear;

  EditX2.Clear;

end;

end.

Terimakasih Semoga Bermanfaat.

_Wenda Alifulloh, Bandung 2013_