Program Kelipatan Persekutuan Terkecil

Kelipatan persekutuan terkecil dari bilangan a dan b, KPK(a,b), adalah bilangan bulat positif  terkecil yang habis dibagi oleh a dan b.

KPK dari bilangan a dan b dapat dicari dengan mengalikan a dan b, kemudian membaginya dengan faktor persekutuan besar dari a dan b. Secara rumus dapat ditulis sebagai berikut:

KPK(a,b) = a * b / FPB(a,b)

dalam Delphi, kita dapat menuliskan sebagai berikut:

function KPK(m,n:longint):longint;
begin
   KPK:=(m*n) div FPB(m,n);
end;

sementara FPB dari a dan b dapat ditulis dalam Delphi sebagai berikut:

function FPB(m,n:longint):longint;
begin
  if n = 0  then
   FPB:=m
  else
   FPB := FPB(n, m mod n);
end;

Untuk contoh pemrograman selengkapnya, buatlah form dengan penampilan sebagai berikut:

  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; Button1: TButton; Label3: TLabel; Edit3: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function FPB(m,n:longint):longint; begin if n = 0 then FPB:=m else FPB := FPB(n, m mod n); end; function KPK(m,n:longint):longint; begin KPK:=(m*n) div FPB(m,n); end; procedure TForm1.Button1Click(Sender: TObject); var Bil1, Bil2, Hasil : Longint; begin Bil1 := StrToInt(edit1.Text); Bil2 := StrToInt(edit2.Text); Hasil := KPK(Bil1, Bil2); edit3.Text := IntToStr(Hasil); end; end.


 Unduh Kode Program KPK (Delphi 2009)

Program Kelipatan Persekutuan Terkecil 2014-05-18T16:05:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer