Mencari akar persamaan kuadrat dengan menggunakan C++ Builder

Di dalam ilmu matematika, pasti Anda sudah tidak asing lagi dengan persamaan ax²+bx+c=0.

Untuk mencari akar-akar dari persamaan tersebut, biasanya seseorang dapat menggunakan 3 metode, yaitu memfaktorkan, menggunakan rumus abc, dan kuadrat sempurna. Nah, Sekarang tugas kita orang informatika untuk mempermudah menghitungnya.

Dengan menggunakan C++ Builder 4, Saya akan membuat sebuah aplikasi untuk mencari akar-akar dalam suatu persamaan.

Berikut adalah Langkah-Langkahnya :

1.      Buat interface/antar muka program

Komponen	Properties	Nilai/Value
Form1	Caption	Mencari Akar-akar
	Name	FrAkar
Label1	Caption	a
	Name	Label1
Label2	Caption	b
	Name	Label2
Label3	Caption	c
	Name	Label3
Label4	Caption	Diskriminan
	Name	Label4
Label5	Caption	Akar ke-1
	Name	Label5
Label6	Caption	Akar ke-2
	Name	Label6
Label7	Caption	Label7
	Name	Label7
Edit1	Name	EdA
Edit2	Name	EdB
Edit3	Name	EdC
Edit4	Name	EdD
Edit5	Name	EdAkar1
Edit6	Name	EdAKar2
Button1	Caption	Hitung
	Name	Button1
Button2	Caption	Hapus
	Name	Button2
Button3	Caption	Keluar
	Name	Button3

2.      Ketika pertama kali running, ketikan Listing program pada form create dengan cara mendouble klik form.

    EdA->Text="";

    EdB->Text="";

    EdC->Text="";

    EdD->Text="";

    EdAkar1->Text="";

    EdAkar2->Text="";

    Label7->Caption="";

3.      Event Ketika Button Hitung di klik, berikut Listing programnya:

  int a,b,c;

  double D,x1,x2;

  {

    a=StrToInt(EdA->Text);

    b=StrToInt(EdB->Text);

    c=StrToInt(EdC->Text);

    D=(b*b)-(4*a*c);

    EdD->Text=FloatToStr(D);

//jika Didkriminannya kurang dari 0 maka akar2 merupakan bilangan imaginer

    if (D<0)

       Label7->Caption="Akarnya adalah Bilangan Imaginer";

    else

    {

       if (D==0)

//Jika Diskriminiannya =0 maka akar ke-1 dan ke-2 sama

          Label7->Caption="Akar-akarnya kembar" ;

       else

       {

          Label7->Caption="Akar-akarnya adalah :";

       }

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

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

       EdAkar1->Text=FloatToStr(x1);

       EdAkar2->Text=FloatToStr(x2);

    }

  }

4.     Event Ketika Button Hapus di klik,  Maka kondisi dikembalikan ke awal, sama ketika pertama kali program running. Jadi kita hanya tinggal memanggil procedure form create yaitu :

   FormCreate(Sender);

5.      Event Ketika Button Keluar di klik :

  if (Application->MessageBox("Anda Mau keluar ?","Keluar",

  MB_OKCANCEL+MB_ICONQUESTION)==ID_OK)

  {

    Application->Terminate();

  }