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 Responses so far.

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

  2. Rony SN says:

    iya sama-sama gan..

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

Leave a Reply

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