Program menentukan bilangan prima dengan Delphi

Posted by dragon on Sunday, 9 October 2011

type='html'>
Saya yakin pasti anda tahu apa itu bilangan prima, bilangan prima adalah bilangan lebih dari satu dan hanya habis dibagi oleh satu dan dirinya seniri.

Misal :
1    Bukan bilangan prima karena tidak memenuhi syarat
7    Bilangan prima karena hanya habis dibagi 1 dan angka 7 itu sendiri

         Hal tersebut pasti sudah kita pelajari saat kita SD, namun tidak ada salahnya sekarang kita mempelajarinya lagi namun dalam format yang berbeda, mari kita membuat  program yang dapat menentukan sebuah bilangan merupakan bilangan prima atau bukan, hmmm.. cukup mudah... oke mari kita mulai :

Perhatikan Kode berikut :


procedure TForm1.Button1Click(Sender: TObject);
var  a,b : integer;     
hasil : String;
begin
  a := StrToInt(Edit1.Text);
    if a = 2 then hasil := 'Bilangan Prima'
      else if a < 2 then hasil := 'Bukan Bilangan Prima'
        else
          begin
            for b := 2 to a-1 do
              begin

                if a mod b = 0 then //mencari sisa hasil bagi
                  begin
                    hasil := 'Bukan Bilangan Prima';
                    break;
                  end
                    else   hasil := 'Bilangan Prima';

                  end;
                end;
ShowMessage(hasil);
end;
end.



Atau Download Source Codenya di sini..

       Saya rasa program di atas cukup sederhana, silakan anda pelajari, apabila ada yang ingin di tanyakan jangan ragu meninggalkan komentar, kami akan segera menjawab pertanyaan anda, semoga bermanfaat..:-)

{ 0 comments... read them below or add one }

Post a Comment