Bilangan Prima Ke-n

Bilangan Prima adalah bilangan yang hanya mempunyai 2 pembagi. Misalnya : 2, 3, 5, 7, 11 dan seterusnya.

Tahukan Anda, berapa bilangan prima ke-50?, ... ke-100?,  ... ke 1000?

Untuk mempermudah menemukan bilangan prima yang kita maksud, kita dapat menggunakan Ms.Excel dengan VBAnya.

Konsep programnya lebih sederhana yaitu menggunakan looping mengecek satu persatu mulai bilangan A = 2 apakah merupakan bilangan prima atau bukan. Jika ya maka dihitung sebagai bilangan prima ke-1, selanjutnya A = 3, A = 4 dst. Hingga diperoleh bilangan prima ke n.

Kode makro untuk tombol “Cari” adalah sebagai berikut :

a = Range("k14")

Else

a = Range("G7")

End If

Do

m = 0

For i = 2 To a

    n = 0

    For j = 2 To a

        x = i Mod j

        If x = 0 Then

        n = n + 1

        End If

    Next j

    If n = 1 Then

        m = m + 1

        Range("F9") = i

       

    End If

Next i

a = a + 1

Loop While m < Range("G7")

Demikian list program “Mencari Bilangan Prima Ke-n”. Semoga bermanfaat.

Semakin besar bilangan yang akan kita cari maka akan semakin lama program tersebut bekerja.