Home > Pascal > Program Bilangan Prima dengan Menggunakan Bantuan Array

Program Bilangan Prima dengan Menggunakan Bantuan Array

April 15th, 2009 Author Leave a comment Go to comments

Contoh program :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

Program Mencari_Bilangan_Prima_Dengan_Array;
Uses Crt;
Var
  Prima : Array[1..100] of Integer;
  i,j : Integer;
  bil : Integer;
Begin
  ClrScr;
  For i := 2 to 100 Do
  Begin
    Prima[i]:=i;
    For j:= 2 to i-1 Do
    Begin
      bil := (i mod j); {* i dibagi j dicek apakah 0*}
      If bil = 0 then Prima[i]:=0; {*jika habis dibagi,berarti bkn prima*}
    End;
    If Prima[i] <> 0 Then Write(Prima[i],' '); {*cetak array yg prima*}
  End;
  Readln;
End.
Bookmark and Share
Related Posts
  1. ARRAY DAN RECORD
  2. Program Bilangan Genap
  3. Program dengan Array of String
  4. Contoh Array
  5. Aljan Array dan Record
  6. Intan Array
  7. Program yang Menggunakan Record
  8. Hendra Array & Record
  9. Erika Array
  10. Program untuk Mengurutkan Data dengan Metode RADIX SORT
Categories: Pascal Tags:
  1. meliana
    December 20th, 2009 at 19:33 | #1
    Reply | Quote

    saya mau tanya program radix sort kaya apa?kasih tau penjelasannya ya dan contoh programnya menggunakan pascal

  2. Nu
    December 22nd, 2009 at 13:31 | #2
    Reply | Quote
  3. takirey
    December 26th, 2009 at 15:44 | #3
    Reply | Quote

    saiaa mau tanya, kalau buat program menyimpan bilangan genap ke dalam suatu stray sebanyak input user (10)..
    bagaimana penyelesaiannya?????

    terimaa kasiih..

  4. Nu
    December 26th, 2009 at 21:45 | #4
    Reply | Quote
  5. fitri
    February 21st, 2010 at 16:11 | #5
    Reply | Quote

    punten…

    pas saya coba qoq gagal yua….?????
    yg salah d bgian mana ‘a yua????

    untk blgn prama mggunakan array…..

    tlg yua….

  6. Nu
    February 22nd, 2010 at 09:29 | #6
    Reply | Quote

    @fitri
    bila mbak fitri menggunakan pascal for windows,
    rubah baris ke dua,

    Uses Crt;

    menjadi

    Uses WinCrt;

    Semoga tercerahkan… :)

  7. ushy
    February 22nd, 2010 at 13:36 | #7
    Reply | Quote

    gimana kalo di suruh menentukan jumlah bilangan prima yang ada dari 1 sampai 1000
    terimakasih

  8. Nu
    February 23rd, 2010 at 11:19 | #8
    Reply | Quote

    @ushy
    rubah baris ke empat

    Prima : Array[1..100] of Integer;

    menjadi

    Prima : Array[1..1000] of Integer;

    rubah juga baris ke sembilan

    For i := 2 to 100 Do

    menjadi

    For i := 2 to 1000 Do

    Semoga tercerahkan… :)

  1. December 26th, 2009 at 21:42 | #1
    Program Bilangan Genap | Pascal | NuSinau