Thursday, June 24, 2010

mencari prima dengan pascal

bilangan prima :
bilangan yang istimewa yang ada di deret bilangan bulat..
dan nilainya ada di bilangan bulat positif..

definisinya
bilangan prima adalah bilangan yang memiliki 2 faktor,,
yaitu bilangan 1 dan bilangan itu sendiri..

berikut dapat anda coba di FPC/Turbo Pascal 7.0


uses crt;
var n,p :longint;
prima : boolean;

Begin
clrscr;
readln(n);
if (n=2) or (n=3) then prima:=true
else if (n<2) or (n mod 2=0) then prima:=false
else begin
p:=3;prima:=true;
repeeat
if n mod p=0 then
prima:=false else p:=P+2;
until (not(prima)) and (p>SQRT(n+1));
end;
writeln('prima');
readln;
end.

semoga membantu

No comments: