TUGAS PROKOM "MENCETAK 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 sampai dengan 500 ') ;
writeln (' OLeh YUNIAR DIAN NURINAWATI 070790 ');
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.

tampilan dalam output