Gunakan MimeTex/LaTex untuk menulis simbol dan persamaan matematika.

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

Maret 29, 2024, 11:48:12 AM

Login with username, password and session length

Topik Baru

Artikel Sains

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

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 3 Pengunjung sedang melihat topik ini.

adi_ak46

yang saya masih bingung itu adalah untuk apa sih gunanya bilangan prima ini??
Dan kenapa bilangan negatif misalkan -2, -3, -5, dst bukan merupakan bilangan prima, padahal kan bilangan prima sendiri adalah bilangan yang hanya memiliki faktor 1 dan bilangan itu sendiri?? ???

rossaarie

 coba deh pake script ini... aku udah buktiin cuman tolong dikoreksi kalo misal ada dari logika aku yang salah... thanks

Dim obj As Integer
Private Sub Command1_Click()
    Me.Text2.Text = ""
    obj = 0
  If Me.Text1.Text <> "" Or Me.Text1.Text <> 0 Then   
        For i = 1 To Val(Me.Text1.Text)
            If Me.Text1.Text Mod i = 0 Then
                obj = obj + 1
            Else
                obj = obj
            End If
        Next
        If obj > 2 Then Text2.Text = "BUKAN" Else Text2.Text = "PRIMA"
    End If
End Sub

mhyworld

Kutip dari: adi_ak46 pada Juli 03, 2011, 12:25:30 AM
yang saya masih bingung itu adalah untuk apa sih gunanya bilangan prima ini??
Dan kenapa bilangan negatif misalkan -2, -3, -5, dst bukan merupakan bilangan prima, padahal kan bilangan prima sendiri adalah bilangan yang hanya memiliki faktor 1 dan bilangan itu sendiri?? ???
aplikasinya antara lain untuk public key cryptography
[pranala luar disembunyikan, sila masuk atau daftar.]
bilangan negatif tidak dimasukkan by definition, karena tidak termasuk bilangan asli.
[pranala luar disembunyikan, sila masuk atau daftar.]
once we have eternity, everything else can wait

rj wirawan

Friend Function BilPrima(MaxNomor As Long) As String
Dim Nomor As Double, Test As Long, Maxtest As Long
Dim Jml As Long, Persen As Integer
Dim StatusPrima As Boolean

  BilPrima = ""
  Jml = 0
  Persen = 0
  Label3.Caption = ""
  Label2.Caption = ""
 
  For Nomor = 1 To MaxNomor Step 1
       
        DoEvents
       
        Persen = (Nomor / MaxNomor) * 100
        Label2.Caption = "Silahkan Tunggu " & CStr(Persen) & "%...."
        StatusPrima = True
       
        Maxtest = Nomor / 2
        If (Nomor <> 2) And ((Nomor Mod 2) = 0) Then
          StatusPrima = False
        End If
        Test = 3
       
        While Test <= Maxtest And StatusPrima = True
            If Nomor Mod Test = 0 Then
                StatusPrima = False
            End If
            Test = Test + 2
        Wend
       
        If StatusPrima = True Then
           
            If Nomor <> 1 Then
                Jml = Jml + 1
                BilPrima = BilPrima + CStr(Nomor) + " "
                Text1.Text = BilPrima
                Label3.Caption = "Jumlah bil Prima : " & CStr(Jml)
            End If
        End If
       
  Next

'Label3.Caption = "Jumlah bil Prima : " & CStr(Jml)
Label2.Caption = ""

End Function


rj wirawan

utk periksa bil prima dgn mencoba script dari rekan rossaarie diatas.....hasilnya seperti dalam lampiran

rossaarie

Maaf yang kemaren itu masih sangat berantakan. Tapi sudah aku coba rapikan di sini

Lytosz

hahaha akhirnya setelah 4 jam berfikir akhirnya ketemu juga ini dari angka terkecil sampai yang paling besar bs tinggal di ganti tipe bilangannya aja.
#include <stdio.h>
#include <stdlib.h>

int main()
{
    int a=2,bil,hasil,cek=0;
    printf("masukan bilangan yang ingin di cek : ");scanf("%d",&bil);
    do
    {
        hasil=bil%a;

        printf("\n %d modulus %d adalah %d",bil,a,hasil);
        if(hasil==0)
        {
            cek=cek+1;
        }
        else
        {
            cek=cek+0;
        }
        a++;
    }while(a<=bil-1);
    printf("\njumlah angka 0 adalah %d \n",cek);
    if(bil>2)
    {
        if(cek==0)
        {
        printf("prima");
        }
        else
        {
        printf("bukan prima");
        }
    }
    else if(bil<=2)
            {
                if(bil==2)
                {
                    printf("prima");
                }
                else if((bil>0) && (bil<2))
                {
                    printf("bukan prima");
                }
                else
                {
                    printf("negatif");
                }
            }
    return 0;
}

Monox D. I-Fly

Kutip dari: adi_ak46 pada Juli 03, 2011, 12:25:30 AM
Dan kenapa bilangan negatif misalkan -2, -3, -5, dst bukan merupakan bilangan prima, padahal kan bilangan prima sendiri adalah bilangan yang hanya memiliki faktor 1 dan bilangan itu sendiri?? ???

Kita ambil -2 sebagai contoh. Faktor dari -2 tidak hanya 1 dan -2, tetapi juga -1 dan 2. Jadi, faktor dari -2 tidak hanya 1 dan dirinya sendiri. Hal yang sama juga berlaku pada bilangan prima lainnya.
Gambar di avatar saya adalah salah satu contoh dari kartu Mathematicards, Trading Card Game buatan saya waktu skripsi.