Dalam matematika, bilangan prima adalah bilangan asli yang lebih besar dari angka 1, yang faktor pembaginya adalah 1
dan bilangan itu sendiri. 2 dan 3 adalah bilangan prima. 4 bukan
bilangan prima karena 4 bisa dibagi 2. Sepuluh bilangan prima yang
pertama adalah 2, 3, 5, 7, 11, 13, 17, 19, 23 dan 29. source
Berikut ini adalah diagram alir dan program pengecekan bilangan prima :
program prima;
uses crt;
label lagi;
var
faktor,jum_faktor,x:integer;
bil:string[5];
begin
clrscr;
lagi:
write('Masukkan Nilai ');
readln(x);
faktor:=2;
jum_faktor:=0;
while faktor<=x do
if x mod faktor=0 then
begin
inc(jum_faktor);
inc(faktor);
end
else
inc(faktor);
if jum_faktor=1 then
writeln('Bilangan ',x,'merupakan bilangan prima')
else
writeln('Bilangan ',x,'bukan bilangan prima');
writeln;
writeln('Apakah Anda ingin memeriksa Bil. lain? (ya/tidak)');
readln(bil);
if (bil='ya') or (bil='YA') then
begin
writeln;
goto lagi;
end;
end.
Output dari program diatas :
Tidak ada komentar:
Posting Komentar