Penulis Topik: Bagaimana mencari bilangan prima? (Dibaca 65512 kali)

suntzu · « **Jawab #15 pada:** September 23, 2008, 10:37:54 AM »

gw juga make vb 6.0 bisa nyari 10.000 bilangan prima dlm 25 menit tu kira2 cepet ga ya

insan sains · « **Jawab #16 pada:** Oktober 07, 2008, 09:45:27 AM »

@suntzu
Kalo menurut pengalaman saya, waktu 25 menit untuk mencari 10.000 bilangan prima itu terlalu lama. Saya sendiri untuk mendapatkan bilangan prima ke 10.000 membutuhkan waktu kurang dari 10 detik. Saya mencoba menebak, mungkin algoritma program yang saudara gunakan terlalu banyak looping.

Kalau boleh, programnya aja di share supaya bisa ketahuan algoritmanya. Syukur-syukur ada yang tahu supaya bisa mengefisienkan algoritma tersebut. Pada postingan sebelumnya, sudah ada juga tuh yang nge-share script programnya.

Mtk Kerajaan Mataram · « **Jawab #17 pada:** Oktober 09, 2008, 06:50:27 AM »

Sieve Erastotenes dalam Excel berikut
dilampirkan, bisa untuk dilanjutkan sendiri...

Mtk Kerajaan Mataram · « **Jawab #18 pada:** Oktober 11, 2008, 12:13:54 PM »

Berikut yang tahap II, semoga bermanfaat baik dan silahkan yang mau mempelajari perumusannya. Saya lampirkan di sini dalam excel di zipped berikut contoh tampilannya, karena saya percaya penduduk2 forsa.

Wassalam

Basuki

Mtk Kerajaan Mataram · « **Jawab #19 pada:** Oktober 12, 2008, 08:02:46 AM »

Ternyata, pada file excelnya itu kolom L dari baris 6 yang berisi bilangan2 prima dari 2 sampai dengan 1699 (sebagai base) belum lengkap bilangan primanya (yaitu pada ratusan). Untuk memperbaiki, ganti dulu validasinya (Data/Validation). Memperbaiki tidak sekedar menyisipkan bilangan prima yang kurang tapi juga mengikutkan sebelah kanannya melalui Cut/Copy/Paste.
Salam sejahtera

sata · « **Jawab #20 pada:** Oktober 12, 2008, 09:07:45 PM »

Well,saya ikutan nimbrung ya... rumusan dari Al Fahrezy menarik,hanya saja ada perlu dikoreksi di kalimat ke 3 harus ditambahkan, kecuali 49, karena untuk kriteria 3 disebutkan jika jumlah nya bukan 3,6 atau 9, pastilah bilangan prima, untuk angka 49 hal ini tdk berlaku.
Moga jadi koreksi ya...
Thanks

Kutip dari: reborn pada November 30, 2006, 09:27:52 AM

Salam kenal al fahrezy

wew... 1st post di forum math yahh... pasti pakar math neh

1. Yup, karena genap bisa dibagi 2
2. Yup, karena rangkap bisa dibagi 11
3. Yup, karena kalo sama dgn 3,6,9 bisa dibagi 3

tapi masa hanya sampe di bawah 100? mencari bilangan prima terbesar lagi trend lho

Mtk Kerajaan Mataram · « **Jawab #21 pada:** Oktober 15, 2008, 06:54:16 AM »

Bilangan prima antara 99460500 dan 99460660 dengan
Erastotenes III saya sbb :
99460511, 99460513, 99460531, 99460549, 99460553, 99460583, 99460589,
99460609, 99460637, 99460657

suntzu · « **Jawab #22 pada:** Oktober 15, 2008, 01:12:13 PM »

iya gw stl browsing br tau kl itu tu lm tp bkn gr2 coding tp gara2 kompie gw lemot btw waktu itu gw pnah nemu artikel yang katanya bisa nemu banyak bilangan dlm waktu singkat di sini tp ga tw lbh cpt dr mr Chow ap ngak ??

Mtk Kerajaan Mataram · « **Jawab #23 pada:** Oktober 16, 2008, 07:20:52 AM »

Itu Link yang bagus untuk inspirasi, thank atas infonya. Erastotenes III dari saya terlalu besar volumnya, jadi hanya tampilannya yang bisa dilampirkan.
Bilangan2 prima terbesar yang ditemukan terutama pada era komputer adalah mersene prime, kemarin 23 Agustus 2008,yaitu (2^43112609)-1 terdiri dari 12978189 digit:
http://prime.isthe.com/chongo/tech/math/prime/m43112609/prime-c.html
Karena komputer saya hanya amatiran, maka berat sekali untuk men-generate bilangan ini, tapi untuk bilangan2 prima sebelumnya masih mampu seperti :

(tahun 1952)
M2281=(2^2281)-1 = 446087557183758429571151706402101809886208632412859901111991219963404685792820473369112545269003989026153245931124316702395758705693679364790903497461147071065254193353938124978226307947312410798874869040070279328428810311754844108094878252494866760 969586998128982645877596028979171536962503068429617331702184750324583009171832104916050157628886606372145501702225925125224076829605427173573964812995250569412480720738476855293681666712844831190877620606786663862190240118570736831901886479225810414 714078935386562497968178729127629594924411960961386713946279899275006954917139758796061223803393537381034666494402951052059047968693255388647930440925104186817009640171764133172418132836351 (687 digit)

(tahun 1957)
M3217=(2^3217)-1 =
259117086013202627776246767922441530941818887553125427303974923161874019266586362086201209516800483406550695241733194177441689509238807017410377709597512042313066624082916353517952311186154862265604547691127595848775610568757931191017711408826252153 849035830401185072116424747461823031471398340229288074545677907941037288235820705892351068433882986888616658650280927692080339605869308790500409503709875902119018371991620994002568935113136548829739112656797303241986517250116412703509705427773477972 349821676443446668383119322540099648994051790241624056519054483690809616061625743042361721863339415852426431208737266591962061753535748892894599629195183082621860853400937932839420261866586142503251450773096274235376822938649407127700846077124211823 080804139298087057504713825264571448379371125032081826126566649084251699453951887789613650248405739378594599444335231188280123660406262468609212150349937584782292237144339628858485938215738821232393687046160677362909315071 (969 digit)

(tahun 1961)
M4423=(2^4423)-1 =
285542542228279613901563566102164008326164238644702889199247456602284400390600653875954571505539843239754513915896150297878399377056071435169747221107988791198200988477531339214282772016059009904586686254989084815735422480409022344297588352526004383 890632616124076317387416881148592486188361873904175783145696016919574390765598280188599035578448591077683677175520434074287726578006266759615970759521327828555662781678385691581844436444812511562428136742490459363212810180276096088111401003377570363 545725120924073646921576797146199387619296560302680261790118132925012323046444438622308877924609373773012481681672424493674474488537770155783006880852648161513067144814790288366664062257274665275787127374649231096375001170901890786263324619578795731 425693805073056119677580338084333381987500902968831935913095269821311141322393356490178488728982288156282600813831296143663845945431144043753821542871277745606447858564159213328443580206422714694913091762716447041689678070096773590429808909616750452 927258000843500344831628297089902728649981994387647234574276263729694848304750917174186181130688518792748622612293341368928056634384466646326572476167275660839105650528975713899320211121495795311427946254553305387067821067601768750977866100460014602 138408448021225053689054793742003095722096732954750721718115531871310231057902608580607(1332 digit)

(tahun 1971)
M19937=(2^19937)-1=
431542479738816264805523551633791983905393504322671150516525054140333068013765809113045136293185846655452699382576488353179022173345844139095282691546091680190078753437413962968019201144864809026614143184432769803000667281049840954515881760771329698 437621346217903963913412852056276196005131066463766486159942366754865374802419643502959351686623639090479483476923139783013778207857124190544743328445291831729732423108882650813216264694510777078122828294447750226804880578200287646593991647662652009 005614958003440543536903898628940617928720111208336148084474829135473283672778795656483078469091169458662301697024012602401870287466500334457745703154312929960251877807901193759028631710841496424733789862675033089613749057663409052895722900160380005 716308751913739795550474681543332534749910462481325045163417965514705754814592008594726148362138755571168644457897508862779964873043084504842234206292665185560243393391908443689210184248446770427276646018529149252772809226975384267702573339289544012 054658956103476588553866339025462899621326432824257480357862335806081546965469325638333276707698994397748885266872785274510029630591469638757154257355344759797344631006783673933274021499309687782967413915145996023742136298987206114314104021472389980 909628189158906456939344833309941696322958779958489933667470148717634948055499961630515412254034652970077211462313557040814930986630657336771911728539870957481678162560842128233801686253345864312540346708061352735432707144788768618619833207772806448 066911257131972625817631513135964295477635763678370193498351784621442949607571909180546251141436663841894338525764522893476524546315357404687862289458856546085620580424689873724369214450923153776984071681983765382377486141962070415481063793651231928 179990066217664671671134716327154817958770053826943934004030617004576911353491878748889234293493401451705717161811257958888892774954269771499145496239163940148229850253316515114312788020090568084565068188772666098316368838849056218222629339865486456 690806721917047404088913498356856624280632311985204368263294152907529727983434294465099922063687813671540917026557727273913294242775293490826005858847665231509574170778319100161684756856586731928608820701797603072698499873548360423717346602576943472 355063017441188741412924389581415491006097522168822308876114319964723308423801371109274494835578150375868496445857499177728699267442183696211376751010832785437940817490940910430840967741447084363242794768920562004272279616386691498054898311212446763 999319553714840128863607487064795686690485747828552170547401139459296221775025755658110674522014489819919686359653615516812739827407601388996388203187763036687627301575846400427988806918626402686126861808838749395738181250222796899302674462557739595 424698316378630001712792271514060341299021815706596505326007758236773981821290873944498591827499990072235924233345678506711865688391867477049600162775406253314406190191299837899147125153652003360579935086016788076875685623778570952555413049029271922 201841725023571244499118702106426945650613849193734743245039662677990384023867816868099620158790905865494235046991907435195510437225445157409678290843360259382257807308802738552615519720440756203267806244488034909982321612316877947156134057932495455 095280525180101230872587789741158170482455889714385967544080813134383755029887267395233752966416155014060916079832292398272406147832528924797165199369895191878086812211916417477109024806334910917048274412282811866324459071457871383512348422613800746 219140048181523866660431333448750679035828382835626880832365754820684796395463838195321745225026823724413632757658756091197836532983120667082171493167735643403792897243939867441398918554166122957393566686126582712346964383771228389980401997390780614 436754156710784634046737024037776534781733670848447347020568666361581380036922533822099094664695919301616260979205087421756703065051395428607508061598353575410321470950842784610567013677397949320242029987077310176925820462107022125141204293225304317 896162670477761151235979354041470848709854654265027720573009003338479053342506041195030300017040028878929414046033458699263675013550949427505525915816399805231906796107849935808966832992976812624423140086570334218680945517405064488290392073167113076 951318922965935090186230948105575195603052407871638092191644337545148633010009159169858562421765636247713289816785482462973762495302513603634127683664561750770319774575349128064331765399959943433081184701471587128161493944212766142282629099500557469 810532066100015602957846566161932522694120268311595089496715138451958832171479827488792618514178199790344172855986077272208666776804260903087548238033454465663056192413083744527546681430154877108777280110860043258922622594139682852834970455710627577 014217615652627251534074076254051499319894944591064146605343053785767098625200498648809611448692586034737143636591940139627063668513892996928694918051725568185082988249549548157960631695176587414201597987542734280267234524812635691573072131537397810 416276537150785985041547972876631229467113481585294188164328250444666927811374744948983850643757875073764963451486253063833915551456900878919553159944629444932352488175999071191357559333821217061914771850549366322111572229203311485024875633031180188 056850735698415805181187107786539535712960143729408652704070219243831672903232315679122894194862405940390744523216780193818712190921554607684445735785595136133042422061513564575139372709390097072378271012458538376783381610233975868548942306960915402 499879074534613119239638529507547580582056259566008177430071917468126559550217476709224608667477445208756078590623347506270983285934800677894561696024943928137634956575998474857735539909575573132008090408300364464922194099340969487305474943012161656 867507357495558823403039898746729754550609577369215591954808155140359157071299300570271172862528431974133123076178867975067842601954367603059903407084814646072789554954877421407535706212171982521929788697869167346256184301754549038641115854295045699 20905636741539030968041471( 6002 digit)

Santri · « **Jawab #24 pada:** Oktober 20, 2008, 09:39:37 PM »

wah.... bahasannya menarik tuh jujur aja gw lom ngerti tentang 7 masalah terbesar matematika pie gw suka pelajaran matematika..!
tolong dong gw anggota baru dan masih duduk di kelas SMA dan belum ada pengalaman membahas bilangan prima lebih dari 10000-<<<<<<.......
kalo ada cara yang mudah untuk membahas soal UAN tolong kirim ke e-mail gw

makasih atas bantuannya..!

neo · « **Jawab #25 pada:** November 04, 2008, 01:51:49 PM »

misterius.... gagagaggag itulah yang bs menggambarkan ttg bil. prima, Iq rendah g paham pemrograman masih butuh banyak pencerahan... thank buwat semua postingny cukup membantu siswa ky aq.....

gud job bro...

biobio · « **Jawab #26 pada:** April 27, 2009, 05:44:54 PM »

Gimana kalau gini buat ngecek bilangan prima, pake FREE PASCAL...
saya sudah banyak lupa syntaxnya,mohon dikoreksi:

uses crt;
var a,b,c:integer;
begin
clrscr;
writeln ('Masukkan bilangan anda...');readln(a);
for b:1 to a do
if a mod b=0 then
c:=c+1 else c:=c;
clrscr;
if c>2 then writeln ('Bukan bilangan prima') else
if c<=2 then writeln ('Prima');
readln;
end.

Sky · « **Jawab #27 pada:** April 29, 2009, 06:19:39 PM »

Ada yang udah coba pake little Fermat Theorem belum?
Banyak loopnya juga sih.

Mtk Kerajaan Mataram · « **Jawab #28 pada:** Mei 06, 2009, 02:28:09 AM »

@biobio

uses crt;
var a,b,c:integer;
begin
clrscr;
writeln ('Masukkan bilangan anda...');readln(a);
for b:1 to a do
if a mod b=0 then <Apakah a habis dibagi b?>
c:=c+1 else c:=c; <Jika ya maka hitung (counter), jika tidak maka lewat>
clrscr;
if c>2 then writeln ('Bukan bilangan prima'); <Jika counter (jml bil pembagi habis dari a lebih dari 2 maka a bukan bil prima>
if c<=2 then writeln ('Prima'); <Jika counter (jml bil pembagi habis dari a kurang dari atau sama dengan 2 maka a bil prima>
readln;
end.

Secara logika sudah benar, hanya kurang efsien, yaitu sebenarnya kita tidak perlu ngecek semua pembagi dari 1 s.d. a, yakni cukup dengan 1 s.d. floor(sqrt(a)) <pembulatan ke bawah akar dari a>.

nash · « **Jawab #29 pada:** Mei 06, 2009, 05:43:36 AM »

@mtk kerajaan mataram

mnurutku script tu ga efisien dan hasilny jga pasti lama...
ada ide lg?

btw, koq PM-ku ga dblz?

Artikel Sains

Aku Cinta ForSa

Pranala Luar

ShoutBox!

Penulis Topik: Bagaimana mencari bilangan prima? (Dibaca 65512 kali)