Cek suatu bilangan merupakan bilangan prima atau bukan dengan bahasa pascal

Bilangan prima merupakan bilangan yang hanya dapat dinbagi dengan dirinya sendiri dan angka 1.Sebagai contoh angka 2,3,5 dl

l.Angka-angka diatas merupakan angka yang hanya dapat dibagi dengan dirinya sendiri dan angka 1 jadi angka-angka tersebut merupakan bilangan prima.

Program mengecek_suatu_bilangan_adalah_bilangan_prima;
uses wincrt;
var bil,i,x : integer;
    prima   : boolean;
    batas   : integer;
    ulang   : char;
begin
   repeat
   clrscr;
   write('Masukkan bilangan : ');{input bilangan yg akan dicek}
   read(bil);
   {inisialisasi awal}
   batas := round(sqrt(bil))+1;
   prima := true;
    if (bil=2) or (bil=3) then {jika bilangan 2 dan 3 maka prima}
      prima := true
    else{jika bukan 2 dan 3 maka}
      for i:=2 to batas do{dari i:=2 to batas}
        if bil mod i = 0 then{jika bilangan dibagi i = 0 maka bukan prima}
          prima := false;
        if prima = true then
         writeln(bil,' Adalah prima')
        else
         writeln(bil,' Bukan prima');
         writeln;
   write('Ulang lagi [Y/T]  : ');ulang:=upcase(readkey);
   writeln(ulang);
   until ulang <> 'Y';{akan terus mengulang jika di inputkan [y,Y]}
end.

Jika program tersebut kita jalankan (RUN) maka program tersebut akan mengecek apakah suatu bilangan yang diinputkan merupakan suatu bilangan prima atau bukan.
Sebagai contoh kita akan cek angka 5,10 dan 11,maka akan menghasilkan output seperti dibawah ini :

Program tersebut akan terus mengulang jika kita inputkan [Y/y] pada jawaban ulang lagi.

Related Articles by Categories