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 Rating: 4.5 Diposkan Oleh: Good Dreamer

0 comments:

Posting Komentar

Diberdayakan oleh Blogger.