Program Faktor Persekutuan Besar

Faktor dari suatu bilangan adalah bilangan yang habis membagi suatu bilangan. Yang disebut habis membagi adalah pembagian tanpa menghasilkan sisa atau bilangan pecahan

Faktor persekutuan dari dua bilangan atau lebih adalah faktor dari bilangan-bilangan tersebut yang sama.

Faktor persekutuan besar ada faktor-faktor dari suatu bilangan yang sama dan paling besar

Buatlah form sebagai berikut sebagai langkah awal membuat aplikasi FPB

Keterangan:

Bil1, Bil2 adalah editbox untuk menampung nilai-nilai yang akan dicari FPB-nya
Faktor adalah nilai faktor perkalian dari bilangan yang bersangkutan
Tombol kerjakan adalah tombol untuk memerintahkan software untuk mencari FPB dan hasilnya akan diletakkan di editbox yang disamping kirinya bertuliskan FPB

Faktor dari suatu bilangan dapat dicari dengan membagi bilangan tersebut dengan bilangan-bilangan dari satu sampai pada bilangan tersebut:

function Faktor(Bil: integer): TStringList;
var
    i : integer;
begin
    result := TStringList.Create;
    for i:= 1 to bil do
        if (bil mod i) = 0 then
            result.Add(IntToStr(i));
end;

Bil adalah variabel untuk menerima bilangan yang akan diketahui faktornya. Fungsi faktor diatas akan mengembalikan kepada program pemanggil sebagai TStringList. Fungsi mod dipergunakan untuk mengetahui apakah pembagian tersebut mempunyai sisa, jika tidak maka bilangan pembagi tersebut adalah faktornya.
Untuk mengetahui FPB dari dua bilangan yang ditanyakan, kita mencari faktor-faktor yang sama terlebih dahulu. Setelah itu kita mencari faktor terbesar dari keduanya. Andai bilangan 1 dan bilangan 2 ditulis pada edit3.text dan edit4.text sedangkan FPB adalah TStringlist untuk menyimpan faktor-faktor yang sama, maka kode programnya dapat berbentuk seperti dibawah ini:

bil1 := StrToInt(trim(edit1.Text));
t1 := Faktor(bil1);
FPB := TStringList.Create;

if t1.Count > 0 then

begin

edit3.Clear;

for i:= 0 to (t1.Count - 1) do

begin

edit3.Text := edit3.Text + t1[i];

if i < (t1.Count - 1) then

edit3.Text := edit3.Text + ', ';

end

else

edit3.Text := '0';

Karena FPB adalah faktor terbesar, sedangkan nilai di TstringList sudah urut dari kecil ke besar, maka nilai FPB-nya adalah nilai pada TstringList FPB pada indeks terakhir:

if (t1.Count > 0) and (t2.Count > 0) then

begin

i := 0; j:= 0;

while (i < t1.Count) and (j < t2.Count) do

begin

if t1[i] < t2[j] then

inc(i)

else

if t1[i] > t2[j] then

inc(j)

else

if t1[i] = t2[j] then

begin

FPB.Add(t1[i]);

inc(i);

inc(j);

end;

//tulis di TEdit

if FPB.Count > 0 then

edit5.Text := FPB[FPB.Count-1];

end;

Kode program selengkapnya:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Label5: TLabel;
    Edit5: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
      function Faktor(Bil: integer): TStringList;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   edit1.Text := '10';
   edit2.Text := '5';
   edit3.Clear;
   edit4.Clear;
   edit5.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    i,j, bil1, bil2 : integer;
    t1, t2, FPB   : TStringList;
begin

bil1 := StrToInt(trim(edit1.Text));
    t1 := Faktor(bil1);
    FPB := TStringList.Create;

if t1.Count > 0 then
    begin
        edit3.Clear;
        for i:= 0 to (t1.Count - 1) do
        begin
            edit3.Text := edit3.Text + t1[i];
            if i < (t1.Count - 1) then
                edit3.Text := edit3.Text + ', ';
        end
    end
    else
        edit3.Text := '0';

bil1 := StrToInt(trim(edit2.Text));
    t2 := Faktor(bil1);

if t2.Count > 0 then
    begin
        edit4.Clear;
        for i:= 0 to (t2.Count - 1) do
        begin
            edit4.Text := edit4.Text + t2[i];
            if i < (t2.Count - 1) then
                edit4.Text := edit4.Text + ', ';
        end
    end else
        edit4.Text := '0';

if (t1.Count > 0) and (t2.Count > 0)  then
    begin
        i := 0; j:= 0;

while  (i < t1.Count) and (j < t2.Count) do
        begin
          if t1[i] < t2[j] then
            inc(i)
          else
          if t1[i] > t2[j] then
            inc(j)
          else
          if t1[i] = t2[j] then
          begin
            FPB.Add(t1[i]);
            inc(i);
            inc(j);
          end;
        end;

//tulis di TEdit

if FPB.Count > 0 then
          edit5.Text := FPB[FPB.Count-1];
    end;

FreeAndNil(t1);
   FreeAndNil(t2);
   FreeAndNil(FPB);
end;

function TForm1.Faktor(Bil: integer): TStringList;
var
    i : integer;
begin
    result := TStringList.Create;
    for i:= 1 to bil do
    begin
        if (bil mod i) = 0 then
        begin
            result.Add(IntToStr(i));
        end;
    end;
end;

end.

Unduh Kode Program (Delphi 2009)

Program Faktor Persekutuan Besar

Related Articles :

0 comments:

Posting Komentar

Cari Disini

Kontak

Terpopuler

Daftar Blog Saya

Komentar