Program Pengecekan Bilangan Prima

Program Pascal Pengecekan Bilangan Prima, mungkin lebih pantas disebut seperti itu, karena kami membuatnya dengan menggunakan bahasa pemrograman Turbo Pascal.

Sebelumnya kami minta ma’af atas keterlambatan balasan pesan yang disampaikan oleh gamal febri pada tanggal 18 Januari 2008 yang isinya adalah sebagai berikut.

saya dah dapet list bilangan prima dari 2 ... bilangan yang diinputkan ??
ada gak source di delphi / pascal untuk nyari bilangan prima, misalnya
saya input 400, maka yang muncul bukan prima. kemudian saya input bilangan lain, misal 101, keluar pesan bilangan prima..............

tapi, alangkah baiknya jika sobat gamal febri bertanya melalui guestbook (buku tamu) yang telah disediakan di halaman blog ini, karena kami lebih sering memperhatikan pesan yang masuk lewat guestbook daripada melalui email, buktinya kami baru tahu bahwa ada inbox di email kami pada tanggal 23 Januari 2008, but….. no problem lah… key?!

O ya friend, sebelumnya we say thank’s for your request. This is respond for your request.


Program Pengecekan_Bilangan_Prima;
uses crt;
var a,b:longint;
begin clrscr;
writeln('Program Pengecekan BIlangan Prima');writeln(#10);
write('masukkan sebuah bilangan! '); readln(a);
if a<= 1 then begin writeln(a,' bukan bilangan prima, masukkanlah bilangan yang akan dicek yang >= 2');
writeln('karena bilangan prima dimulai dari 2, OK?!'); end else
if a=2 then begin writeln('2 merupakan bilangan prima'); end
else
for b:=2 to a-1 do
begin
if a mod b = 0 then
begin
writeln(a,' bukan merupakan bilangan prima'); b:=a-1;
end else
if b=a-1 then
writeln(a,' merupakan bilangan prima'); end;
readln end.