Program Faktor Persekutuan Besar

Teori
Faktor persekutuan besar (FPB) atau Greatest Common Divisor dari dua bilangan positif adalah bilangan positif terbesar yang habis membagi kedua bilangan tersebut.

Contoh: FPB dari 25 dan 15
Faktor pembagi habis prima dari 25: 1, 5, 25
Faktor pembagi habis prima dari 15: 1, 3, 5, 15

Pada contoh diatas kita melihat bahwa angka 5 muncul di kedua bilangan. Setelah angka 5 adalah angka 15, sehingga angka 5 dikatakan angka terakhir yang menbagi habis keduanya sehingga 5 adalah FPB dari 25 dan 15.

Pembuatan Program

1. Buat form seperti dibawah ini
   
   
   
   Tambahkan obyek: 2 TLabel, 3 TEdit, 1 TButton. Property masing-masing obyek seperti dibawah ini:
   
   

   Nama Class	Property Class
   TLabel	Name: label1 Caption: Bilangan 1
   TLabel	Name: label2 Caption: Bilangan 2
   TEdit	Name: edtBil1
   TEdit	Name: edtBil2
   TButton	Caption: Kerjakan Name: btnKerjadan

2. Pada FormCreate masukkan kode berikut:
   
   

   FormCreate

   void __fastcall TForm1::FormCreate(TObject *Sender) { edtBil1->Text = 0; edtBil2->Text = 0; edtFPB->Text = 0; }

   
   Kode ini dipergunakan untuk mempersiapkan nilai awal pada kotak masukan berupa nilai 0
3. Buatlah fungsi FPB seperti kode berikut:
   
   

   fpb(int u, int v)

   int fpb(int u, int v) { if (v % u == 0) { return  u; } else { return  fpb(v, u % v); }; }

4. Masukkan kode berikut pada btnKerjakanClick
   
   

   btnKerjakanClick

   void __fastcall TForm1::btnKerjakanClick(TObject *Sender) { int u,  v, x;u = StrToInt(edtBil1->Text); v = StrToInt(edtBil2->Text);x = fpb( u, v); edtFPB->Clear(); edtFPB->Text = x; }

Program Faktor Persekutuan Besar 2015-08-08T20:41:00-07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer