Program untuk Mencari Bilangan Prima dengan 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 ?

About these ads