Bilangan Prima

Program Mencetak_Bilangan_Prima;
Uses crt;
Const batas=500;
var
prima : array [1..batas] of boolean; { bilangan prima }
batas_geser, { batas pergeseran }
i,j : integer; { counter / cacah }

Begin
clrscr;
For i:=1 to Batas do
prima [i] :=true;
batas_geser:=trunc(sqrt(batas));
i:=2;
{ proses penggeseran }
While i<=batas_geser do Begin If prima [i] then Begin j:=i+i; While j<=batas do Begin prima [j] :=false; j:=j+i; End; End; i:=i+1; End; { cetak hasil proses....} Writeln (' Bilangan Prima antara 1 s/d 500 ', Batas) ; writeln (' OLeh Airinda ektria 070793 Math 4_B '); Writeln ('------------------------------------------------') ; Writeln; j:=1; For i:=2 to Batas do Begin If prima[i] then Begin If J > 8 Then
Begin
j:=1;
Writeln;
End
Else
Begin
write(' ',i:3);
j:=j+1;
End;
End;
End;
writeln;writeln ('Selesai...');
end.