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

anter · « **Jawab #45 pada:** Oktober 24, 2009, 11:07:30 PM »

newbie lagi iseng ngangkat thread lama...


#include <iostream.h>
#include <conio.h>
#include <math.h>
main()
{
long bil, prima, a, b, c, d;
#define true    1
#define false   0

   clrscr();

   cout << "PROGRAM BILANGAN PRIMA\n";
   cout << "==================\n\n";
   cout << "Masukkan banyak baris angka: ";
   cin >> bil;
   cout << "Hasil :\n";

   b = 1;
   a = 0;
   while (a < bil) {
      prima = false;
      while (!prima) {
         b++;
         d = 0;
         for (c = 1; c <= sqrt(b); c++) {
            if ((b%c) == 0)
               d++;
         }
         if (d == 1)
            prima = true;
      }
      if (prima == true) {
         cout << b;
         cout << " ";
         a++;
      }
   }
   getch();
}

Ridho R · « **Jawab #46 pada:** Desember 27, 2009, 05:52:55 PM »

coba ini bos, saya buat pakai vb, component disesuaikan selera ya. ini modifikasi dari sintak di atas yang pakai pascal, mohon revisinya. kalao samapi 200 sih masih aman, di atas itu blm dipastikan

Dim i, bil1, bil2 As Integer

bil1 = bilangan1.Text
bil2 = bilangan2.Text
hasil.Text = ""

For i = bil1 To bil2 Step 1
   If i = 2 Or i = 3 Or i = 5 Or i = 7 Then
   hasil.Text = hasil.Text & i & vbCrLf
   ElseIf i Mod 2 <> 0 And i Mod 3 <> 0 And i Mod 5 <> 0 And i Mod 7 <> 0 And i Mod 11 <> 0 And i Mod 13 <> 0 Then
   hasil.Text = hasil.Text & i & vbCrLf
   End If
Next i

Mtk Kerajaan Mataram · « **Jawab #47 pada:** Desember 27, 2009, 09:09:40 PM »

@Ridho R
Saya kira code anda belum merupakan modifikasi dari code-nya @anter.
Dalam code anda diberi persyaratan tidak habis dibagi bilangan prima sampai 13, jadi kira-kira bilangan prima yang bisa dicek merentang dari 1 s.d. 13²=169. Yaa mungkin sekali s.d. kurang dari 200.
Sedangkan pada code @anter, diberikan :
for (c = 1; c <= sqrt(b); c++) {
if ((b%c) == 0)
d++;
yang berarti untuk mendaftar bilangan prima dari suatu rentang yang diinginkan. Kalau yang dinginkan sampai bilangan 300 misalnya, maka dibuat persyaratan "jika banyaknya habis dibagi bilangan 1 s.d. int( $\sqrt{300}$ ) sama dengan 1, maka prima".

Bedanya, pada @anter bisa merambah sesuai yang diinginkan walaupun nanti semakin lama waktu yang dibutuhkan. Tapi pada code anda hanya sampai pada kurang dari bilangan 200.

karunkberas · « **Jawab #48 pada:** November 03, 2010, 09:23:17 AM »

misi para Om sepuh ane mo ikutan n coba posting ( maaf masih nubi )
coba pake ini ya , to dosen2 ane minta revisi nya..
kalo ane cek ini aman di semua angka

/* Formatted on 2010/11/03 09:21 (Formatter Plus v4.8.

*/
CREATE OR REPLACE FUNCTION kon.coba_prima (pivalue IN NUMBER)
   RETURN VARCHAR
IS
   vreturn VARCHAR (15) := 'PRIMA';
BEGIN
   FOR i IN 2 .. 9
   LOOP
   IF i <> pivalue AND MOD (pivalue, i) = 0
   THEN
   vreturn := 'bukan prima';
   EXIT;
   ELSE
   vreturn := 'prima';
   END IF;
   END LOOP;

   RETURN vreturn;
EXCEPTION
   WHEN NO_DATA_FOUND
   THEN
   NULL;
   WHEN OTHERS
   THEN
   -- Consider logging the error and then re-raise
   RAISE;
END coba_prima;
/

coba di cek jawabana n logic nya

regard's

karunkberas

adisae · « **Jawab #49 pada:** November 03, 2010, 10:26:18 AM »

@karunkberas
pake bahasa apa si tu?

kan udah dibahas di awal2, pengecekan tidak habis dibagi 2..9 tidak valid..
(hanya valid untuk angka 1..99)
pengecekan minimal harus sampai $\sqrt {pivalue}$ dibulatkan kebawah..

karunkberas · « **Jawab #50 pada:** November 03, 2010, 11:13:15 AM »

@adisae :

Ane pake function di oracle pak dosen, coba ane cek dulu ke postingan awal
kali aza menemukan ilham, coz koment bapak kurang jelas

adisae · « **Jawab #51 pada:** November 03, 2010, 11:17:42 AM »

maksudnya untuk menentukan bilangan $n$ itu prima, harus dibuktikan bahwa $n$ tidak habis dibagi 2.. $\sqrt n$

karunkberas · « **Jawab #52 pada:** November 03, 2010, 12:00:03 PM »

coba pak dosen kalo ada punya tool Toad ato SQL dev ato yg lain nya
runing query ini,

ntar bakal keliatan hasil nya

* maaf ane masih perlu banyak belajar dari master2 di forum ini

Regard's

karunkberas

adisae · « **Jawab #53 pada:** November 03, 2010, 01:53:14 PM »

silahkan baca posting mtk kerajaan sebelum posting code anda di atas..dan silahkan untuk dipahami..

terus masalah kodenya, silahkan masukkan angka 121 atau 169 pada kode tersebut..pasti hasilnya tidak valid..

karunkberas · « **Jawab #54 pada:** November 03, 2010, 02:49:56 PM »

ok siap pak..

ane pelajari lagi..
barusan ane coba masuka angka 121 dan 169 ke funktion yg ane bikin,
hasil nya itu adalah bilangan prima, bener gak ya...?

terimakasih tanggapan& ilmu nya pak dosen

adisae · « **Jawab #55 pada:** November 04, 2010, 09:16:20 AM »

gubrak..
121 = 11 x 11
169 = 13 x 13

y jelas bukan bilangan prima..

biobio · « **Jawab #56 pada:** Maret 10, 2011, 09:47:41 PM »

Kutip dari: karunkberas pada November 03, 2010, 02:49:56 PM

ok siap pak..
ane pelajari lagi..
barusan ane coba masuka angka 121 dan 169 ke funktion yg ane bikin,
hasil nya itu adalah bilangan prima, bener gak ya...?

terimakasih tanggapan& ilmu nya pak dosen

Berarti program anda salah.

nazila · « **Jawab #57 pada:** April 05, 2011, 11:58:22 PM »

wow... kalau fungsi utama cuma pakai logika "if" ya ndak bakal ketemu...
kombinasi sma perulangan mungkin membantu...

biobio · « **Jawab #58 pada:** April 08, 2011, 01:16:15 PM »

Kutip dari: nazila pada April 05, 2011, 11:58:22 PM

wow... kalau fungsi utama cuma pakai logika "if" ya ndak bakal ketemu...
kombinasi sma perulangan mungkin membantu...

benar, sepeti yang aku pernah tulis dulu

Kutip dari: biobio 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 #59 pada:** Mei 12, 2011, 02:48:26 PM »

Selama ini hanya di bahasa Pascal saja, tidak tertarik di bahasa lain kah? Misalnya java atau c++ atau c# atau f# atau CLISP?
Hahaha...
Oya, sebenarnya primality test sudah banyak caranya...
Coba cek ini:
http://en.wikipedia.org/wiki/Miller%E2%80%93Rabin_primality_test

Artikel Sains

Aku Cinta ForSa

Pranala Luar

ShoutBox!

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

anter