Mencari Bilangan Prima Menggunakan Lazarus Pascal

Lazarus - Bilangan prima adalah bilangan atau angka nilainya selalu lebih dari 0 yang hanya habis dibagi dengan angka 1 (satu) dan bilangan itu sendiri. Semua bilangan prima merupakan bilangan ganjil kecuali angka 2. Contoh bilangan ini adalah 1, 2, 3, 5, 7, 11, 13 dan seterusnya. semakin besar nilai untuk mendapatkan bilangan prima, maka semakin sulit mendapatkannya. Karena tidak ada pola yang pasti dari bilangan ini jika dideretkan.

Mencari bilangan prima menggunakan program sederhana berbasis Lazarus dengan mengandalkan operasi matematika bernama MOD, singkatan dari Modulus. MOD adalah operasi pembagian dua bilangan yang memberikan hasil sisa pembagian.

Contoh: 

A = 4 mod 2, maka A = 0

B = 3 mod 2, maka B = 1

Cara paling mudah mencari bilangan prima dengan membagi bilang yang ingin dicari dibagi dengan bilangan yang dalam jangkahnya. Misal, apakah angka 7 adalah bilangan prima? maka kita coba dengan

7/1= 7, 7/2= 3.5, 7/3= 2.3, 7/4= 1.75, 7/5= 1.4, 7/6= 1.17, 7/7= 1, disimpulkan angka 7 adalah bilangan prima.

Sekarang.. Apakah angka 134579 adalah bilang prima? Saya pasti menolak menghitungnya walaupun diberikan kalkulator sepuluh buah.

Dibawah merupakan skrip program mencari bilangan prima menggunakan Lazarus.

procedure TForm1.Button1Click(Sender: TObject);

var

  h, i, k, pri: integer;

begin

  Button1.Caption := 'Counting..';

  pri:= 0;

  k:= StrtoInt(Edit1.Text);

  ProgressBar1.Max:= k;

  for h:=1 to k do

  begin

       ProgressBar1.Position:= ProgressBar1.Position+1;

       if (k mod h) = 0 then

          pri:= pri + 1

  end;

  if pri = 2 then

     ShowMessage(Edit1.Text + ' is a prime number.')

  else

      ShowMessage(Edit1.Text + ' isnot a prime number.');

  Button1.Caption := 'Start';

  ProgressBar1.Position:= 0;

end;       

Skrip program mencari bilangan prima menggunakan Lazarus bisa kamu unduh disini.