Mencari Bilangan Prima dengan Pascal

15 Desember 2008

Mencari Bilangan Prima dengan Pascal

Hello semua para pecinta pascal... berikut ini ada dikit program yang berfungsi untuk mencari bilangan prima dalam suatu nilai. program ini terbagi dua, yaitu Procedure prima dan proses pencarian. Nah bagi yang nyoba silakan CoPaSus ( Copy Paste apa Susahnya) aja kok.
Code Program :
{
Program Mencari Bilangan Prima Pada Sebuah Nilai
============================================
Created by : Syamsuddin
Jurusan : TI STMIK Wicida Samarinda
Angkatan : 2008
============================================
}
uses wincrt;
var
i,j:integer;

procedure prima(a:integer);
var b:integer;
begin
if a=2 then writeln('':10,a,' Bilangan Prima');
for b:=2 to a-1 do
begin
if a mod b=0 then
begin
b:=a-1;
end
else
if b=a-1 then
writeln('':10,a,' Bilangan Prima');
end;
end;

begin
write('Masukkan Angka : ');readln(j);

for i:=1 to j do
begin
prima(i);
end;

end.

Selamat Mencoba.

Cetak