Selasa, 14 April 2015

Algoritma dan Program Pengecekan Bilangan Prima dalam Pascal

              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