Algoritma Bilangan Prima

Nama Kelas Prodi Mata Mata Kuliah Kuliah

: : : :

Eko Sugiharto B S1 – TI S1 Logika Logika dan Algori Algoritm tma a1

ALGORITMA Bil_Prima {Algoritma untuk menentukan suatu bilangan apakah termasuk bilangan prima atau bukan} DEKLARASI  prima : boolean  bil,b,i : integer  DESKRIPSI Read(bil)  prima ← false If (bil = 2) Or (bil = 3) Then {khusus untuk angka 2 dan 3 termasuk bilangan prima} prima ← true End If  Else If bil mod 2 = 0 Then { untuk semua bilangan genap tidak termasuk bilangan prima} prima ← false End If  If (bil mod 6=5) Or (bil mod 6=1) Then {untuk angka 1 dan bilangan ganjil lainnya}  prima ← true  b ← bil i←3 While i ≤ (SQRT(b))+1 Do {pengecekan ulang terhadap bilangan ganjil} If b mod i = 0 Then {jika bisa dibagi oleh selain dirinya, bukan bilangan prima} prima ← false i←i+2 End If  End While End If  If prima = true Then Write(‘Bilangan Prima) Else Write('Bukan Bilangan Prima') End If 

 program bil_prima; uses wincrt; var prima:boolean; bil,b,i:integer;  begin writeln('Program untuk Menentukan Bilangan Prima'); writeln('==============================='); write('Masukan Angka : ');readln(bil); prima := false; if (bil=2) or (bil=3) then prima:=true else if bil mod 2=0 then prima:=false; if (bil mod 6=5) or (bil mod 6=1) then  begin prima:=true;  b:=bil; i:=3; while i<=(sqrt(b))+1 do  begin if b mod i=0 then  prima:=false; i:=i+2; end; end; if prima then writeln('Bilangan Prima') else writeln('Bukan Bilangan Prima'); end.