Program untuk menampilkan bilangan prima yang dimulai dari angka 1 sampai dengan angka 20 algoritmanya adalah :
Bilangan prima dari
angka 1 s/d 20 = 2,3,5,7,11,13,17,19
Bilangan prima adalah
bilangan yang bisa dibagi dengan bilangan 1 dan bilangan itu sendiri.
2: 2 mod 1=0, 2 mod 2=0
3: 3 mod 1=0, 3 mod 2=0,
3 mod 3=0
4: 4 mod 1=0, 4 mod 2=0, 4 mod 3=1,
4 mod 4=0
5: 5 mod 1=0, 5 mod 2=1, 5 mod 3=2, 5 mod 4=1, 5
mod 5=0
Program dalam bahasa pascal adalah sebagai berikut :
Uses crt;
Var i, pembagi, jumlah0 : integer;
Begin
clrscr;
for
i:=2 to 20 do
Begin
jumlah0:=0;
for
pembagi :=1 to i do
begin
if i mod pembagi=0 then
jumlah0:=jumlah0+1;
end;
if
jumlah0=2 then
write(i:5);
end;
readln;
End.
Hasilnya :
EmoticonEmoticon