Bilangan Prima dengan Delphi XE Series untuk Android
Bilangan Prima dengan Delphi XE Series untuk Android
Sebelum kita beranjak ke tahap koding, harus kita pahami dulu apa itu bilangan prima. Mungkin sudah banyak diantara kita yang tahu tentang bilangan prima.
Namun tidak sedikit pula yang belum memahami konsep bilangan prima itu sendiri. sebelumnya, kita coba untuk mengetahui konsep atau alur dari program yang akan kita buat.
Namun tidak sedikit pula yang belum memahami konsep bilangan prima itu sendiri. sebelumnya, kita coba untuk mengetahui konsep atau alur dari program yang akan kita buat.
untuk bisa memahami konsep bilangan prima, harus diadakan uji coba terlebih dahulu dengan bilangan-bilangan yang dianggap bilangan prima dan yang bukan bilangan prima.
Misal:
9 --> Bukanlah bilangan prima
11 --> merupakan bilangan prima
apa yang membedakan dari kedua angka tersebut?
ok kita coba untuk melakukan pembagian atas 2 angka tersebut. langsung saja kita mulai
9 : 1 = 9 sisa 0
9 : 2 = 4 sisa 1
9 : 3 = 3 sisa 0
9 : 4 = 2 sisa 1
9 : 5 = 1 sisa 4
9 : 6 = 1 sisa 3
9 : 7 = 1 sisa 2
9 : 8 = 1 sisa 1
9 : 9 = 1 sisa 0
sampai disini kita lanjutkan untuk menghitung angka selanjutnya
11 : 1 = 11 sisa 0
11 : 2 = 5 sisa 1
11 : 3 = 3 sisa 2
11 : 4 = 2 sisa 3
11 : 5 = 2 sisa 1
11 : 6 = 1 sisa 5
11 : 7 = 1 sisa 4
11 : 8 = 1 sisa 3
11 : 9 = 1 sisa 2
11 : 10 = 1 sisa 1
11 : 11 = 1 sisa 0
sampai disini, apakah perbedaan yang diperoleh dari kedua angka diatas? jika kita amati dari hasil pembagian diatas, maka dapat kita simpulkan bilangan yang bukan prima memiliki 3 sisa 0 sedangkan untuk bilangan prima hanya memiliki 2 sisa 0. Namun, bisakah kita simpulkan bahwa Bilangan prima adalah bilangan yang hanya memiliki 2 sisa 0? kesimpulan tersebut belumlah tepat karena jika kita lakukan uji coba pada angka 1, maka hanya akan ada 1 sisa 0.
kesimpulan yang paling tepat adalah:
"bilangan prima merupakan bilangan yang hanya akan habis (sisa 0) jika dibagi dengan angka 1 dan bilangan itu sendiri".
ok, sampai disini kita sudah memahami konsep dari bilangan prima, dan satu lagi, mayoritas bilangan prima adalah bilangan ganjil dan hanya memiliki 1 bilangan genap yaitu angka 2.
ok. kita sudah bisa masuk ke tahap pembuatan program.
langkah 1:
- Buka delphi dan buat project untuk multi-device application
- Selanjutnya buat antarmuka seperti gambar berikut:
Berikut daftar komponen yang dibutuhkan
procedure TForm1.Button1Click(Sender: TObject);
var
i,angka,jumlah,checker,sisa:integer;
begin
ListBox1.Clear;
angka:=StrToInt(Edit1.Text); //menentukan angka awal
for i := angka downto 1 do //melakukan iterasi / looping pada angka awal
begin
jumlah:=0; // nilai awal sisa 0
for checker := 1 to i do
begin
sisa:=i mod checker;
if sisa=0 then jumlah:=jumlah+1; // jika ada sisa 0 maka jumlah sisa awal + 1
end;
//jika total jumlah sisa 0 = 2 maka rekam di listbox
if jumlah <=2 then ListBox1.Items.Add(IntToStr(i)+' adalah bilangan prima');
end;
Label1.Text:='Jumlah Bil. Prima --> '+IntToStr(ListBox1.Items.Count);
end;
Sampai disini kita telah berhasil membuat aplikasi untuk menentukan bilangan prima.
silahkan dicoba dan sesuaikan dengan kebutuhan.
sampai ketemu lagi di postingan selanjutnya.
::: Selamat mencoba :::
