05 April 2012

Mencari Bilangan Prima 1 Sampai 200 Dengan Pascal


Dibawah ini adalah program dari pascal yaitu program MENCARI BILANGAN PRIMA 1 SAMPAI 200 yang salah satu tugas mata kuliah penulis, mungkin masih ada yang membutuhkannya atau yang lagi belajar pascal khususnya bilangan prima.

Langsung saja dicoba scripnya mudah-mudahan bermanfaat. 
Program Mencari_Bilangan_Prima;
Uses winCrt;
Var
   Prima : Array[1..200] of Integer;
   i,j : Integer;
   bil : Integer;
Begin
     ClrScr;
     For i := 2 to 200 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.

Dan dibawah  ini adalah OUTPUT/TAMPILAN dari scrip diatas.


2 comments:

  1. terima kasih sharingnya gan, kodingnya enak dibaca :)

    ReplyDelete
  2. iya sama-sama gan..

    terim kasih juga gan atas kunjungannya dan komentarnya... :)

    ReplyDelete

Terima kasih sudah memberi komentar,
komentar anda sangat berguna untuk menjadikan blog ane lebih baik lagi..
jangan lupa berkunjung kembali..