Menentukan Bilangan Prima Dengan Pascal

Materi yang akan saya jelaskan yaitu menentukan apakah suatu bilangan prima atau tidak. Untuk materi kali ini belum menentukan deretnya. Untuk menentukan bilangan prima ada 2 syarat yang harus kita pahami yaitu bilangan prima merupakan bilangan yang hanya bisa dibagi bilangan itu sendiri dan satu.

Dari syarat tersebut bisa dikembangkan dengan penggambaran menggunakan flowchart dan kita aplikasikan dengan program Pascal. Berikut flowchart untuk menentukan bilangan prima dan silahkan anda uji sendiri.

Setelah memahami flowchart diatas maka program dibawah ini adalah implementasinya dengan program pascal. Dalam program ini juga saya tambahkan baris perintah untuk mengulang program.

program prima;
uses crt;
var i,bil,p : byte;
ulang : char;
label awal,akhir;
begin
awal:
clrscr;
p := 0;
write('Input bilangan : '); readln(bil);
for i := 1 to bil do
begin
 if bil mod i = 0 then
   p := p+1;
end;
if p = 2 then
    write(bil,' Bilangan Prima')
else
    write(bil,' Bukan Bilangan Prima');
writeln; writeln;
write('Repeat ?'); readln(ulang);
  if (ulang = 'y') OR (ulang = 'Y') then
   goto awal
  else
   goto akhir;
akhir:
readkey;
end.

Hasil Outputnya :

Input bilangan : 7
7 Bilangan Prima