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. Program untuk Mengurutkan Data dengan Metode RADIX SORT
  5. Program Input Nilai Mahasiswa
  6. Aljan Array dan Record
  7. Hendra Array & Record
  8. Intan Array
  9. Perulangan dengan Repeat Until
  10. Contoh Array
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… :)

  9. Rubiyanto
    March 12th, 2010 at 11:58 | #9
    Reply | Quote

    Mau tanya tentang materi cisco tracer, kalau bisa tutorial

  10. Nu
    March 13th, 2010 at 12:21 | #10
    Reply | Quote

    @Rubiyanto
    googling aja deh… saya belum bikin tutorial untuk cisco je…

  11. Andari
    April 8th, 2010 at 11:15 | #11
    Reply | Quote

    Kalo di pindahkan ke turbo basic bisa ga ?

  12. Eva
    April 21st, 2010 at 21:19 | #12
    Reply | Quote

    Wahh .. sangat membantu .. thx ya … ! good job =D

  13. Sahir Brown
    April 26th, 2010 at 19:47 | #13
    Reply | Quote

    Kak Nu,

    aku mau nanya nie, Kalau Program yang menggunakan Array dalam Record ada gk contohnya?
    Kalau ada dikasih tau ya…! hari rabu aku mau ujian dengan materi tersebut…! Please dikasih tau ya?

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