Selamat datang di ForSa! Forum diskusi seputar sains, teknologi dan pendidikan Indonesia.

Welcome to Forum Sains Indonesia. Please login or sign up.

April 20, 2024, 06:04:00 PM

Login with username, password and session length

Topik Baru

Artikel Sains

Anggota
Stats
  • Total Tulisan: 139,653
  • Total Topik: 10,405
  • Online today: 231
  • Online ever: 1,582
  • (Desember 22, 2022, 06:39:12 AM)
Pengguna Online
Users: 0
Guests: 187
Total: 187

Aku Cinta ForSa

ForSa on FB ForSa on Twitter

Bagaimana mencari bilangan prima?

Dimulai oleh reborn, November 24, 2006, 12:21:48 AM

« sebelumnya - berikutnya »

0 Anggota dan 2 Pengunjung sedang melihat topik ini.

suntzu

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

insan sains

@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.
Menuju Indonesia sebagai THE COUNTRY MASTER OF TECHNOLOGY, 2030

Mtk Kerajaan Mataram

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

Mtk Kerajaan Mataram

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

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

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 :P



Mtk Kerajaan Mataram

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

suntzu

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 [pranala luar disembunyikan, sila masuk atau daftar.] tp ga tw lbh cpt dr mr Chow ap ngak ??

Mtk Kerajaan Mataram

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:
[pranala luar disembunyikan, sila masuk atau daftar.]
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 = 446087557183758429571151706402101809886208632412859901111991219963404685792820473369112545269003989026153245931124316702395758705693679364790903497461147071065254193353938124978226307947312410798874869040070279328428810311754844108094878252494866760969586998128982645877596028979171536962503068429617331702184750324583009171832104916050157628886606372145501702225925125224076829605427173573964812995250569412480720738476855293681666712844831190877620606786663862190240118570736831901886479225810414714078935386562497968178729127629594924411960961386713946279899275006954917139758796061223803393537381034666494402951052059047968693255388647930440925104186817009640171764133172418132836351 (687 digit)

(tahun 1957)
M3217=(2^3217)-1 =
259117086013202627776246767922441530941818887553125427303974923161874019266586362086201209516800483406550695241733194177441689509238807017410377709597512042313066624082916353517952311186154862265604547691127595848775610568757931191017711408826252153849035830401185072116424747461823031471398340229288074545677907941037288235820705892351068433882986888616658650280927692080339605869308790500409503709875902119018371991620994002568935113136548829739112656797303241986517250116412703509705427773477972349821676443446668383119322540099648994051790241624056519054483690809616061625743042361721863339415852426431208737266591962061753535748892894599629195183082621860853400937932839420261866586142503251450773096274235376822938649407127700846077124211823080804139298087057504713825264571448379371125032081826126566649084251699453951887789613650248405739378594599444335231188280123660406262468609212150349937584782292237144339628858485938215738821232393687046160677362909315071 (969 digit)

(tahun 1961)
M4423=(2^4423)-1 =
285542542228279613901563566102164008326164238644702889199247456602284400390600653875954571505539843239754513915896150297878399377056071435169747221107988791198200988477531339214282772016059009904586686254989084815735422480409022344297588352526004383890632616124076317387416881148592486188361873904175783145696016919574390765598280188599035578448591077683677175520434074287726578006266759615970759521327828555662781678385691581844436444812511562428136742490459363212810180276096088111401003377570363545725120924073646921576797146199387619296560302680261790118132925012323046444438622308877924609373773012481681672424493674474488537770155783006880852648161513067144814790288366664062257274665275787127374649231096375001170901890786263324619578795731425693805073056119677580338084333381987500902968831935913095269821311141322393356490178488728982288156282600813831296143663845945431144043753821542871277745606447858564159213328443580206422714694913091762716447041689678070096773590429808909616750452927258000843500344831628297089902728649981994387647234574276263729694848304750917174186181130688518792748622612293341368928056634384466646326572476167275660839105650528975713899320211121495795311427946254553305387067821067601768750977866100460014602138408448021225053689054793742003095722096732954750721718115531871310231057902608580607(1332 digit)

(tahun 1971)
M19937=(2^19937)-1=
43154247973881626480552355163379198390539350432267115051652505414033306801376580911304513629318584665545269938257648835317902217334584413909528269154609168019007875343741396296801920114486480902661414318443276980300066728104984095451588176077132969843762134621790396391341285205627619600513106646376648615994236675486537480241964350295935168662363909047948347692313978301377820785712419054474332844529183172973242310888265081321626469451077707812282829444775022680488057820028764659399164766265200900561495800344054353690389862894061792872011120833614808447482913547328367277879565648307846909116945866230169702401260240187028746650033445774570315431292996025187780790119375902863171084149642473378986267503308961374905766340905289572290016038000571630875191373979555047468154333253474991046248132504516341796551470575481459200859472614836213875557116864445789750886277996487304308450484223420629266518556024339339190844368921018424844677042727664601852914925277280922697538426770257333928954401205465895610347658855386633902546289962132643282425748035786233580608154696546932563833327670769899439774888526687278527451002963059146963875715425735534475979734463100678367393327402149930968778296741391514599602374213629898720611431410402147238998090962818915890645693934483330994169632295877995848993366747014871763494805549996163051541225403465297007721146231355704081493098663065733677191172853987095748167816256084212823380168625334586431254034670806135273543270714478876861861983320777280644806691125713197262581763151313596429547763576367837019349835178462144294960757190918054625114143666384189433852576452289347652454631535740468786228945885654608562058042468987372436921445092315377698407168198376538237748614196207041548106379365123192817999006621766467167113471632715481795877005382694393400403061700457691135349187874888923429349340145170571716181125795888889277495426977149914549623916394014822985025331651511431278802009056808456506818877266609831636883884905621822262933986548645669080672191704740408891349835685662428063231198520436826329415290752972798343429446509992206368781367154091702655772727391329424277529349082600585884766523150957417077831910016168475685658673192860882070179760307269849987354836042371734660257694347235506301744118874141292438958141549100609752216882230887611431996472330842380137110927449483557815037586849644585749917772869926744218369621137675101083278543794081749094091043084096774144708436324279476892056200427227961638669149805489831121244676399931955371484012886360748706479568669048574782855217054740113945929622177502575565811067452201448981991968635965361551681273982740760138899638820318776303668762730157584640042798880691862640268612686180883874939573818125022279689930267446255773959542469831637863000171279227151406034129902181570659650532600775823677398182129087394449859182749999007223592423334567850671186568839186747704960016277540625331440619019129983789914712515365200336057993508601678807687568562377857095255541304902927192220184172502357124449911870210642694565061384919373474324503966267799038402386781686809962015879090586549423504699190743519551043722544515740967829084336025938225780730880273855261551972044075620326780624448803490998232161231687794715613405793249545509528052518010123087258778974115817048245588971438596754408081313438375502988726739523375296641615501406091607983229239827240614783252892479716519936989519187808681221191641747710902480633491091704827441228281186632445907145787138351234842261380074621914004818152386666043133344875067903582838283562688083236575482068479639546383819532174522502682372441363275765875609119783653298312066708217149316773564340379289724393986744139891855416612295739356668612658271234696438377122838998040199739078061443675415671078463404673702403777653478173367084844734702056866636158138003692253382209909466469591930161626097920508742175670306505139542860750806159835357541032147095084278461056701367739794932024202998707731017692582046210702212514120429322530431789616267047776115123597935404147084870985465426502772057300900333847905334250604119503030001704002887892941404603345869926367501355094942750552591581639980523190679610784993580896683299297681262442314008657033421868094551740506448829039207316711307695131892296593509018623094810557519560305240787163809219164433754514863301000915916985856242176563624771328981678548246297376249530251360363412768366456175077031977457534912806433176539995994343308118470147158712816149394421276614228262909950055746981053206610001560295784656616193252269412026831159508949671513845195883217147982748879261851417819979034417285598607727220866677680426090308754823803345446566305619241308374452754668143015487710877728011086004325892262259413968285283497045571062757701421761565262725153407407625405149931989494459106414660534305378576709862520049864880961144869258603473714363659194013962706366851389299692869491805172556818508298824954954815796063169517658741420159798754273428026723452481263569157307213153739781041627653715078598504154797287663122946711348158529418816432825044466692781137474494898385064375787507376496345148625306383391555145690087891955315994462944493235248817599907119135755933382121706191477185054936632211157222920331148502487563303118018805685073569841580518118710778653953571296014372940865270407021924383167290323231567912289419486240594039074452321678019381871219092155460768444573578559513613304242206151356457513937270939009707237827101245853837678338161023397586854894230696091540249987907453461311923963852950754758058205625956600817743007191746812655955021747670922460866747744520875607859062334750627098328593480067789456169602494392813763495657599847485773553990957557313200809040830036446492219409934096948730547494301216165686750735749555882340303989874672975455060957736921559195480815514035915707129930057027117286252843197413312307617886797506784260195436760305990340708481464607278955495487742140753570621217198252192978869786916734625618430175454903864111585429504569920905636741539030968041471( 6002 digit)

Santri

#24
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

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..... ;D ;D ;D ;D


gud job bro...

biobio

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.
"The pen is mightier than the sword"


Mtk Kerajaan Mataram

@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

@mtk kerajaan mataram

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

btw, koq PM-ku ga dblz?
"Perhaps it is good to have a beautiful mind, but an even greater gift is to discover a beautiful heart"

(John Nash, "A Beautiful Mind")