twitter
    Find out what I'm doing, Follow Me :)

Like Button Facebook

Minggu, 06 Februari 2011

Mencari akar persamaan kuadrat dengan menggunakan C++ Builder


Di dalam ilmu matematika, pasti Anda sudah tidak asing lagi dengan persamaan ax2+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();
  }

0 komentar:

Posting Komentar