Tuesday, 22 October 2013

Menampilkan Bilangan Prima dengan Bahasa Pemrograman Delphi

Kemarin sempat ditanya seorang teman yang tentang bagaimana menampilkan bilangan prima dengan bahasa pemrograman Delphi. Bilangan prima ditampilkan secara berurut dari bilangan 1 - 100.
Begini ceritanya, pengertian Bilangan Prima adalah bilangan yang hanya memiliki 2 faktor yaitu bilangan 1 dan bilangan itu sendiri. Ceritanya dilanjut di bawah ya, bingung kalo cuma teorinya aja..

Berikut kutipan Source Code nya:

procedure TForm1.btn_PrimaClick(Sender: TObject);
var Range     : array[1..100] of Integer;
    i,j              : integer;
    bil_Prima  : Integer;
begin
  for i:=2 to 100 do
    begin
      Range[i]:=i;
      for j:=2 to i-1 do
      begin
        bil_Prima:=(i mod j);
        if bil_Prima=0 then Range[i]:=0;
      end;
        if Range[i]<>0 then mmo1.Lines.Add(IntToStr(i));
    end;
  end;
 Hasil Compile-annya :



Keterangan:

Logika yang dipakai adalah menghitung hasil dari modulasi dengan mengulang bilangan-bilangan sebelum bilangan i.
Bingung ya..

dan seterusnya

Jika kita melihat var j, bilangan sebelum 3 seharusnya adalah 2 dan 1. Namun, kenapa yang dipakai hanya bilangan 2, ini karena angka 1 bukan bilangan standar. 
Prosesnya yaitu mengulang hasil modulasi, apabila terdapat salah satu bilangan yang tersebut habis dibagi (i mod j) maka FALSE. Begitu juga sebaliknya, jika masih tersisa angka dari proses mod maka bernilai TRUE.

Maw download source yang lebih lengkap, silakan KLIK DISINI

 

: : diliecute : : Template by Ipietoon Cute Blog Design

Blogger Templates