Program untuk Mencari Bilangan Prima dengan Visual Foxpro

bilangan prima visual foxpro

Hmmm, baru saja saya membaca status teman di facebook yang isinya adalah deret bilangan prima dari 1 sampai 1000. Jadi tertarik saya untuk mencobanya, dan hasilnya seperti gambar di atas. berikut program dalam Visual Foxpro untuk menghasilkan deret bilangan prima dari n ke n:

silahkan save as dengan nama prog_bilangan_prima.prg

Lparameters lnAwal,lnAkhir
Clear
hasil = ''
jumlah = 0
isPrima=.F.
For i = lnAwal To lnAkhir
	If i > 1
		isPrima = .T.
		If i = 2
			isPrima = .T.
		Else
			N = i - 1
			For k = 2 To N
				If Mod(i,k) = 0
					isPrima = .F.
					Exit
				Endif
			Endfor
		Endif
	Endif
	lcPrima = Iif(isPrima = .T.,Transform(i),'')
	hasil = Iif(Empty(lcPrima),hasil,hasil + ', ' + lcPrima)
Endfor
hasil = Substr(hasil,3)
Return hasil

sederhana kan ? kalo males copas bisa download prg nya. Untuk mencobanya, tes deret bilangan prima dari 1 sampai 1000 ? silahkan ketik di command window seperti berikut ?prog_bilangan_prima(1,1000) hasilnya seperti gambar di atas, monggo silahkan dimodifikasi untuk menghitung ada berapa jumlah bilangan prima tersebut ?

8 thoughts on “Program untuk Mencari Bilangan Prima dengan Visual Foxpro

  1. salam olahraga, bung

    bung Suhu, kalo sempat tolong Anda buatkan tutorial dasar OOP di VFP 9.0 untuk memperdalam kemampuan kami (para nubitol armagedon) di dunia perkodingan yang sangat kami cintai (melebihi klub bola EPL itu) wekekekekeke..

    salam olahraga, bung

  2. Salam kenal bung
    saya mohon petunjuk dan informasinya bagaimana cara membuat soal pilihan ganda dengan visual foxpro dengan menggunakan command butto dan yang lainnya

  3. ni ada soal:

    input batas bilangan = 6
    deret Bilangan komposit = 4 6
    jumlah = 10

    Agan-agan ada yg tahu program ini tach ??
    mohon bantuannya yachh (Y)
    berbagi ilmu itu indah😀

    • pertanyaanya yg mana? bukanya bilangan komposit adalah adalah bilangan asli lebih besar dari 1 yang bukan merupakan bilangan prima? jadi tinggal dibalik aja programnya False jadi True.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s