10Jun/102
pascal untuk cek bilangan prima
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
June 24th, 2010 - 02:39
Kalo yang ini maksude opo om…
(p>SQRT(n+1));
June 26th, 2010 - 07:36
p>sqrt(n+1)
maksudnya gini
ketika dicek satu dengan bilangan ganjil,, kita tidak perlu mengecek bilangan sampai dengan full semua bilang
P > akar(n+1)
P adalah bilangan penguji ( pembagi)
dan N adalah bilangan yang di uji kebenaran primanya..
ketika sudah mendekati akar dari bilangan itu,,
maka faktor akan berulang lagi
contoh
bilangan
12 meiliki faktor 1,2,3,4,6,12
masa kita kan ngecek 1 sampe 12???
kan cuma 3 udah cukup kena semua
1 dengan 12,
2 dengan 6,
3 dengan 4
pas masuk 4 maka muncul 3,,
jadi akan terjadi pemborosan pengecekan
seperti itu fungsi untuk p>sqrt(n+1)