Aplikasi Kelipatan Bilangan Bulat Menggunakan Delphi

Di level SD atau MI pertama kali kita temui materi kelipatan bilangan. Namun terkadang kita disuruh untuk menentukan kelipatan sebuah bilangan. Kelipatan ini nantinya kita bisa menentukan Kelipatan Persekutuan Terkecil (KPK) dari dua atau tiga buah bilangan. Berikut penulis bagikan Cara Membuat Aplikasi Kelipatan Bilangan Menggunakan Delphi.

Langsung saja desain seperti berikut ini.

Pada tombol “Proses” kolom pertama ketikkan scribs berikut.

var

x,k,s:integer;

begin

k:=strtoint(edit1.Text);

s:=strtoint(edit7.Text);

x:=1;

listbox1.Items.Clear;

listbox2.Items.Clear;

repeat

if ((x mod k)= 0) then

listbox1.Items.Add(inttostr(x));

listbox2.Items.Add(inttostr(x));

x:=x+1;

until (x > s);

end;

Pada tombol “Proses” kolom kedua ketikkan scribs berikut.

var

x,k,n,s:integer;

begin

k:=strtoint(edit2.Text);

n:=strtoint(edit3.Text);

s:=strtoint(edit7.Text);

x:=1;

listbox1.Items.Clear;

listbox2.Items.Clear;

repeat

if ((x mod k)= 0) and ((x mod n)= 0) then

listbox1.Items.Add(inttostr(x));

listbox2.Items.Add(inttostr(x));

x:=x+1;

until (x > s);

end;

Pada tombol “Proses” kolom ketiga ketikkan scribs berikut.

var

x,k,n,s,m:integer;

begin

k:=strtoint(edit4.Text);

n:=strtoint(edit5.Text);

s:=strtoint(edit7.Text);

m:=strtoint(edit6.Text);

x:=1;

listbox1.Items.Clear;

listbox2.Items.Clear;

repeat

if ((x mod k)= 0) and ((x mod n)= 0) and ((x mod m)= 0) then

listbox1.Items.Add(inttostr(x));

listbox2.Items.Add(inttostr(x));

x:=x+1;

until (x > s);

end;

Download Aplikasinya disini.