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
Kalo yang ini maksude opo om…
(p>SQRT(n+1));
mopheat
24 Jun 10 at 2:39 am
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)
laksonoadi
26 Jun 10 at 7:36 am
kemaren ada yang ngereply bilang programnya cacat
;
dan emang tak liat lagi cacat programnya
kalo yang di jalankan yang di atas
bakal keluar prima semua
soalnya pada baris
writeln(‘prima’
masih menggunkan petik (‘
jadi kalo di hilangkan petiknya
baru bisa jalan
thanks buat
vnkng50@gmail.com
laksonoadi
18 May 11 at 2:55 am