Algoritma Bilangan Prima

Bilangan Prima



Ingat bilangan prima waktu kita belajar matematika dasar ?.. ternyata menarik juga bilangan ini untuk dibuat coding dalam foxpro.

Awalnya kemenakan yang kuliah di IT Telkom Bandung kirim sms, "Om algoritma pencarian bilangan prima gimana ya ?".. wah sempet bingung juga, bilangan prima syaratnya gimana ya ?
dia bilang, "Bilangan Prima adalah Bilangan yang hanya mempunyai dua faktor, yaitu 1 dan bilangan itu sendiri"

Utak atik akhirnya ketemu cara penentuan apakah bilangan ybs bilangan prima atau bukan.

Begini Potongan programnya, prima.prg

LPARAMETERS nBil
I = 1
nCount = 0
DO WHILE NOT i > nBil
IF MOD(nBil,i) = 0
nCount = nCount + 1
ENDIF
i = i + 1
ENDDO
IF nCount > 2 OR nBil = 1
MESSAGEBOX('Bilangan '+ALLTRIM(STR(nBil))+' Bukan Bilangan Prima',64)
ELSE
MESSAGEBOX('Bilangan '+ALLTRIM(STR(nBil))+' Bilangan Prima',64)
ENDIF

untuk menggunakannya tinggal

do prima.prg with n, n adalah nilai yang akan dicek

Komentar dan Masukkan welcome, selamat Mencoba..